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

Better show

Browse Source
This commit is contained in:
Jared Hance 2014-07-31 13:22:29 -04:00
parent 36bd690c18
commit 90ebf0155d
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
try/bin/show.hoon
View File

@ -38,11 +38,13 @@
%del [(cat 3 '%del ' (sla pat)) lin] %del [(cat 3 '%del ' (sla pat)) lin]
%ins [(cat 3 '%ins ' (sla pat)) lin] %ins [(cat 3 '%ins ' (sla pat)) lin]
%mut ?> ?=(%c -.q.p.mis) %mut ?> ?=(%c -.q.p.mis)
::=+ ^= con ~& pat
:: %- (hard (list ,@t)) =+ ^= con
:: %- %~ zaul ze %- lore
:: :+ est dom ran %- (hard ,@)
:: (~(got by q.par) pat) %- %~ zaul ze
:+ est dom ran
(~(got by q.par) pat)
%+ welp lin %+ welp lin
%+ welp [(cat 3 '%mut ' (sla pat)) ~] %+ welp [(cat 3 '%mut ' (sla pat)) ~]
^- (list ,@t) ^- (list ,@t)
@ -51,15 +53,18 @@
|= [p=(unce ,@t) [q=(list ,@t) r=@ud]] |= [p=(unce ,@t) [q=(list ,@t) r=@ud]]
?- -.p ?- -.p
%& [q (add r p.p)] %& [q (add r p.p)]
%| =+ new=((hard (list ,@t)) p.p) %| =+ old=((hard (list ,@t)) p.p)
=+ old=((hard (list ,@t)) q.p) =+ new=((hard (list ,@t)) q.p)
=+ ^= pre
?: =(r 0) ~
(slag (dec r) con)
:_ (add r (lent p.p)) :_ (add r (lent p.p))
^- (list ,@t) ^- (list ,@t)
%+ welp q %+ welp q
%+ welp :_ ~ (cat 3 '%chunk ' (scot %u r)) %+ welp :_ ~ (cat 3 '%chunk ' (scot %u r))
%+ welp :_ ~ 'previous line !!!!here' %+ welp ?~ pre ~ :_ ~ i.pre
%+ welp %+ turn old |= t=@t (cat 3 '-< ' t) %+ welp %- flop %+ turn old |= t=@t (cat 3 '-< ' t)
%+ turn new |= t=@t (cat 3 '+> ' t) %- flop %+ turn new |= t=@t (cat 3 '+> ' t)
== ==
== ==
::`gift`[%og des [let hit hut lat]] ::`gift`[%og des [let hit hut lat]]