implement setting nicknames

This commit is contained in:
Raymond Pasco 2015-10-08 16:07:08 -04:00
parent b7870e6751
commit ed90a87d48

View File

@ -978,11 +978,18 @@
[por ~] [por ~]
(join [[%& our.hid nom] ~ ~]) (join [[%& our.hid nom] ~ ~])
:: ::
++ nick ++ nick :: %nick
|= [her=(unit ship) nym=(unit cord)] |= [her=(unit ship) nym=(unit cord)]
^+ ..sh-work ^+ ..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 ++ target :: %target
|= [lix=?((set partner) char) woe=(unit ^work)] |= [lix=?((set partner) char) woe=(unit ^work)]