urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Remove double-escaping

Browse Source
This commit is contained in:
Fang 2017-07-26 12:01:46 -07:00
parent 0ad29f19ce
commit 84eab5b3b7
1 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gen/cram.hoon
View File

@ -512,20 +512,6 @@
%lint
%text
:: ::
++ cape :: xml-escape
::FIXME p sure this is redundant with native manx escaping
|= tex/tape
^- tape
?~ tex tex
=+ $(tex t.tex)
?+ i.tex [i.tex -]
$34 ['&' 'q' 'u' 'o' 't' ';' -]
$38 ['&' 'a' 'm' 'p' ';' -]
$39 ['&' 'a' 'p' 'o' 's' ';' -]
$60 ['&' 'l' 't' ';' -]
$62 ['&' 'g' 't' ';' -]
==
:: ::
++ clue :: tape to xml
|= tex/tape
^- manx:dynamic
@ -695,7 +681,7 @@
$expr [p.nex]~
$bold [[%b ~] ^$(gaf p.nex)]~
$talc [[%i ~] ^$(gaf p.nex)]~
$code [[%code ~] ;/((cape p.nex)) ~]~
$code [[%code ~] ;/(p.nex) ~]~
$quod :: smart quotes
::
%= ^$
@ -704,7 +690,7 @@
%+ weld p.nex
`(list graf)`[%text (tufa ~-~201d. ~)]~
==
$link [[%a [%href (cape q.nex)] ~] ^$(gaf p.nex)]~
$link [[%a [%href q.nex] ~] ^$(gaf p.nex)]~
==
--
:: ::