ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-22 07:59:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

add stub ;nick command

Browse Source
This commit is contained in:
Raymond Pasco 2015-10-08 13:26:42 -04:00
parent 98fc5f5d2f
commit b1c1898812
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ape/talk.hoon
View File

@ -107,6 +107,7 @@
[%banish p=span q=(list partner)] :: blacklist add
[%block p=span q=(list partner)] :: blacklist add
[%author p=span q=(list partner)] :: whitelist add
[%nick ~] ::
[%target p=where q=(unit work)] :: set active targets
:: [%destroy p=span] ::
[%create p=posture q=span r=cord] ::
@ -237,6 +238,8 @@
;~(plug (perk %bind ~) ;~(pfix ace glyph) (punt ;~(pfix ace parz)))
;~((glue ace) (perk %join ~) parz)
;~((glue ace) (perk %what ~) ;~(pose parz glyph))
::
;~(plug (perk %nick ~) (easy ~))
::
;~(plug (perk %help ~) (easy ~))
(stag %number nump)
@ -843,6 +846,7 @@
%author (author +.job)
%block (block +.job)
%create (create +.job)
%nick (nick)
%target (target +.job)
%probe (probe +.job)
%help (help)
@ -857,7 +861,7 @@
sh-prod(active.she `tr-pals:tay)
::
++ help |=(~ (sh-fact %mor talk-doc)) :: %help
++ nick
++ glyph
|= idx=@
=< cha.ole
%+ reel glyphs
@ -875,7 +879,7 @@
=. ..sh-work
=+ (~(get by nik) lix)
?^ - (sh-note "has glyph {<u>}")
=+ cha=(nick (mug lix))
=+ cha=(glyph (mug lix))
=: nik (~(put by nik) lix cha)
nak (~(put ju nak) cha lix)
==
@ -964,6 +968,11 @@
[por ~]
(join [[%& our.hid nom] ~ ~])
::
++ nick
|= *
^+ ..sh-work
!!
::
++ target :: %target
|= [lix=?((set partner) char) woe=(unit ^work)]
=- ?~(woe end work(job u.woe, ..sh-pact end))