ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 20:04:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

more canoncial shortening

Browse Source
This commit is contained in:
Anton Dyudin 2015-10-06 12:51:20 -07:00
parent 94e0dc31cf
commit 5635f468fd
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ape/talk.hoon
View File

@ -1814,7 +1814,13 @@
++ chow ++ chow
|= [len=@u txt=tape] |= [len=@u txt=tape]
?: (gth len (lent txt)) txt ?: (gth len (lent txt)) txt
(weld (scag (dec len) txt) "…") =. txt (scag len txt)
|-
?~ txt txt
?: =(' ' i.txt)
|-(['_' ?.(?=([%' ' *] t.txt) t.txt $(txt t.txt))])
?~ t.txt "…"
[i.txt $(txt t.txt)]
:: ::
++ tr-text ++ tr-text
|= oug=? |= oug=?
@ -1823,13 +1829,20 @@
%fat %fat
=+ rem=$(sep q.sep) =+ rem=$(sep q.sep)
?: (gth (lent rem) 62) (chow 64 rem) ?: (gth (lent rem) 62) (chow 64 rem)
=- "{rem} {(chow (sub 62 (lent rem)) -)}" =- "{rem}{(chow (sub 64 (lent rem)) " {-}")}"
?+ -.p.sep "..." ?+ -.p.sep "..."
%tank ~(ram re %rose [" " `~] +.p.sep) %tank ~(ram re %rose [" " `~] +.p.sep)
== ==
:: ::
%url ['/' ' ' (earf p.sep)] %exp (chow 66 '#' ' ' (trip p.sep))
%exp ['#' ' ' (trip p.sep)] %url =+ ful=(earf p.sep)
?: (gth 64 (lent ful)) ['/' ' ' ful]
:+ '/' '_'
=+ hok=r.p.p.p.sep
~! hok
=< ?~(-.hok (reel p.hok .) +:(scow %if p.hok))
|=([a=span b=tape] ?~(b (trip a) (welp b '.' (trip a))))
::
%lin %lin
=+ txt=(trip q.sep) =+ txt=(trip q.sep)
?: p.sep ?: p.sep