ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-10 18:21:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

=, all marks and dependencies

Browse Source
This commit is contained in:
Anton Dyudin 2016-11-16 17:30:39 -08:00
parent 85ed6c6860
commit e445aa6e6f
38 changed files with 83 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/down-jet/parse.hoon
View File

@ -3,7 +3,9 @@
:::: /hoon/parse/down-jet/lib
::
/? 310
=, xml:eyre
=* xml xml:eyre
=, js:eyre
=, lines:clay
=+ =~
|%
++ loca |*(a/_* {p/@u q/a})
@ -11,11 +13,12 @@
--
|%
++ htm-enty :: XX belongs in zuse
=, space:clay
~+
=- |= tub/nail ^- (like @t) %. tub :: export context
=+(poxa enty(ent mapping))
=+(parse:xml enty(ent mapping))
^- mapping/(map knot @tF)
=+ pax=/==5%%/html5-entities/json :: XX %%/
=+ pax=/==2%%/html5-entities/json :: XX %%/
=+ maf=%.(pax ;~(biff file (soft json) (om so):jo))
?^ maf u.maf
~& no-enty+pax
@ -165,7 +168,7 @@
$& (madn n.a)
$| (madn p.a)
==
;~(pose empt:poxa (pech [head tail]:poxa))
;~(pose empt:parse:xml (pech [head tail]:parse:xml))
::
++ line
%+ cold [%line ~]

18
lib/down-jet/rend.hoon
View File

@ -3,6 +3,8 @@
:::: /hoon/rend/down-jet/lib
::
/? 310
=* xml xml:eyre
=, url:eyre
!:
|%
++ into-inner
@ -74,14 +76,14 @@
(push (reso ele) ~)
:: begin reparsing of html that the spec jankily lets through ::
=+ tex=(trip (role p.ele))
=^ mar lum (chomp tex (sear |=(a/marl ?~(a ~ (some a))) many:poxa))
=^ mar lum (chomp tex (sear |=(a/marl ?~(a ~ (some a))) many:parse:xml))
?^ mar
(push u.mar)
=^ hed lum (chomp tex head:poxa)
=^ hed lum (chomp tex head:parse:xml)
?^ hed
=+ max=`marx`u.hed
(push(lum q) [max p] ~):[apex(had `n.max) .]
=^ tal lum (chomp tex tail:poxa)
=^ tal lum (chomp tex tail:parse:xml)
?~ tal
=^ cha lum (chomp tex prn)
?^ cha
@ -138,9 +140,9 @@
;meta(value "{(pojo jon)}", name "frontmatter", urb_front "");
:: %html
::=+ tex=(role (turn p.a crip))
::=+ (poxa tex)
::=+ (parse:xml tex)
::?^ - u.-
::=+ (rush tex (star ;~(pose gah comt:poxa)))
::=+ (rush tex (star ;~(pose gah comt:parse:xml)))
::?^ - ;/(~)
::;lost: {<p.a>}
:: ;/([(role (turn p.a crip))]~) :: XX haaaaaaack
@ -173,15 +175,15 @@
apex(p.i.lim (weld p.ele p.i.lim))
(push (reso ele) ~)
=+ tex=(trip p.ele)
=^ emo lim (chomp tex empt:poxa)
=^ emo lim (chomp tex empt:parse:xml)
?^ emo
=+ man=`manx`u.emo
(push man ~)
=^ hed lim (chomp tex head:poxa)
=^ hed lim (chomp tex head:parse:xml)
?^ hed
=+ max=`marx`u.hed
(push(lim q) [max p] ~):[apex(had `n.max) .]
=^ tal lim (chomp tex tail:poxa)
=^ tal lim (chomp tex tail:parse:xml)
?~ tal
(push ;lost:"{tex}" ~)
?: =(had tal)

1
lib/elem-to-react-json.hoon
View File

@ -3,6 +3,7 @@
:::: /hoon/elem-to-react-json/lib
::
/? 310
=, js:eyre
|%
++ react-attrs :: uppercase mapping
~+ ^- (map term cord)

1
lib/frontmatter.hoon
View File

@ -3,6 +3,7 @@
::
/? 310
!:
=, lines:clay
|%
++ atr-lines
|= atr/(map cord cord)

2
mar/ask-mail.hoon
View File

@ -2,6 +2,8 @@
:::: /hoon/ask-mail/mar
::
/? 310
=, js:eyre
=, bytes:eyre
|_ txt/cord
::
++ grab :: convert from

1
mar/coffee.hoon
View File

@ -2,6 +2,7 @@
:::: /hoon/coffee/mar
::
/? 310
=, bytes:eyre
|_ mud/@t
++ grow
|%

1
mar/down.hoon
View File

@ -7,6 +7,7 @@
::
::::
::
=, lines:clay
[markdown .]
|_ don/down
++ grab :: convert from

6
mar/elem.hoon
View File

