ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-12 15:01:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

Small chat fixes

Browse Source
This commit is contained in:
Gavin Whelan 2014-05-31 10:58:39 -07:00
parent 733e1b0a8f
commit 70622cb64e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
main/bin/chat.hoon
View File

@ -252,9 +252,9 @@
++ kill
|= her=(list ,@p)
%= +>
kills (weld her (skip kills |=(@p =(her +<))))
kills (weld her (skip kills |=(a=@p (lien her |=(b=@p =(a b))))))
giz
=+ j=(jam (weld her (skip kills |=(@p =(her +<)))))
=+ j=(jam (weld her (skip kills |=(a=@p (lien her |=(b=@p =(a b)))))))
=+ encoded=(cat 3 (scot %uw j) `@t`10) :: Base-64 encoding
[[%ok (foal /[(scot %p who)]/conf=/chat/killfile/wlist encoded)] giz]
==
@ -262,16 +262,16 @@
++ resurrect
|= her=(list ,@p)
%= +>
kills (skip kills |=(a=@p (lien her |=(a=@p =(a ^a)))))
kills (skip kills |=(a=@p (lien her |=(b=@p =(a b)))))
giz
=+ j=(jam (skip kills |=(a=@p (lien her |=(a=@p =(a ^a))))))
=+ j=(jam (skip kills |=(a=@p (lien her |=(b=@p =(a b))))))
=+ encoded=(cat 3 (scot %uw j) `@t`10) :: Base-64 encoding
[[%ok (foal /[(scot %p who)]/conf=/chat/killfile/wlist encoded)] giz]
==
::
++ add-room
|= roo=(list ^room)
=+ rs=(weld roo (skip rooms |=(a=^room (lien roo |=(a=^room =(a ^a))))))
=+ rs=(weld roo (skip rooms |=(a=^room (lien roo |=(b=^room =(a b))))))
%+ %= joke
sad [%& %&]
rooms rs
@ -285,7 +285,7 @@
::
++ remove-room
|= roo=(list ^room)
=+ rs=(skip rooms |=(a=^room (lien roo |=(a=^room =(a ^a)))))
=+ rs=(skip rooms |=(a=^room (lien roo |=(b=^room =(a b)))))
%+ %= joke
sad [%& %&]
rooms rs