shrub/ape/hood.hoon

::                                                      ::  ::
::::  /hoon/hood/ape                                    ::  ::
  ::                                                    ::  ::
/?  314                                                 ::  zuse version
/+  sole, talk, helm, kiln, drum                        ::  libraries
[. helm kiln drum]
::                                                      ::  ::
::::                                                    ::  ::
  !:                                                    ::  ::
=>  |%                                                  ::  module boilerplate
    ++  hood-0                                          :: 
      ,[%0 lac=(map ,@tas hood-part)]                   ::
    ++  hood-good                                       ::
      |*  hed=hood-head                                 ::
      |=  paw=hood-part                                 ::
      ?-  hed                                           ::
        %drum  ?>(?=(%drum -.paw) `drum-part`paw)       ::
        %helm  ?>(?=(%helm -.paw) `helm-part`paw)       ::
        %kiln  ?>(?=(%kiln -.paw) `kiln-part`paw)       ::
      ==                                                ::
    ++  hood-head  ,_-:*hood-part                       ::
    ++  hood-make                                       ::
      |*  [our=@p hed=hood-head]                        ::
      ?-  hed                                           ::
        %drum  (drum-port our)                          ::
        %helm  *helm-part                               ::
        %kiln  *kiln-part                               ::
      ==                                                ::
    ++  hood-part                                       ::
      $%  [%drum %0 drum-pith]                          ::
          [%helm %0 helm-pith]                          ::
          [%kiln %0 kiln-pith]                          ::
      ==                                                ::
    --                                                  ::
::                                                      ::  ::
::::                                                    ::  ::
  ::                                                    ::  ::
|_  $:  hid=bowl                                        ::  system state
        hood-0                                          ::  server state
    ==                                                  ::
++  able                                                ::  find/make part
  |*  hed=hood-head
  =+  rep=(~(get by lac) hed)
  =+  par=?^(rep u.rep `hood-part`(hood-make our.hid hed))
  ((hood-good hed) par)
::
++  ably                                                ::  save part
  |*  [moz=(list) rep=hood-part]
  [(flop moz) %_(+> lac (~(put by lac) -.rep rep))]
::                                                      ::  ::
::::                                                    ::  ::
  ::                                                    ::  ::
++  coup-kiln-fancy  (wrap take-coup-fancy):from-kiln
++  coup-kiln-spam                                      ::
  |=  [way=wire saw=(unit tang)]
  ~?  ?=(^ saw)  [%kiln-spam-lame u.saw]
  [~ +>]
::
++  coup-kiln-reload                                    ::
  |=  [way=wire saw=(unit tang)]
  ~?  ?=(^ saw)  [%kiln-reload-lame u.saw]
  [~ +>]
::
++  coup-drum-phat  (wrap take-coup-phat):from-drum
++  coup-helm-hi    (wrap coup-hi):from-helm
++  diff-sole-effect-drum-phat  (wrap diff-sole-effect-phat):from-drum
++  from-lib
  |*  _[%helm ..$ ,_abet]:(helm)
  =>  .(+< [identity start finish]=+<)
  =-  [wrap=- *start]                 ::  usage (wrap handle-arm):from-foo
  |*  handle=_finish
  |=  _+<.handle
  =.  +>.handle  (start hid (able identity))
  (ably (handle +<))
