X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=0d7f450d6ad1017be76ed8228f0edeb582d139cf;hb=f30142f32b5aec7e51200b6045014993c700b74a;hp=a2ef345b38690d5db21dacce05e09623ae1a5460;hpb=cf006df4dfd44845b6e5459d81bfe34a187884a9;p=mTask.git diff --git a/miTask.icl b/miTask.icl index a2ef345..0d7f450 100644 --- a/miTask.icl +++ b/miTask.icl @@ -33,15 +33,13 @@ Start world = startEngine (mTaskManager mTaskManager :: Task () mTaskManager = anyTask [ viewmTasks @! () - , whileUnchanged sdsStore viewShares + , whileUnchanged sdsStore manageShares , whileUnchanged deviceStore $ manageDevices process - ] <<@ ApplyLayout layout - where - layout = sequenceLayouts + ] <<@ ApplyLayout (sequenceLayouts [ arrangeWithSideBar 0 LeftSide 260 True , arrangeSplit Vertical True - ] - + ]) + where viewmTasks :: Task String viewmTasks = enterChoiceWithShared "Available mTasks" [ChooseFromList id] mTaskTaskStore >&^ \sh->whileUnchanged sh $ \mi->forever (case mi of @@ -51,8 +49,9 @@ mTaskManager = anyTask [] = viewInformation "No devices yet" [] () ds = fromJust ('DM'.get mTaskTask allmTasks) >>= \bc->(enterChoice "Choose Device" [ChooseFromDropdown \t->t.deviceName] ds - -&&- enterInformation "Timeout, 0 for one-shot" [] + -&&- enterInformation "Timeout" [] ) >>* [OnAction (Action "Send") (withValue $ Just o sendToDevice mTaskTask bc)] + @! () ) process :: MTaskDevice (Shared Channels) -> Task ()