From 8c197777a2d47208757e2556b29c834c2859e91d Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Thu, 31 Jul 2014 12:24:30 -0700
Subject: [PATCH] Zongs converter up :3

---
 main/pro/zongs/core.hoon | 36 ++++++++++++++++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

diff --git a/main/pro/zongs/core.hoon b/main/pro/zongs/core.hoon
index 16f32b109..a77205c4b 100644
--- a/main/pro/zongs/core.hoon
+++ b/main/pro/zongs/core.hoon
@@ -3,13 +3,45 @@
   ::
 /?  314
 /-  zong
-|_  zog=(list zong)
+|_  zos=(list zong)
 ::
 ++  grab                                                ::  convert from
   |%
   ++  noun                                              ::  convert from %noun
     |=  src=*
     ^+  +>+
-    +>+(zog ((list zong) src))
+    +>+(zos ((list zong) src))
+  --
+::
+++  grow                                                ::  convert to
+  |%
+  ++  hymn                                              ::  convert to %hymn
+    ^-  manx
+    ;html
+      ;head
+        ;title: Zongs!
+      ==
+      ;body   ;table
+        ;*  %+  turn  zos
+        |=  zog=zong
+        =.  p.zog  (lsh 6 1 (rsh 6 1 p.zog))      ::  round off subsecond
+        ;tr   ;td: {<p.zog>}
+              ;td: {<q.zog>}
+              ;+  ?-  -.r.zog
+                      %do
+                    ;td: {(trip p.r.zog)}
+                      %say
+                    ;td: & {(trip p.r.zog)}
+                      %exp
+                    ;td
+                      ;code:"{(trip p.r.zog)}"
+                      ; \a0 {~(ram re q.r.zog)}
+        ==          ==
+      ==          ==
+    ==          ==
+  ++  html
+    (crip (xmlt | hymn ~))
+  ++  mime
+    [/text/html (taco html)]
   --
 --