diff options
| author | Ralph Amissah <ralph@amissah.com> | 2015-12-14 17:24:05 -0500 |
|---|---|---|
| committer | Ralph Amissah <ralph@amissah.com> | 2015-12-14 17:57:39 -0500 |
| commit | 9664f4d70025b54adf8ba45fce6358f066f1444f (patch) | |
| tree | 542056fad6453c49f6011de36dbb0cf00de6b7de | |
| parent | emacs sisu-mode.el & sisu-mode-autoloads.el (diff) | |
emacs sisu-mode.el match tic style markup blocks ``` (revisit required)
| -rw-r--r-- | data/doc/sisu/CHANGELOG_v7 | 3 | ||||
| -rw-r--r-- | data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el | 63 |
2 files changed, 65 insertions, 1 deletions
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) |