urbit/mar/hall/action.hoon

::
::::  /mar/hall/action/hoon
  ::
/-    hall
/+    hall-json
::
|_  act/action:hall
::
++  grab                                                ::>  convert from
  |%
  ++  noun  action:hall                                 ::<  from %noun
  ++  json                                              ::>  from %json
    =>  [. dejs:hall-json]  ::TODO  =,
    =,  dejs-soft:format
    |=  a/json
    ^-  action:hall
    =-  (need ((of -) a))
    :~  create+(ot nom+so des+so sec+secu ~)
        design+(ot nom+so cof+conf ~)
        delete+(ot nom+so why+(mu so) ~)
        depict+(ot nom+so des+so ~)
        filter+(ot nom+so fit+filt ~)
        permit+(ot nom+so inv+bo sis+(as (su fed:ag)) ~)
        source+(ot nom+so sub+bo srs+(as sorc) ~)
        read+(ot nom+so red+ni ~)
        usage+(ot nom+so add+bo tas+(as so) ~)
        ::
        convey+(ar thot)
        phrase+(ot aud+audi ses+(ar spec:dejs:hall-json) ~)
        ::
        notify+(ot aud+audi pes+(mu pres) ~)
        naming+(ot aud+audi man+huma ~)
        ::
        glyph+(ot gyf+so aud+audi bin+bo ~)
        nick+(ot who+(su fed:ag) nic+so ~)
        ::
        public+(ot add+bo cir+circ ~)
    ==
  --
::
++  grow                                                ::>  convert to
  |%
  ++  json                                              ::>  to %json
    =>  [. enjs:hall-json]  ::TODO  =,
    =,  enjs:format
    %+  frond  -.act
    ::>  only %convey has just a single piece of data.
    ?:  ?=($convey -.act)  a+(turn tos.act thot)
    %-  pairs
    ?-  -.act
      $create  ~[nom+s+nom.act des+s+des.act sec+s+sec.act]
      $design  ~[nom+s+nom.act cof+(conf cof.act)]
      $delete  ~[nom+s+nom.act why+(mabe why.act cord:enjs)]
      $depict  ~[nom+s+nom.act des+s+des.act]
      $filter  ~[nom+s+nom.act fit+(filt fit.act)]
      $permit  ~[nom+s+nom.act inv+b+inv.act sis+(sa sis.act ship)]
      $source  ~[nom+s+nom.act sub+b+sub.act srs+(sa srs.act sorc)]
      $read    ~[nom+s+nom.act red+(numb red.act)]
      $usage   ~[nom+s+nom.act add+b+add.act tas+(sa tas.act cord:enjs)]
      ::
      $phrase  ~[aud+(audi aud.act) ses+a+(turn ses.act spec:enjs)]
      ::
      $notify  ~[aud+(audi aud.act) pes+(mabe pes.act cord:enjs)]
      $naming  ~[aud+(audi aud.act) man+(huma man.act)]
      ::
      $glyph   ~[gyf+s+gyf.act aud+(sa aud.act circ) bin+b+bin.act]
      $nick    ~[who+(ship who.act) nic+s+nic.act]
      ::
      $public  ~[add+b+add.act cir+(circ cir.act)]
    ==
  --
--
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`::`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`:::: /mar/hall/action/hoon`
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`::`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`/- hall`
			`/+ hall-json`
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`::`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`\|_ act/action:hall`
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`::`
			`++ grab ::> convert from`
			`\|%`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`++ noun action:hall ::< from %noun`
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`++ json ::> from %json`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`=> [. dejs:hall-json] ::TODO =,`
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`=, dejs-soft:format`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`\|= a/json`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`^- action:hall`
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`=- (need ((of -) a))`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`:~ create+(ot nom+so des+so sec+secu ~)`
Add usage tags to circle configs, allowing clients to store arbitrary meta usage info. 2018-02-14 18:54:51 +03:00			`design+(ot nom+so cof+conf ~)`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`delete+(ot nom+so why+(mu so) ~)`
			`depict+(ot nom+so des+so ~)`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`filter+(ot nom+so fit+filt ~)`
			`permit+(ot nom+so inv+bo sis+(as (su fed:ag)) ~)`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`source+(ot nom+so sub+bo srs+(as sorc) ~)`
