FUEL: fixing markup to indent multiline code correctly

2017-07-09 10:39:16 +02:00 · 2017-07-09 10:39:16 +02:00 · 3dd7ed200f
parent e470a5bb28
commit 3dd7ed200f
1 changed files with 6 additions and 5 deletions
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@ -307,11 +307,12 @@
  (fuel-markup--insert-nl-if-nb)
  (newline)
  (dolist (snip (cdr e))
-    (when indent (insert "    "))
-    (if (stringp snip)
-        (insert (factor-font-lock-string snip))
-      (fuel-markup--print snip))
-    (newline))
+    (unless (stringp snip)
+      (error "snip is not a string"))
+    (dolist (line (split-string (factor-font-lock-string snip) "\n"))
+      (when indent (insert "    "))
+      (insert line)
+      (newline)))
  (newline))

 (defun fuel-markup--command (e)