urbit/app/hood.hoon

::                                                      ::  ::
::::  /hoon/hood/app                                    ::  ::
  ::                                                    ::  ::
/?    310                                               ::  zuse version
/+  sole, talk, helm, kiln, drum, write                 ::  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)       ::
        $write  ?>(?=($write -.paw) `part:write`paw)    ::
      ==                                                ::
    ++  hood-head  _-:*hood-part                        ::
    ++  hood-make                                       ::
      |*  {our/@p hed/hood-head}                        ::
      ?-  hed                                           ::
        $drum  (drum-make our)                          ::
        $helm  *helm-part                               ::
        $kiln  *kiln-part                               ::
        $write  *part:write                             ::
      ==                                                ::
    ++  hood-part-old                                   ::
      $?  hood-part                                     ::
          {$drum $0 drum-pith-0}                        ::
      ==                                                ::
    ++  hood-port                                       ::
      |=  paw/hood-part-old  ^-  hood-part              ::
      ?+  -.paw  paw                                    ::
        $drum    (drum-port paw)                        ::
      ==                                                ::
    ::                                                  ::
    ++  hood-part                                       ::
      $%  {$drum $1 drum-pith}                          ::
          {$helm $0 helm-pith}                          ::
          {$kiln $0 kiln-pith}                          ::
          {$write $0 pith:write}                        ::
      ==                                                ::
    --                                                  ::
::                                                      ::  ::
::::                                                    ::  ::
  ::                                                    ::  ::
|_  $:  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
  |*  {(list) hood-part}
  [(flop +<-) %_(+> lac (~(put by lac) +<+< +<+))]
::                                                      ::  ::
::::                                                    ::  ::
  ::                                                    ::  ::
++  prep                                                ::
  |=  old/(unit hood-0)  ^-  (quip _!! +>)
  :-  ~
  ?~  old  +>
  +>(lac (~(run by lac.u.old) hood-port))
::
++  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-kiln-overload                                  ::
  |=  {way/wire saw/(unit tang)}
  ~?  ?=(^ saw)  [%kiln-overload-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))
++  from-write  (from-lib %write [..$ _abet]:(write))
::
++  init-helm                 |=({way/wire *} [~ +>])
++  made-write                (wrap made):from-write
++  made-kiln                 (wrap take-made):from-kiln
++  mere-kiln                 (wrap take-mere):from-kiln
++  mere-kiln-sync            (wrap take-mere-sync):from-kiln
++  wake-kiln-overload        (wrap take-wake-overload):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-unlink          (wrap poke-unlink):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   :: XX used?
++  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-deset           (wrap poke-deset):from-helm
++  poke-helm-serve           (wrap poke-serve):from-helm
++  poke-helm-send-hi         (wrap poke-send-hi):from-helm
++  poke-helm-send-ask        (wrap poke-send-ask):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-hood-init-sync       (wrap poke-init-sync):from-kiln
++  poke-kiln-info            (wrap poke-info):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-rm              (wrap poke-rm):from-kiln
++  poke-kiln-schedule        (wrap poke-schedule):from-kiln
++  poke-kiln-track           (wrap poke-track):from-kiln
++  poke-kiln-sync            (wrap poke-sync):from-kiln
++  poke-kiln-syncs           (wrap poke-syncs):from-kiln
++  poke-kiln-start-autoload  (wrap poke-start-autoload):from-kiln
++  poke-kiln-autoload        (wrap poke-autoload):from-kiln
++  poke-kiln-overload        (wrap poke-overload):from-kiln
++  poke-kiln-unmount         (wrap poke-unmount):from-kiln
++  poke-kiln-unsync          (wrap poke-unsync):from-kiln
++  poke-write-sec-atom       (wrap poke-sec-atom):from-write
++  poke-write-paste          (wrap poke-paste):from-write
++  poke-write-comment        (wrap poke-comment):from-write
++  poke-write-plan-info      (wrap poke-plan-info):from-write
++  poke-write-plan-account   (wrap poke-plan-account):from-write
++  poke-write-tree           (wrap poke-tree):from-write
++  poke-write-wipe           (wrap poke-wipe):from-write
++  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			`:: :: ::`
fix hoon location header information 2016-02-05 06:05:37 +03:00			`:::: /hoon/hood/app :: ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`:: :: ::`
implements a kill -ring, with support for meta-y and cumulative kills includes state updates and adapters 2016-07-06 06:44:25 +03:00			`/? 310 :: zuse version`
fix lib/write 2016-02-12 02:29:52 +03:00			`/+ sole, talk, helm, kiln, drum, write :: 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`
implements a kill -ring, with support for meta-y and cumulative kills includes state updates and adapters 2016-07-06 06:44:25 +03:00			`++ hood-0 ::`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`{$0 lac/(map @tas hood-part)} ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`++ hood-good ::`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`\|* hed/hood-head ::`
			`\|= paw/hood-part ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`?- hed ::`
Various 1st phase. 2015-12-09 04:54:26 +03:00			$drum ?>(?=($drum -.paw) `drum-part`paw) ::
			$helm ?>(?=($helm -.paw) `helm-part`paw) ::
			$kiln ?>(?=($kiln -.paw) `kiln-part`paw) ::
fix lib/write 2016-02-12 02:29:52 +03:00			$write ?>(?=($write -.paw) `part:write`paw) ::
Forgot a file. 2015-05-11 21:05:14 +03:00			`== ::`
implements a kill -ring, with support for meta-y and cumulative kills includes state updates and adapters 2016-07-06 06:44:25 +03:00			`++ hood-head _-:*hood-part ::`
Various cleanups. 2015-05-12 23:10:22 +03:00			`++ hood-make ::`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`\|* {our/@p hed/hood-head} ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`?- hed ::`
implements a kill -ring, with support for meta-y and cumulative kills includes state updates and adapters 2016-07-06 06:44:25 +03:00			`$drum (drum-make our) ::`
Various 1st phase. 2015-12-09 04:54:26 +03:00			`$helm *helm-part ::`
			`$kiln *kiln-part ::`
