urbit/pkg/arvo/lib/hark/group-hook.hoon

/-  sur=hark-group-hook
/+  resource
^?
=<  [. sur]
=,  sur
|%
++  dejs
  =,  dejs:format
  |%
  ++  action
    %-  of
    :~  listen+dejs-path:resource
        ignore+dejs-path:resource
    ==
  --
::
++  enjs
  =,  enjs:format
  |%
  ++  res
    (cork enjs-path:resource (lead %s))
  ::
  ++  update
    |=  upd=^update
    %+  frond  -.upd
    ?-  -.upd
      ?(%listen %ignore)  (res group.upd)
      :: 
        %initial  
      :-  %a
      (turn ~(tap in watching.upd) res)
    ==
  --
--
hark-hooks: add JSON conversion, marks 2020-10-27 08:04:39 +03:00			`/- sur=hark-group-hook`
			`/+ resource`
			`^?`
			`=< [. sur]`
			`=, sur`
			`\|%`
			`++ dejs`
			`=, dejs:format`
			`\|%`
			`++ action`
			`%- of`
			`:~ listen+dejs-path:resource`
			`ignore+dejs-path:resource`
			`==`
			`--`
			`::`
			`++ enjs`
			`=, enjs:format`
			`\|%`
			`++ res`
			`(cork enjs-path:resource (lead %s))`
hark: address L review 2020-11-10 06:32:48 +03:00			`::`
hark-hooks: add JSON conversion, marks 2020-10-27 08:04:39 +03:00			`++ update`
			`\|= upd=^update`
			`%+ frond -.upd`
			`?- -.upd`
hark: address L review 2020-11-10 06:32:48 +03:00			`?(%listen %ignore) (res group.upd)`
			`::`
hark-hooks: add JSON conversion, marks 2020-10-27 08:04:39 +03:00			`%initial`
			`:- %a`
			`(turn ~(tap in watching.upd) res)`
			`==`
			`--`
			`--`