From b1c1898812884aaa0801ef4dad4a5065da888dd0 Mon Sep 17 00:00:00 2001
From: Raymond Pasco <ray@the.ug>
Date: Thu, 8 Oct 2015 13:26:42 -0400
Subject: [PATCH] add stub ;nick command

---
 ape/talk.hoon | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/ape/talk.hoon b/ape/talk.hoon
index bd3b1870f6..f5bb0ae954 100644
--- a/ape/talk.hoon
+++ b/ape/talk.hoon
@@ -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))