import iTasksTTY
import TTY
import qualified Data.Map as DM
-import Utils
+import Utils.SDS
import GenBimap
import Devices.mTaskSerial
deviceSettings "SerialDevice" = getmTaskSerialDevice
deviceSettings "TCPDevice" = getmTaskTCPDevice
-deviceTypes :: [MTaskResource]
-deviceTypes = conses{|*|}
+ deviceTypes :: [MTaskResource]
+ deviceTypes = conses{|*|}
+
+viewDevices :: [MTaskDevice] -> Task ()
+viewDevices ds = anyTask [
+ addDevice deviceStore <<@ Title "Add new device" @! ():
+ [viewDevice d <<@ Title d.deviceName\\d<-ds]]
+ <<@ ArrangeWithTabs @! ()
+
+viewDevice :: MTaskDevice -> Task ()
+viewDevice d = (viewInformation "Device settings" [] d
+ ||- viewSharedInformation "Channels" [ViewAs dropEmpty] (channels d) @! ()
+ ) <<@ ArrangeHorizontal
+ where
+ dropEmpty (r,s,ss) = (filter ((=!=)MTEmpty) r,s,ss)