148 lines
4.1 KiB
Plaintext
148 lines
4.1 KiB
Plaintext
|
/- hood, sur=ucm, tg=tlon-groups
|
||
|
|
/+ sr=sortug
|
||
|
|
|_ [group-name=term =bowl:gall]
|
||
|
|
+$ card card:agent:gall
|
||
|
|
++ blog-diff |= [a=(unit @t) b=(unit @t)] ^- (list card)
|
||
|
|
?~ a ?~ b ~
|
||
|
|
:: :: no a, yes b
|
||
|
|
:~((create-chan %diary u.b))
|
||
|
|
:: :: yes a
|
||
|
|
|
||
|
|
?~ b :~((del-chan %diary u.a))
|
||
|
|
:~((change-diary-name u.a u.b))
|
||
|
|
|
||
|
|
|
||
|
|
++ chat-diff |= [a=(set term) b=(set term)]
|
||
|
|
=/ adif (~(dif in a) b) :: set of elements in a but not in b
|
||
|
|
=/ bdif (~(dif in b) a)
|
||
|
|
%+ weld (del-chats adif) (new-chats bdif)
|
||
|
|
++ forum-diff |= [a=(set term) b=(set term)]
|
||
|
|
=/ adif (~(dif in a) b) :: set of elements in a but not in b
|
||
|
|
=/ bdif (~(dif in b) a)
|
||
|
|
%+ weld (del-diaries adif) (create-diaries bdif)
|
||
|
|
++ radio-diff |= [a=(set term) b=(set term)]
|
||
|
|
=/ adif (~(dif in a) b) :: set of elements in a but not in b
|
||
|
|
=/ bdif (~(dif in b) a)
|
||
|
|
%+ weld (del-radios adif) (new-radios bdif)
|
||
|
|
++ wiki-diff |= [a=(set term) b=(set term)]
|
||
|
|
=/ adif (~(dif in a) b) :: set of elements in a but not in b
|
||
|
|
=/ bdif (~(dif in b) a)
|
||
|
|
%+ weld (del-wikis adif) (new-wikis bdif)
|
||
|
|
::
|
||
|
|
:: chat
|
||
|
|
++ new-chats |= a=(set @t)
|
||
|
|
%+ turn ~(tap in a)
|
||
|
|
|= t=@t (create-chan %chat t)
|
||
|
|
++ del-chats |= a=(set @t)
|
||
|
|
%+ turn ~(tap in a)
|
||
|
|
|= t=@t (del-chan %chat t)
|
||
|
|
:: blog
|
||
|
|
++ create-diaries |= a=(set @t)
|
||
|
|
%+ turn ~(tap in a)
|
||
|
|
|= t=@t (create-chan %diary t)
|
||
|
|
++ del-diaries |= a=(set @t)
|
||
|
|
%+ turn ~(tap in a)
|
||
|
|
|= t=@t (del-chan %diary t)
|
||
|
|
++ create-chan |= [=kind:tg title=@t] ^- card
|
||
|
|
=/ name (enkebab:string:sr title)
|
||
|
|
=/ desc 'TODO'
|
||
|
|
=/ cage :- %channel-command !>
|
||
|
|
:* %create
|
||
|
|
kind=kind
|
||
|
|
name=name
|
||
|
|
group=[p=our.bowl q=group-name]
|
||
|
|
title=title
|
||
|
|
description=desc
|
||
|
|
readers=~
|
||
|
|
writers=~
|
||
|
|
==
|
||
|
|
(poke-card %channels-server cage)
|
||
|
|
++ del-chan |= [=kind:tg t=@t] ^- card
|
||
|
|
=/ name (enkebab:string:sr t)
|
||
|
|
=/ nest [kind our.bowl name]
|
||
|
|
=/ diff [%channel nest %del ~]
|
||
|
|
=/ =cage :- %group-action-3 !>
|
||
|
|
:* [our.bowl group-name]
|
||
|
|
now.bowl
|
||
|
|
diff
|
||
|
|
==
|
||
|
|
(poke-card %groups cage)
|
||
|
|
|
||
|
|
++ change-diary-name |= [a=term b=term] ^- card
|
||
|
|
:: scry the former and add changes
|
||
|
|
:: =/ name (enkebab:string:sr title)
|
||
|
|
:: =/ nest [%diary our.bowl name]
|
||
|
|
:: =/ chan [meta added zone join readers]
|
||
|
|
:: =/ diff [%channel nest %edit chan]
|
||
|
|
=/ cage :- %group-action-3 !>
|
||
|
|
:* [our.bowl group-name]
|
||
|
|
now.bowl
|
||
|
|
:: diff
|
||
|
|
==
|
||
|
|
(poke-card %groups cage)
|
||
|
|
:: forum
|
||
|
|
::
|
||
|
|
++ group-diff |= [a=site:sur b=site:sur] ^- (list card)
|
||
|
|
?: .=(a *site:sur) :_ ~ (create-group sitename.b)
|
||
|
|
~
|
||
|
|
++ create-group |= title=@t ^- card
|
||
|
|
=/ name (enkebab:string:sr title)
|
||
|
|
=/ cage :- %group-create !>
|
||
|
|
:* name=name
|
||
|
|
title=title
|
||
|
|
description=''
|
||
|
|
image='#999999'
|
||
|
|
cover='#D9D9D9'
|
||
|
|
cordon=[%afar [our.bowl dap.bowl] /lol 'idk']
|
||
|
|
members=~
|
||
|
|
secret=%.n
|
||
|
|
==
|
||
|
|
(poke-card %groups cage)
|
||
|
|
:: radio
|
||
|
|
++ new-radios |= a=(set @t)
|
||
|
|
~
|
||
|
|
++ del-radios |= a=(set @t)
|
||
|
|
~
|
||
|
|
++ new-wikis |= a=(set @t)
|
||
|
|
~
|
||
|
|
++ del-wikis |= a=(set @t)
|
||
|
|
~
|
||
|
|
|
||
|
|
++ show-vats
|
||
|
|
=, clay
|
||
|
|
=/ ego (scot %p our.bowl)
|
||
|
|
=/ wen (scot %da now.bowl)
|
||
|
|
=/ desks .^((set desk) %cd /[ego]//[wen])
|
||
|
|
=/ res (report-prep:hood our.bowl now.bowl)
|
||
|
|
=/ rock -.res :: desks and their status
|
||
|
|
:: =/ cone +<.res
|
||
|
|
:: =/ dmp +>-.res
|
||
|
|
:: =/ idk +>+.res
|
||
|
|
:: ~& desks=desks
|
||
|
|
:: ~& rock=rock
|
||
|
|
:: ~& cone=cone
|
||
|
|
:: ~& deskmap=dmp
|
||
|
|
:: ~& idk=idk
|
||
|
|
%ok
|
||
|
|
++ install-card
|
||
|
|
|= [sip=@p app=term]
|
||
|
|
=/ =cage [%kiln-install !>([app sip app])]
|
||
|
|
[%pass /poke %agent [our.bowl %hood] %poke cage]
|
||
|
|
|
||
|
|
++ watch-card
|
||
|
|
|= [=wire app=term] ^- card
|
||
|
|
[%pass wire %agent [our.bowl app] %watch wire]
|
||
|
|
:: ++ leave-card ^- card
|
||
|
|
:: |= [=wire app=term] ^- card
|
||
|
|
:: [%pass wire %agent [our.bowl app] %leave ~]
|
||
|
|
++ poke-card
|
||
|
|
|= [app=term =cage] ^- card
|
||
|
|
[%pass /poke %agent [our.bowl app] %poke cage]
|
||
|
|
++ ui-fact |= [wires=(list path) =cage]
|
||
|
|
[%give %fact wires cage]
|
||
|
|
++ timer-card |= =wire
|
||
|
|
=/ timer
|
||
|
|
%+ add ~s1 -:(rads:~(. og eny.bowl) ~s4)
|
||
|
|
[%pass wire %arvo %b %wait (add now.bowl timer)]
|
||
|
|
--
|