Isaac and I merged hall read/unread with latest collections. 2018-06-19 02:23:36 +03:00			`read+(ot nom+so red+ni ~)`
Add usage tags to circle configs, allowing clients to store arbitrary meta usage info. 2018-02-14 18:54:51 +03:00			`usage+(ot nom+so add+bo tas+(as so) ~)`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`::`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`convey+(ar thot)`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`phrase+(ot aud+audi ses+(ar spec:dejs:hall-json) ~)`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`::`
Uncoupled presence from subscriptions. To gain/remove a status in a circle, it now has to un/set by the reader. 2017-11-02 02:44:13 +03:00			`notify+(ot aud+audi pes+(mu pres) ~)`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`naming+(ot aud+audi man+huma ~)`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`::`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`glyph+(ot gyf+so aud+audi bin+bo ~)`
/mar/talk/action to json works. From json currently dig-overs. 2017-10-20 18:42:07 +03:00			`nick+(ot who+(su fed:ag) nic+so ~)`
Updated marks to include $public, irt the public membership list. 2017-11-06 23:20:33 +03:00			`::`
			`public+(ot add+bo cir+circ ~)`
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`==`
			`--`
			`::`
			`++ grow ::> convert to`
			`\|%`
			`++ json ::> to %json`
Renamed %talk-guardian to %hall, %talk-agent to %talk. In /sur, /gen, /mar, /lib renamed files/folders from "talk" to "hall". 2017-11-08 00:05:52 +03:00			`=> [. enjs:hall-json] ::TODO =,`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`=, enjs:format`
			`%+ frond -.act`
			`::> only %convey has just a single piece of data.`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`?: ?=($convey -.act) a+(turn tos.act thot)`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`%- pairs`
			`?- -.act`
			`$create ~[nom+s+nom.act des+s+des.act sec+s+sec.act]`
Add usage tags to circle configs, allowing clients to store arbitrary meta usage info. 2018-02-14 18:54:51 +03:00			`$design ~[nom+s+nom.act cof+(conf cof.act)]`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`$delete ~[nom+s+nom.act why+(mabe why.act cord:enjs)]`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`$depict ~[nom+s+nom.act des+s+des.act]`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`$filter ~[nom+s+nom.act fit+(filt fit.act)]`
			`$permit ~[nom+s+nom.act inv+b+inv.act sis+(sa sis.act ship)]`
			`$source ~[nom+s+nom.act sub+b+sub.act srs+(sa srs.act sorc)]`
Isaac and I merged hall read/unread with latest collections. 2018-06-19 02:23:36 +03:00			`$read ~[nom+s+nom.act red+(numb red.act)]`
Add usage tags to circle configs, allowing clients to store arbitrary meta usage info. 2018-02-14 18:54:51 +03:00			`$usage ~[nom+s+nom.act add+b+add.act tas+(sa tas.act cord:enjs)]`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`::`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`$phrase ~[aud+(audi aud.act) ses+a+(turn ses.act spec:enjs)]`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`::`
Uncoupled presence from subscriptions. To gain/remove a status in a circle, it now has to un/set by the reader. 2017-11-02 02:44:13 +03:00			`$notify ~[aud+(audi aud.act) pes+(mabe pes.act cord:enjs)]`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`$naming ~[aud+(audi aud.act) man+(huma man.act)]`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`::`
Some cleanup. /mar/talk/action now fully functional (but untested). 2017-10-20 20:46:02 +03:00			`$glyph ~[gyf+s+gyf.act aud+(sa aud.act circ) bin+b+bin.act]`
/mar/talk/action to json works. From json currently dig-overs. 2017-10-20 18:42:07 +03:00			`$nick ~[who+(ship who.act) nic+s+nic.act]`
Updated marks to include $public, irt the public membership list. 2017-11-06 23:20:33 +03:00			`::`
			`$public ~[add+b+add.act cir+(circ cir.act)]`
Largely complete /lib/talk-json (still missing diffs), /mar/talk/action. 2017-10-20 00:58:18 +03:00			`==`
tmp progress on talk-json lib & marks 2017-10-12 13:30:16 +03:00			`--`
			`--`