commit b4701244558f332542872bed0b48501acc5cfdbd
from: Omar Polo <op@omarpolo.com>
date: Sat Nov 07 08:27:15 2020 UTC

[html] don’t generate empty paragraphs

commit - 6046054d41ed73d5c7dd6b308c4fb8b4011e79c0
commit + b4701244558f332542872bed0b48501acc5cfdbd
blob - 3ebff976f629fed54fd9d9444ad202433844af29
blob + b888e62f294f8c34aacbb16239142a2a8d3bb23a
--- src/blog/gemtext.clj
+++ src/blog/gemtext.clj
@@ -185,7 +185,8 @@
                       :li         [:ul [:li a]] ;; TODO!
                       :blockquote [:blockquote a]
                       :link       (link->html t)
-                      :paragraph  [:p a]))
+                      :paragraph  (when (and a (not= a ""))
+                                    [:p a])))
              nil))))
      doc)
     (seq @l)))