emacs sisu-mode.el match tic style markup blocks ``` (revisit required)
authorRalph Amissah <ralph@amissah.com>
Mon, 14 Dec 2015 22:24:05 +0000 (17:24 -0500)
committerRalph Amissah <ralph@amissah.com>
Mon, 14 Dec 2015 22:57:39 +0000 (17:57 -0500)
data/doc/sisu/CHANGELOG_v7
data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el

index 00a458e0d8e2c3a7e17bf26bcd6e0139c2fd0de5..520a2cd62d136839dcdac744f54f4f598df4bb2a 100644 (file)
@@ -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)
index 4d2641e60c3a82b0fc43cb4437422205c2e07c99..03b2ebfadea8fea5cc4a4a5790e358fd67da7465 100644 (file)
       (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)