From 9227a3cdda6767fc4b4275d15a81d8456aacb430 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 13 May 2020 17:32:40 -0700
Subject: Convert my org files to md and render

Still some bugs, but I will get to them soon.
---
 z.scm | 43 +++++++++++++++++++++----------------------
 1 file changed, 21 insertions(+), 22 deletions(-)

(limited to 'z.scm')

diff --git a/z.scm b/z.scm
index dd091c6..8d86472 100644
--- a/z.scm
+++ b/z.scm
@@ -98,7 +98,7 @@
   (created #:getter created
            #:init-form (date->string (current-date) "~Y.~m.~d..~H.~M"))
   (tags #:accessor tags #:init-keyword #:tags)
-  (content #:accessor content #:init-keyword #:content)
+  (content #:accessor get-content #:init-keyword #:content)
   (path #:getter path
         #:allocation #:virtual
         #:slot-set! (lambda (_) #f)
@@ -114,7 +114,7 @@
         (format file "created: ~a\n" (created node))
         (format file "tags: ~{~a ~}" (tags node))
         (display "---\n" file)
-        (format file "~a" (content node)))))
+        (format file "~a" (get-content node)))))
 
 (define-generic render-li)
 (define-generic render-full)
@@ -243,39 +243,38 @@ NL < '\n'
      (respond
       `((ul
          ,@(turn (list-nodes)
-             (lambda (id)
-               `(li (a (@ (href ,(fmt "/node/~a" id)))
-                       ,(fmt "~a: ~a"
-                             (id->string id)
-                             (title (load-node id))))))))))]
+                 (lambda (id)
+                   `(li (a (@ (href ,(fmt "/node/~a" (id->string id))))
+                           ,(fmt "~a: ~a"
+                                 (id->string id)
+                                 (title (load-node id))))))))))]
     [("node" id)
      (let* ([node (load-node (string->id id))]
-            [txt (or (content node) "")])
+            [txt (or (get-content node) "")])
        (respond `((pre ,txt))
                 #:title (fmt "z - ~a" (title node))))]
     [("tag")
-     (let ((tags (dict.keys *tags*)))
+     (begin
        (reindex)
        (respond
-        `((ul ,@(turn tags
-                  (lambda [tag]
-                    `(li (a (@ (href ,(fmt "/tag/~a" tag)))
-                            ,(fmt "~a" tag)))))))))]
+        `((ul ,@(turn (dict.keys *tags*)
+                      (lambda [tag]
+                        `(li (a (@ (href ,(fmt "/tag/~a" tag)))
+                                ,(fmt "~a" tag)))))))))]
     [("tag" tag)
-     (let ([ids (tagged tag)])
-       (respond
-        `((ul ,@(turn ids
-                  (lambda [id]
-                    `(li (a (@ (href ,(fmt "/node/~a" id)))
-                            ,(fmt "~a:  ~a"
-                                  (id->string id)
-                                  (title (load-node id)))))))))))]
+     (respond
+      `((ul ,@(turn (tagged tag)
+                    (lambda [id]
+                      `(li (a (@ (href ,(fmt "/node/~a" id)))
+                              ,(fmt "~a:  ~a"
+                                    (id->string id)
+                                    (title (load-node id))))))))))]
     [_ (respond "not found")]))
 
 (define* (serve #:key (port 8080))
   (prn "z")
   (prn (fmt "port ~a" port))
-  (http.run-server routes 'http `(#:port ,port)))
+  (http.run-server routes 'http `(#:port ,port #:host "0.0.0.0")))
 
  ;; CLI
 
-- 
cgit v1.2.3