shrub/pkg/arvo/lib/chat-view.hoon

/-  sur=chat-view, *rw-security
^?
=<  [sur .]
=,  sur
|%
++  dejs
  |%
  ++  action
    |=  jon=json
    ^-  ^action
    =,  dejs:format
    =<  (parse-json jon)
    |%
    ++  parse-json
      %-  of
      :~  [%create create]
          [%delete delete]
          [%join join]
          [%groupify groupify]
      ==
    ::
    ++  create
      %-  ot
      :~  [%title so]
          [%description so]
          [%app-path pa]
          [%group-path pa]
          [%security sec]
          [%members (as (su ;~(pfix sig fed:ag)))]
          [%allow-history bo]
      ==
    ::
    ++  delete
      (ot [%app-path pa]~)
    ::
    ++  join
      %-  ot
      :~  [%ship (su ;~(pfix sig fed:ag))]
          [%app-path pa]
          [%ask-history bo]
      ==
    ::
    ++  groupify
      =-  (ot [%app-path pa] [%existing -] ~)
      (mu (ot [%group-path pa] [%inclusive bo] ~))
    ::
    ++  sec
      =,  dejs:format
      ^-  $-(json rw-security)
      (su (perk %channel %village %journal %mailbox ~))
    --
  --
--
chat: use ^? on libs correctly 2020-04-30 06:29:06 +03:00			`/- sur=chat-view, *rw-security`
			`^?`
			`=< [sur .]`
			`=, sur`
chat: improve namespacing of chat-* types Improved the namespacing by dropping the app prefix on types, e.g. chat-hook-action -> action. Compensated for shadowing by importing the /sur files behind a face. End result is that a chat-hook-action becomes an action:hook. Splits chat-json into lib/chat-{hook,store,view}. Uses ^? on changes files in /lib and /sur to discourage deeply nested importing. 2020-04-25 06:51:28 +03:00			`\|%`
			`++ dejs`
			`\|%`
			`++ action`
			`\|= jon=json`
			`^- ^action`
			`=, dejs:format`
			`=< (parse-json jon)`
			`\|%`
			`++ parse-json`
chat: address review comments 2020-04-29 11:36:12 +03:00			`%- of`
			`:~ [%create create]`
			`[%delete delete]`
			`[%join join]`
			`[%groupify groupify]`
			`==`
chat: improve namespacing of chat-* types Improved the namespacing by dropping the app prefix on types, e.g. chat-hook-action -> action. Compensated for shadowing by importing the /sur files behind a face. End result is that a chat-hook-action becomes an action:hook. Splits chat-json into lib/chat-{hook,store,view}. Uses ^? on changes files in /lib and /sur to discourage deeply nested importing. 2020-04-25 06:51:28 +03:00			`::`
			`++ create`
chat: address review comments 2020-04-29 11:36:12 +03:00			`%- ot`
			`:~ [%title so]`
			`[%description so]`
			`[%app-path pa]`
			`[%group-path pa]`
			`[%security sec]`
			`[%members (as (su ;~(pfix sig fed:ag)))]`
			`[%allow-history bo]`
			`==`
chat: improve namespacing of chat-* types Improved the namespacing by dropping the app prefix on types, e.g. chat-hook-action -> action. Compensated for shadowing by importing the /sur files behind a face. End result is that a chat-hook-action becomes an action:hook. Splits chat-json into lib/chat-{hook,store,view}. Uses ^? on changes files in /lib and /sur to discourage deeply nested importing. 2020-04-25 06:51:28 +03:00			`::`
			`++ delete`
chat: address review comments 2020-04-29 11:36:12 +03:00			`(ot [%app-path pa]~)`
chat: improve namespacing of chat-* types Improved the namespacing by dropping the app prefix on types, e.g. chat-hook-action -> action. Compensated for shadowing by importing the /sur files behind a face. End result is that a chat-hook-action becomes an action:hook. Splits chat-json into lib/chat-{hook,store,view}. Uses ^? on changes files in /lib and /sur to discourage deeply nested importing. 2020-04-25 06:51:28 +03:00			`::`
			`++ join`
chat: address review comments 2020-04-29 11:36:12 +03:00			`%- ot`
			`:~ [%ship (su ;~(pfix sig fed:ag))]`
			`[%app-path pa]`
			`[%ask-history bo]`
			`==`
chat: improve namespacing of chat-* types Improved the namespacing by dropping the app prefix on types, e.g. chat-hook-action -> action. Compensated for shadowing by importing the /sur files behind a face. End result is that a chat-hook-action becomes an action:hook. Splits chat-json into lib/chat-{hook,store,view}. Uses ^? on changes files in /lib and /sur to discourage deeply nested importing. 2020-04-25 06:51:28 +03:00			`::`
			`++ groupify`
chat: address review comments 2020-04-29 11:36:12 +03:00			`=- (ot [%app-path pa] [%existing -] ~)`
			`(mu (ot [%group-path pa] [%inclusive bo] ~))`
chat: improve namespacing of chat-* types Improved the namespacing by dropping the app prefix on types, e.g. chat-hook-action -> action. Compensated for shadowing by importing the /sur files behind a face. End result is that a chat-hook-action becomes an action:hook. Splits chat-json into lib/chat-{hook,store,view}. Uses ^? on changes files in /lib and /sur to discourage deeply nested importing. 2020-04-25 06:51:28 +03:00			`::`
			`++ sec`
chat: address review comments 2020-04-29 11:36:12 +03:00			`=, dejs:format`
			`^- $-(json rw-security)`
			`(su (perk %channel %village %journal %mailbox ~))`
chat: improve namespacing of chat-* types Improved the namespacing by dropping the app prefix on types, e.g. chat-hook-action -> action. Compensated for shadowing by importing the /sur files behind a face. End result is that a chat-hook-action becomes an action:hook. Splits chat-json into lib/chat-{hook,store,view}. Uses ^? on changes files in /lib and /sur to discourage deeply nested importing. 2020-04-25 06:51:28 +03:00			`--`
			`--`
			`--`