ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 19:55:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

Implement ;set noob to display nicknames when on

Browse Source
This commit is contained in:
Raymond Pasco 2015-11-06 02:09:50 -05:00
parent 0ee6175869
commit 96278a7f53
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ape/talk.hoon
View File

@ -364,7 +364,7 @@
:: ::
++ sh-rend :: print on one line ++ sh-rend :: print on one line
|= gam=telegram |= gam=telegram
=+ lin=~(tr-line tr man.she gam) =+ lin=~(tr-line tr man.she (~(has in settings.she) %noob) gam)
(sh-pass:(sh-fact %txt lin) q.q.gam) (sh-pass:(sh-fact %txt lin) q.q.gam)
:: ::
++ sh-numb :: print msg number ++ sh-numb :: print msg number
@ -891,7 +891,7 @@
++ activate :: from %number ++ activate :: from %number
|= gam=telegram |= gam=telegram
^+ ..sh-work ^+ ..sh-work
=+ tay=~(. tr man.she gam) =+ tay=~(. tr man.she (~(has in settings.she) %noob) gam)
=. ..sh-work (sh-fact %tan tr-tang:tay) =. ..sh-work (sh-fact %tan tr-tang:tay)
sh-prod(active.she `tr-pals:tay) sh-prod(active.she `tr-pals:tay)
:: ::
@ -1785,6 +1785,17 @@
%pawn :(welp (scag 7 raw) "_" (scag 6 (slag 51 raw))) %pawn :(welp (scag 7 raw) "_" (scag 6 (slag 51 raw)))
== ==
:: ::
++ sn-nick
|. ^- tape
=+ nym=(~(get by folks) p.one)
?~ nym
(sn-curt |)
?~ hand.u.nym
(sn-curt |)
=+ raw=(trip u.hand.u.nym)
=+ len=(sub 14 (lent raw))
(weld (reap len ' ') raw)
::
++ sn-phat :: render accurately ++ sn-phat :: render accurately
^- tape ^- tape
?: =(p.one our.hid) ?: =(p.one our.hid)
@ -1904,6 +1915,7 @@
:: ::
++ tr :: telegram renderer ++ tr :: telegram renderer
|_ $: man=span |_ $: man=span
nob=?
who=ship who=ship
sen=serial sen=serial
aud=audience aud=audience
@ -1917,7 +1929,9 @@
=+ ^= baw =+ ^= baw
:: ?: oug :: ?: oug
:: ~(te-whom te man tr-pals) :: ~(te-whom te man tr-pals)
(~(sn-curt sn man [who (main who)]) |) ?. nob
(~(sn-curt sn man [who (main who)]) |)
(~(sn-nick sn man [who (main who)]))
(weld baw txt) (weld baw txt)
:: ::
++ tr-tang ^- tang ++ tr-tang ^- tang