mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 03:44:34 +03:00
71 lines
1.8 KiB
Plaintext
71 lines
1.8 KiB
Plaintext
|
::
|
||
|
|
:::: /hoon/snip/mar
|
||
|
|
::
|
||
|
|
/? 310
|
||
|
|
=, html
|
||
|
|
::
|
||
|
|
|%
|
||
|
|
++ words 1
|
||
|
|
++ hedtal
|
||
|
|
=| met/marl
|
||
|
|
|= a/marl ^- {hed/marl tal/marl}
|
||
|
|
?~ a [~ ~]
|
||
|
|
:: looks like it only terminates if it finds an h1?
|
||
|
|
?. ?=($h1 n.g.i.a)
|
||
|
|
?: ?=($meta n.g.i.a)
|
||
|
|
$(a t.a, met [i.a met])
|
||
|
|
=+ had=$(a c.i.a)
|
||
|
|
?^ -.had had
|
||
|
|
$(a t.a)
|
||
|
|
[c.i.a (weld (flop met) (limit words t.a))]
|
||
|
|
::
|
||
|
|
::
|
||
|
|
++ limit
|
||
|
|
|= {lim/@u mal/marl}
|
||
|
|
=< res
|
||
|
|
|- ^- {rem/@u res/marl}
|
||
|
|
?~ mal [lim ~]
|
||
|
|
?~ lim [0 ~]
|
||
|
|
=+ ^- {lam/@u hed/manx}
|
||
|
|
?: ?=(_;/(**) i.mal)
|
||
|
|
[lim ;/(tay)]:(deword lim v.i.a.g.i.mal)
|
||
|
|
[rem ele(c res)]:[ele=i.mal $(mal c.i.mal)]
|
||
|
|
[rem - res]:[hed $(lim lam, mal t.mal)]
|
||
|
|
::
|
||
|
|
++ deword
|
||
|
|
|= {lim/@u tay/tape} ^- {lim/@u tay/tape}
|
||
|
|
?~ tay [lim tay]
|
||
|
|
?~ lim [0 ~]
|
||
|
|
=+ wer=(dot 1^1 tay)
|
||
|
|
?~ q.wer
|
||
|
|
[lim - tay]:[i.tay $(tay t.tay)]
|
||
|
|
=+ nex=$(lim (dec lim), tay q.q.u.q.wer)
|
||
|
|
[-.nex [(wonk wer) +.nex]]
|
||
|
|
--
|
||
|
|
::
|
||
|
|
::
|
||
|
|
=, mimes:html
|
||
|
|
|_ {hed/marl tal/marl}
|
||
|
|
::
|
||
|
|
++ grow :: convert to
|
||
|
|
|%
|
||
|
|
++ mime
|
||
|
|
=< mime
|
||
|
|
|%
|
||
|
|
++ elem ;div:(h1:"*{hed}" div:"*{tal}") :: convert to %elem
|
||
|
|
++ hymn ;html:(head:title:"snip" body:"+{elem}") :: convert to %hymn
|
||
|
|
++ html (crip (en-xml hymn)) :: convert to %html
|
||
|
|
++ mime [/text/html (as-octs html)] :: convert to %mime
|
||
|
|
--
|
||
|
|
--
|
||
|
|
++ grab |% :: convert from
|
||
|
|
++ noun {marl marl} :: clam from $noun
|
||
|
|
:: this will bork stuff with no title?
|
||
|
|
++ elem
|
||
|
|
|= a/manx
|
||
|
|
=/ ht (hedtal +.a)
|
||
|
|
:: if there is no title, just produce the first 5 manx
|
||
|
|
?~ hed.ht [~ (scag 5 c.a)]
|
||
|
|
ht
|
||
|
|
-- --
|