Handle quote blocks in ejira-parser

nyyManni · Dec 12, 2018 · 9ef57f9 · 9ef57f9
1 parent 6326d55
commit 9ef57f9
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/ejira-parser.el b/ejira-parser.el
@@ -67,6 +67,22 @@
                  ;; Auto-detecting language alters match data, restore it.
                  (set-match-data md)))))
 
+        ;; Quote block
+        ("^{quote}\\(.*\\(?:
+.*\\)*?\\)?
+?{quote}"
+         . (lambda ()
+             (let ((body (match-string 1))
+                   (md (match-data)))
+               (prog1
+                   (concat
+                    "#+BEGIN_QUOTE\n"
+                    (replace-regexp-in-string "^" "  " body)
+                    "\n#+END_QUOTE")
+
+                 ;; Auto-detecting language alters match data, restore it.
+                 (set-match-data md)))))
+
         ;; Link to a user
         ("\\[~\\([a-zA-Z_.]*\\)\\]"
          . (lambda ()