::
++  from-drum  (from-lib %drum [..$ ,_se-abet]:(drum))
++  from-helm  (from-lib %helm [..$ ,_abet]:(helm))
++  from-kiln  (from-lib %kiln [..$ ,_abet]:(kiln))
::
++  init-helm               |=([way=wire *] [~ +>])
++  made-kiln               (wrap take-made):from-kiln
++  mere-kiln               (wrap take-mere):from-kiln
++  mere-kiln-sync          (wrap take-mere-sync):from-kiln
++  note-helm               (wrap take-note):from-helm
++  onto-drum               (wrap take-onto):from-drum
++  peer-drum               (wrap peer):from-drum
++  poke-dill-belt          (wrap poke-dill-belt):from-drum
++  poke-drum-link          (wrap poke-link):from-drum
::++  poke-drum-exit          (wrap poke-exit):from-drum
++  poke-drum-start         (wrap poke-start):from-drum
++  poke-helm-hi            (wrap poke-hi):from-helm
++  poke-helm-init          (wrap poke-init):from-helm
++  poke-helm-invite        (wrap poke-invite):from-helm
++  poke-helm-mass          (wrap poke-mass):from-helm
++  poke-helm-reload        (wrap poke-reload):from-helm
++  poke-helm-reload-desk   (wrap poke-reload-desk):from-helm
++  poke-helm-reset         (wrap poke-reset):from-helm
++  poke-helm-send-hi       (wrap poke-send-hi):from-helm
++  poke-helm-verb          (wrap poke-verb):from-helm
++  poke-helm-begin         (wrap poke-begin):from-helm
++  poke-hood-sync          (wrap poke-sync):from-kiln
++  poke-kiln-cp            (wrap poke-cp):from-kiln
++  poke-kiln-label         (wrap poke-label):from-kiln
++  poke-kiln-merge         (wrap poke-merge):from-kiln
++  poke-kiln-cancel        (wrap poke-cancel):from-kiln
++  poke-kiln-mount         (wrap poke-mount):from-kiln
++  poke-kiln-mv            (wrap poke-mv):from-kiln
++  poke-kiln-rm            (wrap poke-rm):from-kiln
++  poke-kiln-schedule      (wrap poke-schedule):from-kiln
++  poke-kiln-sync          (wrap poke-sync):from-kiln
++  poke-kiln-autoload      (wrap poke-autoload):from-kiln
++  poke-kiln-unmount       (wrap poke-unmount):from-kiln
++  poke-kiln-unsync        (wrap poke-unsync):from-kiln
++  poke-will               (wrap poke-will):from-helm
++  quit-drum-phat          (wrap quit-phat):from-drum
++  reap-drum-phat          (wrap reap-phat):from-drum
++  woot-helm               (wrap take-woot):from-helm
++  writ-kiln-autoload      (wrap take-writ-autoload):from-kiln
++  writ-kiln-sync          (wrap take-writ-sync):from-kiln
--
formatting, .hoon highlighting 2015-06-12 00:53:32 +03:00			`:: :: ::`
			`:::: /hoon/hood/ape :: ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`:: :: ::`
			`/? 314 :: zuse version`
Checking in for fun and profit. 2015-05-14 22:24:43 +03:00			`/+ sole, talk, helm, kiln, drum :: libraries`
further disqualification 2015-09-02 03:24:18 +03:00			`[. helm kiln drum]`
Forgot a file. 2015-05-11 21:05:14 +03:00			`:: :: ::`
			`:::: :: ::`
			`!: :: ::`
			`=> \|% :: module boilerplate`
drum in hood works, modulo slow update bug. 2015-05-17 03:31:28 +03:00			`++ hood-0 ::`
			`,[%0 lac=(map ,@tas hood-part)] ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`++ hood-good ::`
			`\|* hed=hood-head ::`
			`\|= paw=hood-part ::`
			`?- hed ::`
drum compiles. 2015-05-16 03:23:40 +03:00			%drum ?>(?=(%drum -.paw) `drum-part`paw) ::
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			%helm ?>(?=(%helm -.paw) `helm-part`paw) ::
			%kiln ?>(?=(%kiln -.paw) `kiln-part`paw) ::
Forgot a file. 2015-05-11 21:05:14 +03:00			`== ::`
			`++ hood-head ,_-:*hood-part ::`
Various cleanups. 2015-05-12 23:10:22 +03:00			`++ hood-make ::`
drum in hood works, modulo slow update bug. 2015-05-17 03:31:28 +03:00			`\|* [our=@p hed=hood-head] ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`?- hed ::`
drum in hood works, modulo slow update bug. 2015-05-17 03:31:28 +03:00			`%drum (drum-port our) ::`
Various cleanups. 2015-05-12 23:10:22 +03:00			`%helm *helm-part ::`
			`%kiln *kiln-part ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`== ::`
			`++ hood-part ::`
