Don't automatically span-escape URLs.

This commit is contained in:
C. Guy Yarvin 2014-03-03 14:47:59 -08:00
parent 231a702852
commit 395ec1d285
2 changed files with 13 additions and 4 deletions

View File

@ -3162,6 +3162,16 @@
?. &(?=(^ gat) ?=(^ +.gat))
[%2 ~]
(mink [[-.gat [sam +>.gat]] -.gat] sky)
::
++ myng
|= [gat=* sam=*]
^- (each ,* (list tank))
=+ ton=(mong [gat sam] |=(* ~))
?- -.ton
%0 [%& p.ton]
%1 [%| (turn p.ton |=(a=* (smyt (path a))))]
%2 [%| p.ton]
==
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: section 2eO, diff (move me) ::
::

View File

@ -1082,12 +1082,11 @@
;~(plug sym ;~(pose (stag ~ ;~(pfix dot sym)) (easy ~)))
[[1 1] (trip i.rax)]
?~ q.vex
[~ [~(rent co %$ %t i.rax) ~]]
[~ [i.rax ~]]
[+.p.u.q.vex [-.p.u.q.vex ~]]
=+ pok=$(rax t.rax)
:- p.pok
:_ q.pok
?:(((sane %tas) i.rax) i.rax ~(rent co %$ %t i.rax))
[i.rax q.pok]
::
++ epur :: url/header parser
|%
@ -1995,7 +1994,7 @@
== ::
== ::
++ plea ,[p=@ud q=[p=? q=@t]] :: live prompt
++ pork ,[p=(unit ,@ta) q=path] :: fully parsed url
++ pork ,[p=(unit ,@ta) q=(list ,@t)] :: fully parsed url
++ prod ,[p=prom q=tape r=tape] :: prompt
++ prom ?(%text %pass %none) :: format type
++ purl ,[p=hart q=pork r=quay] :: parsed url