autoprop: tweak cli ux
:: autoprop: make pills & props when desk contents change
::
:: auto-build a new .urb/put/latest-solid.pill:
-:: latest-solid +solid %kids %garden
+:: +latest-solid solid %kids %garden
::
:: stop auto-building latest-solid:
:: -latest-solid
::
:: auto-build a new .urb/put/somedesk.jam:
-:: some-desk +desk %somedesk
+:: +some-desk desk %somedesk
::
:: see currently configured build tasks:
:: ?
%+ pick
(cold [%see ~] wut)
|^ ;~ pose
- (stag %put ;~(plug sym ;~(pfix ace lus ;~(pose pil pro))))
+ (stag %put ;~(plug (ifix [lus ace] sym) ;~(pose pil pro)))
;~(plug (cold %del hep) sym)
;~(plug (cold %run zap) sym)
==
^- (list card)
=- [%shoe [sole-id]~ %sole %mor -]~
^- (list sole-effect:shoe)
- :- [%txt "to add: task-name +type %args"]
- :- [%txt " where +type is a pill type, or +desk"]
+ :- [%txt "to add: +task-name type %args"]
+ :- [%txt " where type is one of: solid, brass, ivory, desk"]
:- [%txt "to del: -task-name"]
:- [%txt "to run: !task-name"]
?: =(~ make)
::
?- -.task
%ivory [base.task ~]
- ?(%solid %brass) [base.task ' %' (join ' %' ~(tap in etc.task))]
+ ?(%solid %brass) :- base.task
+ ?: =(~ etc.task) ~
+ [' %' (join ' %' ~(tap in etc.task))]
%desk [desk.task ~]
== ==
::
|=([next=(unit @da) =^task] [~ task])
::TODO just poke hood instead?
=; sag=sole-effect:shoe
- [%shoe [sole]~ %sole %mor [[%txt "built {(trip name)}"] sag ~]]~
+ :_ ~
+ :+ %shoe [sole]~
+ :+ %sole %mor
+ :~ [%txt "{(trip dap.bowl)} built {(trip name)}"]
+ sag
+ ==
|^ =* base base.task
:+ %sag
?- -.task
- ?(%solid %brass %ivory) /tasks/[name]/pill
- %desk /tasks/[name]/jam
+ ?(%solid %brass %ivory) /[dap.bowl]/[name]/pill
+ %desk /[dap.bowl]/[name]/jam
==
?- -.task
%ivory (ivory:libpill (sys base))
