summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRalph Amissah <ralph@amissah.com>2015-12-14 22:24:05 +0000
committerRalph Amissah <ralph@amissah.com>2015-12-14 22:57:39 +0000
commit9664f4d70025b54adf8ba45fce6358f066f1444f (patch)
tree542056fad6453c49f6011de36dbb0cf00de6b7de
parentemacs sisu-mode.el & sisu-mode-autoloads.el (diff)
downloadsisu-9664f4d70025b54adf8ba45fce6358f066f1444f.zip
sisu-9664f4d70025b54adf8ba45fce6358f066f1444f.tar.xz
emacs sisu-mode.el match tic style markup blocks ``` (revisit required)
-rw-r--r--data/doc/sisu/CHANGELOG_v73
-rw-r--r--data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el63
2 files changed, 65 insertions, 1 deletions
diff --git a/data/doc/sisu/CHANGELOG_v7 b/data/doc/sisu/CHANGELOG_v7
index 00a458e..520a2cd 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 4d2641e..03b2ebf 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)