shrub/lib/down-jet/rend.hoon

::    ++down rendering arms
!:
::::
  ::
|%
++  into-inner
  |=  {a+marl b+manx}
  ?~  c.b  b(c a)
  $(b i.c.b)
::
++  flat
  |=  a+marl
  ^-  tape
  ?~  a  ~
  %-  weld  :_  $(a t.a)
  ^-  tape
  ?~  n.g.i.a
    ?>(?=(_:/(**) i.a) v.i.a.g.i.a)
  ?+    n.g.i.a  $(a c.i.a)
      $img
    %-  zing  ^-  wall
    %+  murn  a.g.i.a   |=  {a+mane b+tape}  
    ^-  (unit tape)
    ?+  a  ~
      $alt  [~ b]
    ==
  ==
++  sanitize
 |=  a+marl  ^-  tape
 =-  (zing `wall`(scan (flat a) fel))
 =<  fel=;~(sfix (star ;~(plug (cold '-' -) (plus +))) (star next)) 
 [(star ;~(less aln prn)) ;~(pose nud low (cook |=(a+@ (add a ' ')) hig))]
::
++  sang                                                ::  tight item children
  |=  a+(list elem)
  ^-  marl
  ?~  a  ~
  %-  weld  :_  $(a t.a)
  ?.  ?=($para -.i.a)
    (sing i.a ~)
  (sung p.i.a)
