Support hard line breaks

nextjournal · Apr 14, 2023 · bc356f5 · bc356f5
1 parent eb7f8a2
commit bc356f5
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/nextjournal/markdown/transform.cljc b/src/nextjournal/markdown/transform.cljc
@@ -328,7 +328,13 @@ par two"
    :softbreak (fn [ctx _]
                 (-> ctx
                     (write new-line)
-                    (cond-> (list-container ctx) (-> write-list-padding (write "  ")))
+                    (cond-> (list-container ctx) (-> write-list-padding (write tab)))
+                    (cond-> (quote? ctx) (write "> "))))
+   :hardbreak (fn [ctx _]
+                (-> ctx
+                    (write "\\")
+                    (write new-line)
+                    (cond-> (list-container ctx) (-> write-list-padding (write tab)))
                     (cond-> (quote? ctx) (write "> "))))
    :blockquote (block write-child-nodes)