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

Eliminate old XML abbreviations.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-07-06 15:16:20 -07:00
parent e35426a8f5
commit 4387713100
4 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/eyre.hoon
View File

@ -258,7 +258,7 @@
:_ luv
:_ ~
^- manx
:- %script
:- [%script ~]
(turn vaz |=([a=cord b=tape] :/("var {(trip a)}={b};")))
::
++ lofi :: insert in body

2
arvo/ford.hoon
View File

@ -1,4 +1,4 @@
!: :: %ford, new execution control
:: :: %ford, new execution control
!? 164
::::
|= pit=vase

5
arvo/hoon.hoon
View File

@ -100,12 +100,11 @@
$|(~ [i=a t=(list a)]) ::
++ lone |*(a=$+(* *) ,p=a) :: just one thing
++ mane $|(@tas [@tas @tas]) :: XML name/space
++ mano ,[g=marx c=marl] :: normalized manx
++ manx $|(@tas [t=marx c=marl]) :: XML node
++ manx ,[g=marx c=marl] :: XML node
++ marl (list manx) :: XML node list
++ mars ,[t=[n=%$ a=[i=[n=%$ v=tape] t=~]] c=~] :: XML cdata
++ mart (list ,[n=mane v=tape]) :: XML attributes
++ marx $|(@tas [n=mane a=mart]) :: XML tag
++ marx ,[n=mane a=mart] :: XML tag
++ metl ?(%gold %iron %zinc %lead) :: core variance
++ noun ,* :: any noun
++ null ,~ :: null, nil, etc

5
arvo/zuse.hoon
View File

@ -875,15 +875,14 @@
++ xmlt :: node to tape
|= [unq=? mex=manx rez=tape]
^- tape
=> .(mex `mano`?^(mex mex [mex ~]))
?: ?=([%$ [[%$ *] ~]] g.mex)
(xmle unq v.i.a.g.mex rez)
=+ man=`mane`?@(g.mex g.mex -.g.mex)
=+ man=`mane`-.g.mex
=. unq |(unq =(%script man) =(%style man))
=+ tam=(xmln man)
=+ end=:(weld "</" tam ">" rez)
=+ bod=['>' (xmll unq c.mex :(weld "</" tam ">" rez))]
=+ att=`mart`?@(g.mex ~ a.g.mex)
=+ att=`mart`a.g.mex
:- '<'
%+ weld tam
`_tam`?~(att bod [' ' (xmla att bod)])