From ed90a87d48b70d33eedf44a6e31e7643bbebfff2 Mon Sep 17 00:00:00 2001
From: Raymond Pasco <ray@the.ug>
Date: Thu, 8 Oct 2015 16:07:08 -0400
Subject: [PATCH] implement setting nicknames

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

diff --git a/ape/talk.hoon b/ape/talk.hoon
index 6bb306a7c..4aafda5bd 100644
--- a/ape/talk.hoon
+++ b/ape/talk.hoon
@@ -978,11 +978,18 @@
             [por ~]
         (join [[%& our.hid nom] ~ ~])
       ::
-      ++  nick
+      ++  nick                                          ::  %nick
         |=  [her=(unit ship) nym=(unit cord)]
         ^+  ..sh-work
-        ~&  [her nym]
-        ..sh-work
+        ?:  ?=([~ ~] +<)
+          (sh-note "display all associations")
+        ?~  nym
+          (sh-note "display one assocation")
+        ?~  her
+          (sh-note "display reverse association")
+        %=  ..sh-work
+          folks  (~(put by folks) u.her [true=~ hand=nym])
+        ==
       ::
       ++  target                                        ::  %target
         |=  [lix=?((set partner) char) woe=(unit ^work)]