@ -2,14 +2,14 @@
:::: /hoon/elem/mar
::
/? 310
=, js:e
=, js:eyre
|_ own/manx
::
++ grow :: convert to
|%
++ hymn ;html:(head body:"+{own}") :: convert to %hymn
++ html (crip (poxo:xml:eyre hymn)) :: convert to %html
++ mime [/text/html (taco:js:eyre html)] :: convert to %mime
++ html (crip (print:xml:eyre hymn)) :: convert to %html
++ mime [/text/html (taco:bytes:eyre html)] :: convert to %mime
--
++ garb /snip :: grabbed by
++ grab |% :: convert from

1
mar/gh/issue.hoon
View File

@ -1,5 +1,6 @@
/- gh
/+ gh-parse
=, bytes:eyre
|_ issue/issue:gh
++ grab
|%

1
mar/gh/list-issues.hoon
View File

@ -1,5 +1,6 @@
/- gh
/+ gh-parse
=, bytes:eyre
|_ issues/(list issue:gh)
++ grab
|%

2
mar/helm-hi.hoon
View File

@ -2,6 +2,8 @@
:::: /hoon/helm-hi/mar
::
/? 310
=, bytes:eyre
=, js:eyre
|_ txt/cord
::
++ grab :: convert from

3
mar/html.hoon
View File

@ -5,12 +5,13 @@
::
:::: compute
::
=, xml:eyre
|_ htm/@t
::
++ grow :: convert to
|% ::
++ mime [/text/html (met 3 htm) htm] :: to %mime
++ hymn (need (poxa htm)) :: to %hymn
++ hymn (need (parse htm)) :: to %hymn
-- ::
++ grab |% :: convert from
++ noun @t :: clam from %noun

3
mar/httr.hoon
View File

@ -3,6 +3,9 @@
::
/? 310
!:
=, ^eyre
=, js:eyre
=, lines:clay
|_ hit/httr
++ grow |% ++ wall (turn wain trip)
++ wain (lore cord)

4
mar/hymn.hoon
View File

@ -2,11 +2,13 @@
:::: /hoon/hymn/mar
::
/? 310
=, bytes:eyre
=, xml:eyre
|_ own/manx
::
++ grow :: convert to
|%
++ html (crip (poxo own)) :: convert to %html
++ html (crip (print own)) :: convert to %html
++ mime [/text/html (taco html)] :: convert to %mime
--
++ grab |% :: convert from

1
mar/jam-crub.hoon
View File

@ -3,6 +3,7 @@
::
/? 310
!:
=, bytes:eyre
|_ mud/@
++ grow
|%

1
mar/jam.hoon
View File

@ -3,6 +3,7 @@
::
/? 310
!:
=, bytes:eyre
|_ mud/@
++ grow
|%

2
mar/markdown.hoon
View File

@ -3,6 +3,8 @@
::
/? 310
::
=, bytes:eyre
=, lines:clay
|_ mud/@t
++ grow
|%

4
mar/plan.hoon
View File

@ -6,6 +6,10 @@
!:
:::: ~fyr
::
=, ^eyre
=, js:eyre
=, url:eyre
=, lines:clay
|_ all/{{who/@txname loc/@txloc} acc/(map knot plan-acct)}
::
++ grow :: convert to

1
mar/purl.hoon
View File

@ -2,6 +2,7 @@
:::: /hoon/purl/mar
::
/? 310
=, ^eyre
|_ url/purl
::
++ grow |% ++ hiss [url %get ~ ~]

3
mar/quri.hoon
View File

@ -2,6 +2,9 @@
:::: /hoon/quri/mar
::
/? 310
=, ^eyre
=, url:eyre
=, bytes:eyre
|_ url/quri
::
++ grow |% ++ mime [text+/x-uri (tact (apex:earn url))]

2
mar/recoverable-error.hoon
View File

@ -6,6 +6,8 @@
!:
:::: ~fyr
::
=, ^eyre
=, js:eyre
|_ recoverable-error
++ grab
|%

1
mar/ships.hoon
View File

@ -2,6 +2,7 @@
:::: /hoon/ships/mar
::
/? 310
=, js:eyre
|_ all/(list ship)
++ grab |%
++ noun (list ship)

3
mar/snip.hoon
View File

@ -3,6 +3,7 @@
::
/? 310
=, xml:eyre
=, bytes:eyre
|%
++ words 1
++ hedtal
@ -50,7 +51,7 @@
|%
++ elem ;div:(h1:"*{hed}" div:"*{tal}") :: convert to %elem
++ hymn ;html:(head:title:"snip" body:"+{elem}") :: convert to %hymn
++ html (crip (poxo hymn)) :: convert to %html
++ html (crip (print hymn)) :: convert to %html
++ mime [/text/html (taco html)] :: convert to %mime
--
--

1
mar/talk/report.hoon
View File

@ -6,6 +6,7 @@
/+ talk
!:
[talk .]
=, bytes:eyre
|_ rep/report
::
++ grab :: convert from

1
mar/talk/telegrams.hoon
View File

@ -6,6 +6,7 @@
/+ talk,map-to-json
!:
=+ talk
=, bytes:eyre
|_ gam/(list telegram)
::
++ grab

