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)

---
 data/doc/sisu/CHANGELOG_v7                         |  3 +-
 .../sisu/conf/editor-syntax-etc/emacs/sisu-mode.el | 63 ++++++++++++++++++++++
 2 files changed, 65 insertions(+), 1 deletion(-)

diff --git a/data/doc/sisu/CHANGELOG_v7 b/data/doc/sisu/CHANGELOG_v7
index 00a458e0..520a2cd6 100644
--- a/data/doc/sisu/CHANGELOG_v7
+++ b/data/doc/sisu/CHANGELOG_v7
@@ -25,7 +25,8 @@ Reverse Chronological:
 
   * emacs sisu-mode.el & sisu-mode-autoloads.el:
     *  sisu-mode.el, minor update and modify format to reduce diff with FSF
-       version
+       version, and match tic style markup blocks ```
+       (revisit tic block markup, improperly impmented)
     *  sisu-mode-autoloads.el, added (see elpa 3.0.3 & Kevin Ryde recent post)
 
 * sisu_7.1.5.orig.tar.xz (2015-06-02:22/2)
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