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

Added sail multi-classes

Browse Source
This commit is contained in:
Anton Dyudin 2014-12-09 13:52:43 -08:00
parent 9d6031e881
commit e0814b6eae
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
arvo/hoon.hoon
View File

@ -8578,21 +8578,23 @@
++ hog :: tag head
%+ cook
|= $: a=twig
b=(unit ,@tas)
c=(unit ,@tas)
d=(unit twig)
e=(list twig)
b=(list ,[@tas @tas])
c=$|(~ [p=@tas q=twig])
d=(list twig)
==
^- [twig (list twig)]
=. e ?~(b e [[[%dtzz %tas %class] [%smdq (trip u.b)]] e])
=. e ?~(c e [[[%dtzz %tas %id] [%smdq (trip u.c)]] e])
=. e ?~(d e [[[%dtzz %tas %href] u.d] e])
[a e]
=- [a (welp - ?~(c d [[[%dtzz %tas p.c] q.c] d]))]
=- (~(tap by -))
%. |=(e=(list tank) [%smdq ~(ram re %rose [" " `~] e)])
=< ~(run by f:(reel b .))
|= [e=[p=term q=term] f=(jar twig tank)]
(~(add ja f) [[%dtzz %tas p.e] [%leaf (trip q.e)]])
;~ plug
fry
;~(pose (stag ~ ;~(pfix dot sym)) (easy ~))
;~(pose (stag ~ ;~(pfix hax sym)) (easy ~))
;~(pose (stag ~ ;~(pfix fas (stag %smdq soil))) (easy ~))
=- (star ;~(plug - sym))
;~(pose (cold %class dot) (cold %id hax))
=- ;~(pose ;~(plug - (stag %smdq soil)) (easy ~))
;~(pose (cold %href fas) (cold %src pat))
;~ pose
%+ ifix [pel per]
%+ more ;~(plug com ace)