From 96278a7f53ad0463128c3ae90ac4940522206ec8 Mon Sep 17 00:00:00 2001
From: Raymond Pasco <ray@the.ug>
Date: Fri, 6 Nov 2015 02:09:50 -0500
Subject: [PATCH] Implement ;set noob to display nicknames when on

---
 ape/talk.hoon | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/ape/talk.hoon b/ape/talk.hoon
index 09b990931..36e3d31e0 100644
--- a/ape/talk.hoon
+++ b/ape/talk.hoon
@@ -364,7 +364,7 @@
     ::
     ++  sh-rend                                         ::  print on one line
       |=  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-numb                                         ::  print msg number
@@ -891,7 +891,7 @@
       ++  activate                                      ::  from %number
         |=  gam=telegram
         ^+  ..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-prod(active.she `tr-pals:tay)
       ::
@@ -1785,6 +1785,17 @@
         %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
     ^-  tape
     ?:  =(p.one our.hid)
@@ -1904,6 +1915,7 @@
 ::
 ++  tr                                                  ::  telegram renderer
   |_  $:  man=span
+          nob=?
           who=ship
           sen=serial
           aud=audience
@@ -1917,7 +1929,9 @@
     =+  ^=  baw
         ::  ?:  oug 
         ::  ~(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)
   ::
   ++  tr-tang  ^-  tang