add .umd urbit-markdown mark

mar/umd.hoon

@@ -0,0 +1,24 @@
+::
+::::  /hoon/umd/mar
+  ::
+/?    310
+::
+|_  mud/@t
+++  grow
+  |%
+  ++  mime  [/text/x-unmark (taco mud)]
+  ++  txt
+    (lore mud)
+  ++  elem
+    ^-  manx
+    [/div ~(shut ap %xml (rash mud fenced:cram:vast))]
+  --
+++  grab
+  |%
+  ++  mime  |=({p/mite q/octs} q.q)
+  ++  noun  @t
+  ++  txt   role
+  --
+++  grad  %txt
+++  garb  /down
+--

ren/tree/body.hoon

@@ -6,7 +6,20 @@
 /=    dat-sen  /|   /:  /%%/  /%  /tree-json/ :: default include
                     /~  ~
                ==
+::
+|%
+++  script-safe
+  !.
+  |=  a/tape  ^-  tape
+  ?~  a  a
+  ?.  ?=({$'<' $'/' *} a)  [i.a $(a t.a)]
+  ['<' '\\' '/' $(a t.t.a)]
+--
+::
 ^-  marl
-;=  ;script(type "text/javascript"): window.tree = {(pojo (jobe data+dat sein+dat-sen ~))}
+;=  ;script(type "text/javascript")
+    ; window.tree =
+    ;-  (script-safe (pojo (jobe data+dat sein+dat-sen ~)))
+    ==
     ;div#tree;
 ==

web/unmark/5.txt

@@ -1,4 +1,3 @@
-  {pathological case}
 
 ## A digital home base
 

web/unmark/all.hoon

@@ -56,7 +56,8 @@
   ;li
     ;h2: CommonMark
     ;ol
-      ;*  ^-  marl
+      ;*  ?:  [disabled=&]  ; DISABLED
+          ^-  marl
           %+  murn  `down`mad
           |=  a/elem:markdown
           ?:  ?=($head -.a)