From 9664f4d70025b54adf8ba45fce6358f066f1444f Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Mon, 14 Dec 2015 17:24:05 -0500
Subject: emacs sisu-mode.el match tic style markup blocks ``` (revisit
 required)

---
 .../sisu/conf/editor-syntax-etc/emacs/sisu-mode.el | 63 ++++++++++++++++++++++
 1 file changed, 63 insertions(+)

(limited to 'data/sisu')

diff --git a/data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el b/data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el
index 4d2641e6..03b2ebfa 100644
--- a/data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el
+++ b/data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el
@@ -150,6 +150,69 @@
       (cons "^table\{.+\\|^\}table"     'general-font-lock-red2)
       (cons "^\{table[^}]+\}"           'general-font-lock-red2)
 
+      (list
+        (concat
+          "^\\(\`\\{3\\}[ ]+code\\)"
+          "\\([^\`]+\\)" ;not satisfactory how to not match three repeated tics ` and how to specify only this type of tic ` (open single quote)
+          ;"\\([^\`]\\{3\\}\\)" ; nope
+          ;"\\([^\`]\\)\\{3\\}" ; ; nope
+          "\\(\`\\{3\\}\\)$"
+        )
+        '(1 general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 general-font-lock-red2 t)
+      )
+      (list
+        (concat
+          "^\\(\`\\{3\\}[ ]+group\\)"
+          "\\([^\`]+\\)" ;not satisfactory how to not match three repeated tics ` and how to specify only this type of tic ` (open single quote)
+          "\\(\`\\{3\\}\\)$"
+        )
+        '(1 general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 general-font-lock-red2 t)
+      )
+      (list
+        (concat
+          "^\\(\`\\{3\\}[ ]+block\\)"
+          "\\([^\`]+\\)" ;not satisfactory how to not match three repeated tics ` and how to specify only this type of tic ` (open single quote)
+          "\\(\`\\{3\\}\\)$"
+        )
+        '(1 general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 general-font-lock-red2 t)
+      )
+      (list
+        (concat
+          "^\\(\`\\{3\\}[ ]+poem\\)"
+          "\\([^\`]+\\)" ;not satisfactory how to not match three repeated tics ` and how to specify only this type of tic ` (open single quote)
+          "\\(\`\\{3\\}\\)$"
+        )
+        '(1 general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 general-font-lock-red2 t)
+      )
+      (list
+        (concat
+          "^\\(\`\\{3\\}[ ]+alt\\)"
+          "\\([^\`]+\\)" ;not satisfactory how to not match three repeated tics ` and how to specify only this type of tic ` (open single quote)
+          "\\(\`\\{3\\}\\)$"
+        )
+        '(1 general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 general-font-lock-red2 t)
+      )
+      (list
+        (concat
+          "^\\(\`\\{3\\}[ ]+table\\)"
+          "\\([^\`]+\\)" ;not satisfactory how to not match three repeated tics ` and how to specify only this type of tic ` (open single quote)
+          "\\(\`\\{3\\}\\)$"
+        )
+        '(1 general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 general-font-lock-red2 t)
+      )
+
       ;; footnote/endnote ----
       ;(cons "\~\{.+?\}\~"  'general-font-lock-green1)
       (cons "\~\{\\*\\*\\|\~\{\\*\\|\~\{\\|\}\~"   'general-font-lock-red2)
-- 
cgit v1.2.3