urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-02 08:55:07 +03:00
Code Issues Packages Projects Releases Wiki Activity

Updated ++cite to be compatible with star moons, short planet moons and short comets.

Browse Source
This commit is contained in:
Fang 2016-08-21 20:38:24 +02:00
parent 6d5288b79d
commit cd0416d39f
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
arvo/zuse.hoon
View File

@ -2081,15 +2081,23 @@
?: (lte wid 8) %earl
?> (lte wid 16) %pawn
::
++ cite
++ cite :: ship short name
|= who/@p
^- tape
=+ kind=(clan who)
=+ name=(scow %p who)
?: =(%earl kind)
:(weld "~" (swag [15 6] name) "^" (swag [22 6] name))
=+ park=(clan (sein who))
;: weld
"~"
?: =(park %duke)
(swag [(sub (lent name) 13) 6] name)
~
"^"
(swag [(sub (lent name) 6) 6] name)
==
?: =(%pawn kind)
:(weld (swag [0 7] name) "_" (swag [51 6] name))
:(weld (swag [0 7] name) "_" (swag [(sub (lent name) 6) 6] name))
name
::
++ glam :: carrier names