drum in hood works, modulo slow update bug. 2015-05-17 03:31:28 +03:00			`$% [%drum %0 drum-pith] ::`
			`[%helm %0 helm-pith] ::`
			`[%kiln %0 kiln-pith] ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`== ::`
			`-- ::`
			`:: :: ::`
			`:::: :: ::`
			`:: :: ::`
Replaced hide with bowl. 2015-05-28 06:48:25 +03:00			`\|_ $: hid=bowl :: system state`
drum in hood works, modulo slow update bug. 2015-05-17 03:31:28 +03:00			`hood-0 :: server state`
Forgot a file. 2015-05-11 21:05:14 +03:00			`== ::`
			`++ able :: find/make part`
			`\|* hed=hood-head`
			`=+ rep=(~(get by lac) hed)`
drum in hood works, modulo slow update bug. 2015-05-17 03:31:28 +03:00			=+ par=?^(rep u.rep `hood-part`(hood-make our.hid hed))
Various cleanups. 2015-05-12 23:10:22 +03:00			`((hood-good hed) par)`
Forgot a file. 2015-05-11 21:05:14 +03:00			`::`
			`++ ably :: save part`
Merge old helm code into hood/kiln. 2015-05-12 03:31:37 +03:00			`\|* [moz=(list) rep=hood-part]`
drum in hood works, modulo slow update bug. 2015-05-17 03:31:28 +03:00			`[(flop moz) %_(+> lac (~(put by lac) -.rep rep))]`
Forgot a file. 2015-05-11 21:05:14 +03:00			`:: :: ::`
			`:::: :: ::`
			`:: :: ::`
userspace cleaning 2015-05-30 10:53:19 +03:00			`++ coup-kiln-fancy (wrap take-coup-fancy):from-kiln`
Checking in for fun and profit. 2015-05-14 22:24:43 +03:00			`++ coup-kiln-spam ::`
Finish moving ++from into bowl. 2015-05-28 10:56:08 +03:00			`\|= [way=wire saw=(unit tang)]`
Checking in for fun and profit. 2015-05-14 22:24:43 +03:00			`~? ?=(^ saw) [%kiln-spam-lame u.saw]`
formatting, .hoon highlighting 2015-06-12 00:53:32 +03:00			`[~ +>]`
Checking in for fun and profit. 2015-05-14 22:24:43 +03:00			`::`
autoreload and autoreset 2015-09-17 01:39:11 +03:00			`++ coup-kiln-reload ::`
			`\|= [way=wire saw=(unit tang)]`
			`~? ?=(^ saw) [%kiln-reload-lame u.saw]`
			`[~ +>]`
			`::`
Fix hood to route errors properly through :talk. 2015-06-02 23:52:33 +03:00			`++ coup-drum-phat (wrap take-coup-phat):from-drum`
Rescued \|hi Yfrīt from the sands of time into helm: closes #304 2015-06-18 04:46:01 +03:00			`++ coup-helm-hi (wrap coup-hi):from-helm`
Fix hood to route errors properly through :talk. 2015-06-02 23:52:33 +03:00			`++ diff-sole-effect-drum-phat (wrap diff-sole-effect-phat):from-drum`
doubly-wet from-* in hood 2015-06-04 01:16:32 +03:00			`++ from-lib`
qualified library names in userspace 2015-09-02 01:20:17 +03:00			`\|* _[%helm ..$ ,_abet]:(helm)`
doubly-wet from-* in hood 2015-06-04 01:16:32 +03:00			`=> .(+< [identity start finish]=+<)`
			`=- [wrap=- *start] :: usage (wrap handle-arm):from-foo`
			`\|* handle=_finish`
			`\|= _+<.handle`
			`=. +>.handle (start hid (able identity))`
			`(ably (handle +<))`
Fix queuing issue. 2015-05-17 22:39:03 +03:00			`::`
qualified library names in userspace 2015-09-02 01:20:17 +03:00			`++ from-drum (from-lib %drum [..$ ,_se-abet]:(drum))`
			`++ from-helm (from-lib %helm [..$ ,_abet]:(helm))`
			`++ from-kiln (from-lib %kiln [..$ ,_abet]:(kiln))`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`::`
minor renaming 2015-06-24 21:01:25 +03:00			`++ init-helm \|=([way=wire *] [~ +>])`
			`++ made-kiln (wrap take-made):from-kiln`
			`++ mere-kiln (wrap take-mere):from-kiln`
			`++ mere-kiln-sync (wrap take-mere-sync):from-kiln`
			`++ note-helm (wrap take-note):from-helm`
			`++ onto-drum (wrap take-onto):from-drum`
			`++ peer-drum (wrap peer):from-drum`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-dill-belt (wrap poke-dill-belt):from-drum`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-drum-link (wrap poke-link):from-drum`
fix url grab 2015-09-12 03:07:50 +03:00			`::++ poke-drum-exit (wrap poke-exit):from-drum`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-drum-start (wrap poke-start):from-drum`
			`++ poke-helm-hi (wrap poke-hi):from-helm`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-helm-init (wrap poke-init):from-helm`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-helm-invite (wrap poke-invite):from-helm`
			`++ poke-helm-mass (wrap poke-mass):from-helm`
			`++ poke-helm-reload (wrap poke-reload):from-helm`
			`++ poke-helm-reload-desk (wrap poke-reload-desk):from-helm`
			`++ poke-helm-reset (wrap poke-reset):from-helm`
