Fix shit for latex output

directive.lisp

@@ -195,6 +195,9 @@
              do (incf cursor))
        (match! "| " line cursor)))
 
+(defmethod consume-end ((_ blockquote-header) component parser line cursor)
+  cursor)
+
 (defclass blockquote (block-directive)
   ())
 

latex/latex.lisp

@@ -127,7 +127,9 @@
   (when (scan-type component 'components:strikethrough)
     (texfun! usepackage {cancel}))
   (when (scan-type component 'components:blockquote)
-    (texfun! usepackage {csquotes}))
+    (texfun! usepackage {csquotes})
+    (texfun! usepackage {tabularx})
+    (texfun! usepackage {array}))
   (when (scan-type component 'components:code-block)
     (texfun! usepackage {minted}))
   (when (scan-type component 'components:align)
@@ -171,13 +173,23 @@
 
 (define-tex-output components:blockquote-header)
 (define-tex-output components:blockquote
-  (texfun textquote [)
-  (when (components:source component)
-    (loop for child across (components:children (components:source component))
-          do (cl-markless:output child)))
-  (format stream "]{~%")
-  (call-next-method)
-  (format stream "~&}~%"))
+  (cond ((= 0 (components:indentation component))
+         (texfun textquote [)
+         (when (components:source component)
+           (loop for child across (components:children (components:source component))
+                 do (output child)))
+         (format stream "][]{~%")
+         (call-next-method)
+         (format stream "~&}~%"))
+        (T
+         (format stream "~&\\noindent")
+         (texfun! begin{tabularx} "{\\textwidth}{m{5em}X}")
+         (loop for child across (components:children (components:source component))
+               do (output child))
+         (format stream " & ")
+         (call-next-method)
+         (format stream " \\\\")
+         (texfun! end{tabularx}))))
 
 (define-tex-output components:unordered-list
   (texfun! begin{itemize})