From 2c5e4445b1aa80c9f2373cba2810fe33515f00ac Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 7 Aug 2017 13:17:22 -0700
Subject: [PATCH] add .umd urbit-markdown mark

---
 mar/umd.hoon                  | 24 ++++++++++++++++++++++++
 ren/tree/body.hoon            | 15 ++++++++++++++-
 web/{static.md => static.umd} |  2 +-
 web/unmark/5.txt              |  1 -
 web/unmark/all.hoon           |  3 ++-
 5 files changed, 41 insertions(+), 4 deletions(-)
 create mode 100644 mar/umd.hoon
 rename web/{static.md => static.umd} (81%)

diff --git a/mar/umd.hoon b/mar/umd.hoon
new file mode 100644
index 0000000000..5fc03f6464
--- /dev/null
+++ b/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
+--
diff --git a/ren/tree/body.hoon b/ren/tree/body.hoon
index 506806c8df..e5eae599d3 100644
--- a/ren/tree/body.hoon
+++ b/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;
 ==
diff --git a/web/static.md b/web/static.umd
similarity index 81%
rename from web/static.md
rename to web/static.umd
index 12e9801935..a3e81bc3e7 100644
--- a/web/static.md
+++ b/web/static.umd
@@ -6,4 +6,4 @@ comments: true
 
 You can put static files in here to serve them to the web.  Actually, you can put static files anywhere in `/web` and see them in a browser.
 
-Docs on static publishing with urbit are forthcoming — but feel free to drop markdown files in `/web` to try it out.
\ No newline at end of file
+Docs on static publishing with urbit are forthcoming — but feel free to drop markdown files in `/web` to try it out.
diff --git a/web/unmark/5.txt b/web/unmark/5.txt
index ac34a5fd63..4300fdd551 100644
--- a/web/unmark/5.txt
+++ b/web/unmark/5.txt
@@ -1,4 +1,3 @@
-  {pathological case}
 
 ## A digital home base
 
diff --git a/web/unmark/all.hoon b/web/unmark/all.hoon
index e3e22e4a71..9c7ca6532f 100644
--- a/web/unmark/all.hoon
+++ b/web/unmark/all.hoon
@@ -56,7 +56,8 @@
   ;li
     ;h2: CommonMark
     ;ol
-      ;*  ^-  marl
+      ;*  ?:  [disabled=&]  ; DISABLED
+          ^-  marl
           %+  murn  `down`mad
           |=  a/elem:markdown
           ?:  ?=($head -.a)