urbit/base/ape/hood.hoon

::                                                      ::  ::
::::  /hoon/hood/ape                                    ::  ::
  ::                                                    ::  ::
/?  314                                                 ::  zuse version
/+  sole, talk, helm, kiln, drum                        ::  libraries
::                                                      ::  ::
::::                                                    ::  ::
  !:                                                    ::  ::
=>  |%                                                  ::  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-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-work)
  =>  .(+< [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-work))
++  from-helm  (from-lib %helm [..$ ,_abet]:(helm-work))
++  from-kiln  (from-lib %kiln [..$ ,_abet]:(kiln-work))
::
++  poke-dill-belt          (wrap poke-dill-belt):from-drum
++  poke-helm-init          (wrap poke-init):from-helm
++  poke-helm-verb          (wrap poke-verb):from-helm
++  poke-helm-send-hi       (wrap poke-send-hi):from-helm
++  poke-helm-hi            (wrap poke-hi):from-helm
++  poke-hood-link          (wrap poke-link):from-drum
++  poke-hood-mass          (wrap poke-mass):from-helm
++  poke-hood-sync          (wrap poke-sync):from-kiln
++  poke-hood-unsync        (wrap poke-unsync):from-kiln
++  poke-hood-unix          (wrap poke-unix):from-kiln
++  poke-hood-begin         (wrap poke-begin):from-helm
++  poke-hood-invite        (wrap poke-invite):from-helm
++  poke-hood-merge         (wrap poke-merge):from-kiln
++  poke-hood-reload        (wrap poke-reload):from-helm
++  poke-hood-reset         (wrap poke-reset):from-helm
++  poke-hood-start         (wrap poke-start):from-drum
++  poke-hood-reload-desk   (wrap poke-reload-desk):from-helm
++  poke-kiln-cp            (wrap poke-cp):from-kiln
++  poke-kiln-rm            (wrap poke-rm):from-kiln
++  poke-kiln-mv            (wrap poke-mv):from-kiln
++  poke-kiln-schedule      (wrap poke-schedule):from-kiln
++  poke-will               (wrap poke-will):from-helm
++  mere-kiln               (wrap take-mere):from-kiln
++  mere-kiln-sync          (wrap take-mere-sync):from-kiln
++  made-kiln               (wrap take-made):from-kiln
++  init-helm               |=([way=wire *] [~ +>])
++  note-helm               (wrap take-note):from-helm
++  reap-drum-phat          (wrap reap-phat):from-drum
++  onto-drum               (wrap take-onto):from-drum
++  peer-drum               (wrap peer):from-drum
++  quit-drum-phat          (wrap quit-phat):from-drum
++  woot-helm               (wrap take-woot):from-helm
++  writ-kiln-sync          (wrap take-writ):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`
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			`::`
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`
work around ^~ language issue, restore lib/talk 2015-06-09 22:17:02 +03:00			`\|* _[%helm ..$ ,_abet]:(helm-work)`
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			`::`
work around ^~ language issue, restore lib/talk 2015-06-09 22:17:02 +03:00			`++ from-drum (from-lib %drum [..$ ,_se-abet]:(drum-work))`
			`++ from-helm (from-lib %helm [..$ ,_abet]:(helm-work))`
			`++ from-kiln (from-lib %kiln [..$ ,_abet]:(kiln-work))`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`::`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-dill-belt (wrap poke-dill-belt):from-drum`
			`++ poke-helm-init (wrap poke-init):from-helm`
removed extraneous cats and dogs 2015-06-18 01:31:44 +03:00			`++ poke-helm-verb (wrap poke-verb):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`
			`++ poke-helm-hi (wrap poke-hi):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			`++ poke-hood-link (wrap poke-link):from-drum`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-hood-mass (wrap poke-mass):from-helm`
			`++ poke-hood-sync (wrap poke-sync):from-kiln`
			`++ poke-hood-unsync (wrap poke-unsync):from-kiln`
			`++ poke-hood-unix (wrap poke-unix):from-kiln`
			`++ poke-hood-begin (wrap poke-begin):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			`++ poke-hood-invite (wrap poke-invite):from-helm`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-hood-merge (wrap poke-merge):from-kiln`
			`++ poke-hood-reload (wrap poke-reload):from-helm`
			`++ poke-hood-reset (wrap poke-reset):from-helm`
			`++ poke-hood-start (wrap poke-start):from-drum`
			`++ poke-hood-reload-desk (wrap poke-reload-desk):from-helm`
			`++ poke-kiln-cp (wrap poke-cp):from-kiln`
			`++ poke-kiln-rm (wrap poke-rm):from-kiln`
			`++ poke-kiln-mv (wrap poke-mv):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`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ poke-will (wrap poke-will):from-helm`
			`++ mere-kiln (wrap take-mere):from-kiln`
			`++ mere-kiln-sync (wrap take-mere-sync):from-kiln`
			`++ made-kiln (wrap take-made):from-kiln`
			`++ init-helm \|=([way=wire *] [~ +>])`
			`++ note-helm (wrap take-note):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			`++ reap-drum-phat (wrap reap-phat):from-drum`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ onto-drum (wrap take-onto):from-drum`
			`++ peer-drum (wrap peer):from-drum`
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`
Ticketing now uses modern acks. 2015-06-23 03:47:19 +03:00			`++ woot-helm (wrap take-woot):from-helm`
use kiln for initial autosync 2015-06-04 00:18:13 +03:00			`++ writ-kiln-sync (wrap take-writ):from-kiln`
Forgot a file. 2015-05-11 21:05:14 +03:00			`--`