urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

towards better activation

Browse Source
This commit is contained in:
Anton Dyudin 2015-10-05 15:56:58 -07:00
parent 716abc89a7
commit 624d143a84
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ape/talk.hoon
View File

@ -39,7 +39,7 @@
general=(set bone) :: meta-subscribe
outbox=(pair ,@ud (map ,@ud thought)) :: urbit outbox
folks=(map ship human) :: human identities
shells=(map bone shell) :: interaction state
shells=(map bone shell) :: interaction state
log=(map span ,@ud) :: logged to clay
nik=(map (set partner) char) ::
nak=(jug char (set partner)) ::
@ -743,6 +743,7 @@
++ run ^- (list sole-edit)
?~ buf ~
?: =(i.buf (turf '•'))
?~ con [[%del inx] run(buf t.buf)]
run(con 0, inx +(inx), buf t.buf)
?: =(64 con)
=+ dif=(sub inx sap)
@ -837,8 +838,9 @@
++ activate :: from %number
|= gam=telegram
^+ ..sh-work
~& [%activate gam]
sh-prod(active.she `~(tr-pals tr man.she gam))
=+ tay=~(. tr man.she gam)
=. ..sh-work (sh-fact %tan tr-tank:tay ~)
sh-prod(active.she `tr-pals:tay)
::
++ help |=(~ (sh-fact %mor talk-doc)) :: %help
++ nick
@ -959,6 +961,7 @@
(add num (mul dog (div count.roy dog)))
?: (gte num count.roy)
(sh-lame "{(scow %ud num)}: no such telegram")
~& number/num
(activate (snag (sub count.roy +(num)) grams.roy))
::
++ probe :: inquire
@ -1752,8 +1755,7 @@
sep=speech
==
++ tr-line ^- tape :: one-line print
=+ oug==(who our.hid)
=+ txt=(tr-text oug)
=+ txt=(tr-text =(who our.hid))
?: =(~ txt) ""
=+ ^= baw
:: ?: oug
@ -1761,6 +1763,9 @@
(~(sn-curt sn man [who (main who)]) |)
(weld baw txt)
::
++ tr-tank ^- tank
>+<< :: XX
::
++ tr-pals
^- (set partner)
%- ~(gas in *(set partner))