Rescued \|hi Yfrīt from the sands of time into helm: closes #304 2015-06-18 04:46:01 +03:00			`++ poke-helm-send-hi (wrap poke-send-hi):from-helm`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-helm-verb (wrap poke-verb):from-helm`
who keeps changing hood/helm/kiln/etc? 2015-07-13 23:57:01 +03:00			`++ poke-helm-begin (wrap poke-begin):from-helm`
overly enthusiatic renaming; restored OS interface 2015-06-25 03:01:50 +03:00			`++ poke-hood-sync (wrap poke-sync):from-kiln`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-kiln-cp (wrap poke-cp):from-kiln`
added \|label, don't disconnect from dojo when blocked 2015-06-24 21:30:28 +03:00			`++ poke-kiln-label (wrap poke-label):from-kiln`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-kiln-merge (wrap poke-merge):from-kiln`
added \|cancel 2015-09-16 03:24:44 +03:00			`++ poke-kiln-cancel (wrap poke-cancel):from-kiln`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-kiln-mount (wrap poke-mount):from-kiln`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-kiln-mv (wrap poke-mv):from-kiln`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-kiln-rm (wrap poke-rm):from-kiln`
\|schedule add to .sched Demo suggestion: - vim :set autoread, :e pier/home/pub/test.sched (TODO: rename) - http://zod.local/home/pub/test -- ordered - add an element in vim -- still ordered - +cat %/pub/test -- data structure, hash order - \|schedule %/pub/test ~2016.5.5..07.30.00 'new event' -- vim now ordered, reloaded alongside web - +cat it again for good measure? 2015-06-17 20:54:25 +03:00			`++ poke-kiln-schedule (wrap poke-schedule):from-kiln`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-kiln-sync (wrap poke-sync):from-kiln`
autoreload and autoreset 2015-09-17 01:39:11 +03:00			`++ poke-kiln-autoload (wrap poke-autoload):from-kiln`
minor renaming 2015-06-24 21:01:25 +03:00			`++ poke-kiln-unmount (wrap poke-unmount):from-kiln`
			`++ poke-kiln-unsync (wrap poke-unsync):from-kiln`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-will (wrap poke-will):from-helm`
Merge branch 'test' of https://github.com/urbit/urbit into test Conflicts: urb/urbit.pill urb/zod/base/ape/hood/core.hook urb/zod/base/lib/helm/core.hook 2015-06-04 00:31:37 +03:00			`++ quit-drum-phat (wrap quit-phat):from-drum`
minor renaming 2015-06-24 21:01:25 +03:00			`++ reap-drum-phat (wrap reap-phat):from-drum`
Ticketing now uses modern acks. 2015-06-23 03:47:19 +03:00			`++ woot-helm (wrap take-woot):from-helm`
autoreload and autoreset 2015-09-17 01:39:11 +03:00			`++ writ-kiln-autoload (wrap take-writ-autoload):from-kiln`
			`++ writ-kiln-sync (wrap take-writ-sync):from-kiln`
Forgot a file. 2015-05-11 21:05:14 +03:00			`--`