From 44c45c5374320241db622f98e5c6c93f8d68485c Mon Sep 17 00:00:00 2001
From: dachus <dachus@dachus>
Date: Sun, 12 Feb 2023 11:26:23 -0600
Subject: [PATCH] html automatically added

---
 app/blog.hoon | 6 +++---
 gen/blog.hoon | 6 ++++--
 mar/mime.hoon | 1 +
 3 files changed, 8 insertions(+), 5 deletions(-)
 create mode 120000 mar/mime.hoon

diff --git a/app/blog.hoon b/app/blog.hoon
index d6912d0..d4686af 100644
--- a/app/blog.hoon
+++ b/app/blog.hoon
@@ -24,8 +24,8 @@
   =+  !<(act=action:blog vase)
   ?-    -.act
       %save-file
-    =*  file  [%posts file.act]
-    =*  nor  `nori:clay`[%& [file %ins %html !>(text.act)]~]
+    =*  fil  [%posts (weld file.act /html)]
+    =*  nor  `nori:clay`[%& [fil %ins %html !>(text.act)]~]
     :_  this
     :~  [%pass / %arvo %c %info %blog nor]
         [%pass /serve %arvo %e %serve `file.act dap.bowl /gen/blog/hoon ~]
@@ -52,7 +52,7 @@
   ::
       [%x %md *]
     :: TODO need to put/scry out actual md files
-    :^  ~  ~  %md
+    :^  ~  ~  %md :: TODO maybe just use a mime type instead of md
     !>(['# %studio test file' ~])
   ::
   ==
diff --git a/gen/blog.hoon b/gen/blog.hoon
index 351f986..3815155 100644
--- a/gen/blog.hoon
+++ b/gen/blog.hoon
@@ -5,9 +5,11 @@
   %-  as-octs:mimes:html
   .^  @t
       %cx
-      %+  weld
+      ;:  weld
         /(scot %p p.byk)/blog/(scot r.byk)/posts
-      (pa:dejs:format [%s url.request])
+        (pa:dejs:format [%s url.request])
+        /html
+      ==
   ==
 :_  `(unit octs)``data
 `response-header:http`[200 ['Content-Type' 'text/html']~]
diff --git a/mar/mime.hoon b/mar/mime.hoon
new file mode 120000
index 0000000..0d85898
--- /dev/null
+++ b/mar/mime.hoon
@@ -0,0 +1 @@
+../../base-dev/mar/mime.hoon
\ No newline at end of file