::
++  sing                                                ::  elem to manx
  =>  |%
      ++  first-word
        |=  a+tape
        =.  a  (trip (crip a))                          ::  XX valid tapes
        ^-  (unit tape)
        =.  a  q.q:(need q:((star ace) [1 1] a))
        =+  vex=((plus ;~(less ace prn)) [1 1] a)
        ?~  q.vex  ~
        (some (wonk vex))
      --
  =+  [tig=| had=*(unit mane)]
  |=  lum+(list elem)
  |^  ^-  marl
      =+  a=apex
      ?~  q.a
        p.a
      (weld p.a $(lum q.a))
  ::
  ++  apex
    ^-  {p+marl q+_lum}  
    ?~  lum  
      ?~  had  [~ ~]
      (lose "unclosed {<u.had>}")
    =>  [ele=i.lum .(lum t.lum)]
    ?.  ?=($html -.ele)
      (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
      (push u.mar)
    =^  hed  lum  (chomp tex head:poxa)
    ?^  hed
      =+  max=`marx`u.hed
      (push(lum q) [max p] ~):[apex(had `n.max) .]
    =^  tal  lum  (chomp tex tail:poxa)
    ?~  tal
      =^  cha  lum  (chomp tex prn)
      ?^  cha
        (push :/([u.cha]~) ~)
      (push ;lost:"{tex}" ~)
    ?:  =(had tal)
      [~ lum]
    ?^  had
      =.  lum  [ele lum]
      (lose "unclosed {<u.had>}")
    (lose "close {<u.tal>}")
    ::  end reparsing of html that the spec jankily lets through  ::
  ::
  ++  lose  |=(a+tape [[;lost:"{a}"]~ lum])
  ++  chomp
    |*  {tap+tape fel+rule}
    ^-  {(unit _(wonk *fel)) _lum}  
    =+  vex=(fel 1^1 tap)
    ?~  q.vex  [~ lum]
    :-  [~ (wonk vex)]
    ?~(q.q.u.q.vex lum [[%html (lore (crip q.q.u.q.vex))] lum])
  ::
  ++  push
    |=  a+marl
    ^+  apex
    ?~  a  apex
    [[b p] q]:[b=i.a (push t.a)]
  ::
  ++  reso
    |=  a+elem
    ?^  -.a
      =.  tig  ?.(?=($list -.p.a) tig p.p.a)
      ?:  &(tig ?=($item -.p.a))
        [/li (sang q.a)]
      %+  into-inner  ^$(lum q.a)
      ?-  -.p.a
        $bloq  ;blockquote;
        $item  ;li;
        $list  ?@  q.p.a  ;ul;
               ?:  =(1 p.q.p.a)  ;ol;
               =+  num=(pojo (jone p.q.p.a))
               ;ol(start num);
      ==
    ?-  -.a  ::  :/("unimplemented {<p.a>}")
      $html  !!                       ::  handled earlier   XX do type stuff
      $para  [/p (sung p.a)]
      $head  
        =+  [hed=(add %h0 (lsh 3 1 p.a)) kid=(sung q.a)]
        [[hed id/(sanitize kid) ~] kid]
    ::
      $hrul  ;hr;
      $meta  =+  jon=`json`o/(~(run by p.a) |=(cord s/+<))
             ;meta(value "{(pojo jon)}", name "frontmatter", urb_front "");
  ::     %html  
             ::=+  tex=(role (turn p.a crip))
             ::=+  (poxa tex)
             ::?^  -  u.-
             ::=+  (rush tex (star ;~(pose gah comt:poxa)))
             ::?^  -  :/(~)
             ::;lost: {<p.a>}
        :: :/([(role (turn p.a crip))]~)                ::  XX  haaaaaaack
      $defn  :/(~)
      $code  =+  lan=?~(p.a ~ (first-word r.u.p.a))
             =+  tex=(trip (role q.a))
             ?~  lan  ;pre:code:"{tex}"
             ;pre:code(class "language-{u.lan}"):"{tex}"

    ==
  --
::  
++  sung
  |=  lim+kids
  =+  had=*(unit mane)
  |^  ^-  marl
      =+  a=apex
      ?~  q.a
        p.a
      (weld p.a $(lim q.a))
  ::
  ++  apex
    ^-  {p+marl q+_lim}
    ?~  lim  
      ?~  had  [~ ~]
      (lose "unclosed {<u.had>}")
    =>  [ele=i.lim .(lim t.lim)]
    ?.  ?=($htmt -.ele)
      ?:  &(?=($$ -.ele) ?=({{$$ *} *} lim))
        apex(p.i.lim (weld p.ele p.i.lim))  
      (push (reso ele) ~)
    =+  tex=(trip p.ele)
    =^  emo  lim  (chomp tex empt:poxa)
    ?^  emo
      =+  man=`manx`u.emo
      (push man ~)
    =^  hed  lim  (chomp tex head:poxa)
    ?^  hed
      =+  max=`marx`u.hed
      (push(lim q) [max p] ~):[apex(had `n.max) .]
    =^  tal  lim  (chomp tex tail:poxa)
    ?~  tal
      (push ;lost:"{tex}" ~)
    ?:  =(had tal)
      [~ lim]
    ?^  had
      =.  lim  [ele lim]
      (lose "unclosed {<u.had>}")
    (lose "unopened {<u.tal>}")
  ::
  ++  lose  |=(a+tape [[;lost:"{a}"]~ lim])
  ++  chomp
    |*  {tap+tape fel+rule}
    ^-  {(unit _(wonk *fel)) _lim}
    =+  vex=(fel 1^1 tap)
    ?~  q.vex  [~ lim]
    :-  [~ (wonk vex)]
    ?~(q.q.u.q.vex lim [[%htmt (crip q.q.u.q.vex)] lim])
  ::
  ++  push
    |=  a+marl
    ^+  apex
    ?~  a  apex
    [[b p] q]:[b=i.a (push t.a)]
  ::
  ++  urly
    |=  a+tape  ^-  tape
    ?~  a  ~
    :: ?:  (gth i.a 0xff)  "XX"                       ::  XX  
    ?:  ?|  [?=(^ q)]:(alp 1^1 a)
            (~(has in (sa "!*'();:@&=+$,/?#%.~_")) i.a) ::  XX  reparse
        ==
      [i.a $(a t.a)]
    (weld (urle (trip i.a)) $(a t.a))
  ::
  ++  reso
    |=  b+inline
    ^-  manx
    ?@  -.b
      ?-  -.b
        $$     :/(p.b)
        $line  ;br;
        $code  ;code:"{p.b}"
        $htmt  !!  ::p.b              ::  handled earlier ::  XX  do type stuff
      ==
    ?:  ?=($blot -.p.b)
      =+  res=`manx`;img(src (urly p.p.b), alt (flat (turn q.b ..$)));
        :: ;img@"{p.p.b}";
      ?~  q.p.b  res
      res(a.g (welp a.g.res title/u.q.p.b ~))
    =+  kid=(sung q.b)
    %+  into-inner  kid
    ?-  p.b
      {$emph ?}   ?.(p.p.b ;em; ;strong;)
      {$delt $~}  ;del;
      {$link ^}   =+  url=(urly p.p.b)
                  =.  url  ?^(url url "#{(sanitize kid)}")
                  ?~  q.p.b  ;a/"{url}";
                  ;a/"{url}"(title u.q.p.b);
    ==
  --
--