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

minor tweaks

Browse Source
This commit is contained in:
Anton Dyudin 2015-07-06 12:00:01 -07:00
parent 4526a69be9
commit 328f2848a6
4 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
arvo/hoon.hoon
View File

@ -178,7 +178,7 @@
[1 p=term q=toga] :: deep toga
[2 p=toga q=toga] :: cell toga
== ::
++ trap ,_|.(**) :: makes perfect sense
++ trap |*(a=_,* ,_|?(*a)) :: makes perfect sense
++ trel |* [a=$+(* *) b=$+(* *) c=$+(* *)] :: just a triple
,[p=a q=b r=c] ::
++ tuna :: tagflow
@ -593,7 +593,7 @@
[~ u=(b u.a)]
::
++ bond :: replace
|* a=trap
|* a=(trap)
|* b=(unit)
?~ b $:a
u.b
@ -1842,8 +1842,7 @@
^+ (+<+)
=> .(a `tang`a)
?~ a (+<+)
~> %mean.|.(i.a)
$(a t.a)
~_(i.a $(a t.a))
:::::::::::::::::::::::::::::::::::::::::::::::::::::: ::
:::: chapter 2d, containers ::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::

1
mar/html.hoon
View File

@ -14,4 +14,5 @@
-- ::
++ grab |% :: convert from
++ noun ,@t :: clam from %noun
++ mime |=([p=mite q=octs] q.q) :: retrieve form %mime
-- --

3
mar/tang.hoon
View File

@ -14,6 +14,7 @@
--
++ grab :: convert from
|%
++ noun (list tank) :: clam from %noun
++ noun (list ^tank) :: clam from %noun
++ tank |=(a=^tank [a]~)
--
--

18
mar/xml.hoon Normal file
View File

@ -0,0 +1,18 @@
::
:::: /hoon/core/html/mar
::
/? 314
::
:::: compute
::
|_ htm=@t
::
++ grow :: convert to
|% ::
++ mime [/application/xml (taco htm)] :: to %mime
++ hymn (need (poxa htm)) :: to %hymn
-- ::
++ grab |% :: convert from
++ noun ,@t :: clam from %noun
++ mime |=([p=mite q=octs] q.q) :: retrieve form %mime
-- --