implements a kill -ring, with support for meta-y and cumulative kills includes state updates and adapters 2016-07-06 06:44:25 +03:00			`$write *part:write ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`== ::`
implements a kill -ring, with support for meta-y and cumulative kills includes state updates and adapters 2016-07-06 06:44:25 +03:00			`++ hood-part-old ::`
			`$? hood-part ::`
			`{$drum $0 drum-pith-0} ::`
			`== ::`
			`++ hood-port ::`
			`\|= paw/hood-part-old ^- hood-part ::`
			`?+ -.paw paw ::`
			`$drum (drum-port paw) ::`
			`== ::`
			`:: ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`++ hood-part ::`
implements a kill -ring, with support for meta-y and cumulative kills includes state updates and adapters 2016-07-06 06:44:25 +03:00			`$% {$drum $1 drum-pith} ::`
Various 1st phase. 2015-12-09 04:54:26 +03:00			`{$helm $0 helm-pith} ::`
			`{$kiln $0 kiln-pith} ::`
fix lib/write 2016-02-12 02:29:52 +03:00			`{$write $0 pith:write} ::`
Forgot a file. 2015-05-11 21:05:14 +03:00			`== ::`
			`-- ::`
			`:: :: ::`
			`:::: :: ::`
			`:: :: ::`
Convert + to / in codebase. 2015-12-20 23:50:45 +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			`== ::`
Final conversion of # to +. 2015-12-21 00:16:39 +03:00			`++ able :: find+make part`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`\|* hed/hood-head`
Forgot a file. 2015-05-11 21:05:14 +03:00			`=+ 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`
Double-solid before devulcanization transition attempt. 2016-01-04 03:23:19 +03:00			`\|* {(list) hood-part}`
			`[(flop +<-) %_(+> lac (~(put by lac) +<+< +<+))]`
Forgot a file. 2015-05-11 21:05:14 +03:00			`:: :: ::`
			`:::: :: ::`
			`:: :: ::`
implements a kill -ring, with support for meta-y and cumulative kills includes state updates and adapters 2016-07-06 06:44:25 +03:00			`++ prep ::`
			`\|= old/(unit hood-0) ^- (quip _!! +>)`
			`:- ~`
			`?~ old +>`
			`+>(lac (~(run by lac.u.old) hood-port))`
			`::`
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 ::`
Convert + to / in codebase. 2015-12-20 23:50:45 +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 ::`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`\|= {way/wire saw/(unit tang)}`
autoreload and autoreset 2015-09-17 01:39:11 +03:00			`~? ?=(^ saw) [%kiln-reload-lame u.saw]`
			`[~ +>]`
			`::`
repetitive reloading 2015-09-26 03:23:06 +03:00			`++ coup-kiln-overload ::`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`\|= {way/wire saw/(unit tang)}`
repetitive reloading 2015-09-26 03:23:06 +03:00			`~? ?=(^ saw) [%kiln-overload-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`
Nested cabs. 2015-12-15 01:24:20 +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`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`\|* handle/_finish`
doubly-wet from-* in hood 2015-06-04 01:16:32 +03:00			`\|= _+<.handle`
			`=. +>.handle (start hid (able identity))`
			`(ably (handle +<))`
Fix queuing issue. 2015-05-17 22:39:03 +03:00			`::`
Cab cleanup, pass 1. 2015-12-15 01:21:10 +03:00			`++ from-drum (from-lib %drum [..$ _se-abet]:(drum))`
			`++ from-helm (from-lib %helm [..$ _abet]:(helm))`
			`++ from-kiln (from-lib %kiln [..$ _abet]:(kiln))`
fix lib/write 2016-02-12 02:29:52 +03:00			`++ from-write (from-lib %write [..$ _abet]:(write))`
cli utils, yet untyped 2015-05-28 05:46:58 +03:00			`::`
Convert + to / in codebase. 2015-12-20 23:50:45 +03:00			`++ init-helm \|=({way/wire *} [~ +>])`
fix lib/write 2016-02-12 02:29:52 +03:00			`++ made-write (wrap made):from-write`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ made-kiln (wrap take-made):from-kiln`
			`++ mere-kiln (wrap take-mere):from-kiln`
			`++ mere-kiln-sync (wrap take-mere-sync):from-kiln`