1
mar/tang.hoon
View File

@ -3,6 +3,7 @@
::
/? 310
!:
=, lines:clay
|_ tan/(list tank)
::
++ grow

8
mar/tree-include.hoon
View File

@ -1,8 +0,0 @@
::
:::: /hoon/tree-include/mar
::
/? 310
/- tree-include
|_ tree-include
++ grab |% ++ noun tree-include
-- --

2
mar/tree/comments.hoon
View File

@ -3,7 +3,7 @@
::
/? 310
/+ elem-to-react-json, time-to-id
=, markup
=, js:eyre
!:
::::
::

1
mar/tree/hymn.hoon
View File

@ -2,6 +2,7 @@
:::: /hoon/hymn/tree/mar
::
/? 310
=, bytes:eyre
|_ own/manx
::
++ grow :: convert to

3
mar/tree/json.hoon
View File

@ -5,7 +5,8 @@
::
:::: compute
::
=, markup
=, js:eyre
=, bytes:eyre
|_ jon/json
::
++ grow :: convert to

4
mar/urb.hoon
View File

@ -3,13 +3,15 @@
::
/? 310
/= urb-wasp-data-js /: /%/wasp-data /js/
=, js:eyre
=, xml:eyre
=, bytes:eyre
!:
|_ {{dep/@uvH hed/marl} {dep-bod/@uvH bod/marl}}
++ grow :: convert to
|%
++ mime [/text/html (taco html)] :: convert to %mime
++ html (crip (poxo hymn)) :: convert to %html
++ html (crip (print hymn)) :: convert to %html
++ hymn :: inject dependencies
^- manx
;html

11
mar/will.hoon
View File

@ -1,11 +0,0 @@
::
:::: /hoon/will/mar
::
/? 310
|_ wyl/(unit will)
::
++ grab :: convert from
|%
++ noun (unit will) :: clam from %noun
--
--

1
mar/write/tree.hoon
View File

@ -3,6 +3,7 @@
::
/? 310
!:
=, bytes:eyre
|_ {sup/spur mim/mime}
++ grab
|%

4
mar/xml.hoon
View File

@ -5,12 +5,14 @@
::
:::: compute
::
=, bytes:eyre
=, xml:eyre
|_ htm/@t
::
++ grow :: convert to
|% ::
++ mime [/application/xml (taco htm)] :: to %mime
++ hymn (need (poxa htm)) :: to %hymn
++ hymn (need (parse htm)) :: to %hymn
-- ::
++ grab |% :: convert from
++ noun @t :: clam from %noun

5
ren/rss-xml.hoon
View File

@ -12,12 +12,15 @@
::
::~& [sum=sum kid=kid]
:: Link from relative path
=, ^eyre
=, url:eyre
=, xml:eyre
=+ hok=.^(hart %e /(scot %p our)/host/real)
=+ ref=|=(a/path (earn hok `(weld tub a) ~))
:: urb:front attrs confuse RSS validators, readers
=+ no-meta=|=(a/marl ^+(a ?~(a ~ ?.(?=($meta n.g.i.a) a $(a t.a)))))
::
%- crip %- poxo
%- crip %- print
;rss(version "2.0")
;channel
;title: *{hed.sum}

1
ren/tree/body.hoon
View File

@ -7,6 +7,7 @@
/~ ~
==
=, xml:eyre
=, js:eyre
^- marl
;= ;script(type "text/javascript"): window.tree = {(pojo (jobe data+dat sein+dat-sen ~))}
;div#tree;

9
ren/tree/head.hoon
View File

@ -5,14 +5,15 @@
/? 310
/= tub /$ |=({bem/beam *} (flop s.bem))
/= aut
/$ %+ cork fuel :: after parsing params,
|= gas/epic ^- ? :: check that the fcgi
/$ %+ cork fuel:url:eyre :: after parsing params,
=, title:jael
|= gas/epic:^eyre ^- ? :: check that the fcgi
%+ lien (~(tap in (~(get ju aut.ced.gas) %$))) :: has an identity
|=(a/knot !=(%pawn (clan (slav %p a)))) :: which isn't a comet
/= dbg
/^ {nopack/? nomin/?}
/$ %+ cork fuel :: after parsing params,
|= gas/epic ^- {? ?} :: check if the query
/$ %+ cork fuel:url:eyre :: after parsing params,
|= gas/epic:^eyre ^- {? ?} :: check if the query
:- (~(has by qix.gas) 'dbg.nopack') :: dictates separate files
(~(has by qix.gas) 'dbg.nomin') :: and/or unminified assets
::

5
ren/tree/json.hoon
View File

@ -4,11 +4,14 @@
/? 310
/- tree-include
/+ tree
/= gas /$ fuel
/= gas /$ fuel:url:eyre
/= dat /^ tree-include /tree-include/
/= kid /^ (map knot tree-include)
/_ /tree-include/
=, js:eyre
=, bytes:eyre
=, base64:eyre
=, space:clay
!:
::::
::