repetitive reloading 2015-09-26 03:23:06 +03:00			`++ wake-kiln-overload (wrap take-wake-overload):from-kiln`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ 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`
Unlink; minor docs changes. 2015-10-20 23:48:11 +03:00			`++ poke-drum-unlink (wrap poke-unlink):from-drum`
fix lib/write 2016-02-12 02:29:52 +03:00			`:: ++ poke-drum-exit (wrap poke-exit):from-drum`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ poke-drum-start (wrap poke-start):from-drum`
			`++ poke-helm-hi (wrap poke-hi):from-helm`
clean up unbound generators 2016-02-06 01:17:30 +03:00			`++ poke-helm-init (wrap poke-init):from-helm :: XX used?`
turn off autoload with \|autoload 2015-09-17 02:40:53 +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`
Prepare for reset. 2015-12-08 03:57:54 +03:00			`++ poke-helm-deset (wrap poke-deset):from-helm`
added kiss-eyre %serv setting web server root beam \|serve ?(desk path:beam) to set 2015-12-05 01:21:37 +03:00			`++ poke-helm-serve (wrap poke-serve):from-helm`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ poke-helm-send-hi (wrap poke-send-hi):from-helm`
added :ask ship request collator, \|ask easter egg 2015-11-26 01:39:24 +03:00			`++ poke-helm-send-ask (wrap poke-send-ask):from-helm`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ poke-helm-verb (wrap poke-verb):from-helm`
			`++ poke-helm-begin (wrap poke-begin):from-helm`
			`++ poke-hood-sync (wrap poke-sync):from-kiln`
reset on initial pull 2016-02-26 02:19:44 +03:00			`++ poke-hood-init-sync (wrap poke-init-sync):from-kiln`
fix #125 2016-05-07 02:21:29 +03:00			`++ poke-kiln-info (wrap poke-info):from-kiln`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ 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-rm (wrap poke-rm):from-kiln`
			`++ poke-kiln-schedule (wrap poke-schedule):from-kiln`
add \|track and case option for \|merge 2016-01-07 01:08:46 +03:00			`++ poke-kiln-track (wrap poke-track):from-kiln`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ poke-kiln-sync (wrap poke-sync):from-kiln`
adds \|syncs hood generator to print all active syncs 2016-07-08 21:15:19 +03:00			`++ poke-kiln-syncs (wrap poke-syncs):from-kiln`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ poke-kiln-start-autoload (wrap poke-start-autoload):from-kiln`
			`++ poke-kiln-autoload (wrap poke-autoload):from-kiln`
repetitive reloading 2015-09-26 03:23:06 +03:00			`++ poke-kiln-overload (wrap poke-overload):from-kiln`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ poke-kiln-unmount (wrap poke-unmount):from-kiln`
			`++ poke-kiln-unsync (wrap poke-unsync):from-kiln`
Merge remote-tracking branch 'arvo/master' into HEAD Conflicts: app/hood.hoon arvo/ford.hoon gen/cat.hoon gen/ls.hoon gen/ls/subdir.hoon 2016-02-19 02:52:34 +03:00			`++ poke-write-sec-atom (wrap poke-sec-atom):from-write`
fix lib/write 2016-02-12 02:29:52 +03:00			`++ poke-write-paste (wrap poke-paste):from-write`
			`++ poke-write-comment (wrap poke-comment):from-write`
write plan data from the web urbit/tree@65b6df2 2016-03-31 01:42:54 +03:00			`++ poke-write-plan-info (wrap poke-plan-info):from-write`
rename plan-data to plan-acct, add info to diffs 2016-03-29 01:17:08 +03:00			`++ poke-write-plan-account (wrap poke-plan-account):from-write`
fix lib/write 2016-02-12 02:29:52 +03:00			`++ poke-write-tree (wrap poke-tree):from-write`
			`++ poke-write-wipe (wrap poke-wipe):from-write`
turn off autoload with \|autoload 2015-09-17 02:40:53 +03:00			`++ 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`
Forgot a file. 2015-05-11 21:05:14 +03:00			`--`