Merge tag 'sisu_7.1.7' into debian/sid
authorRalph Amissah <ralph@amissah.com>
Tue, 5 Jan 2016 14:49:38 +0000 (09:49 -0500)
committerRalph Amissah <ralph@amissah.com>
Tue, 5 Jan 2016 14:49:38 +0000 (09:49 -0500)
SiSU 7.1.7

data/doc/sisu/CHANGELOG_v7
data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el
data/sisu/version.yml
setup/sisu_version.rb

index 8b525044c67fcb8d48fa82a332f5af6778280d83..c9caa971af32bbd40bd7e30f634bd451fa1c4c7f 100644 (file)
@@ -20,13 +20,20 @@ Reverse Chronological:
 
 --- HEAD ---
 
+* sisu_7.1.7.orig.tar.xz (Open commit window: 2015-12-29; Pre-Release)
+  http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=log;h=refs/tags/sisu_7.1.7
+
+  * emacs sisu-mode.el
+    * apply patch from Kevin Ryde of 2015-12-18
+    * tic block markup, and minor arrangement
+
 * sisu_7.1.6.orig.tar.xz (2015-12-15:50/2)
   http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=log;h=refs/tags/sisu_7.1.6
 
   * emacs sisu-mode.el & sisu-mode-autoloads.el:
     *  sisu-mode.el, minor update and modify format to reduce diff with FSF
        version, and match tic style markup blocks ```
-       (revisit tic block markup, improperly impmented)
+       (revisit tic block markup, improperly implemented)
     *  sisu-mode-autoloads.el, added (see elpa 3.0.3 & Kevin Ryde recent post)
 
   * documentation related to search, needs further review
index 03b2ebfadea8fea5cc4a4a5790e358fd67da7465..998a42313177bb7dc19813b02d6aff6525b7fbf6 100644 (file)
@@ -7,8 +7,9 @@
 
 ;; Author: Ralph Amissah & Ambrose Kofi Laing
 ;; Keywords: text, syntax, processes, tools
-;; Version:   7.1.6 2015-12-14 Ralph Amissah,
-;;   5.7.2 2014-10-28 Ralph Amissah,
+;; Version:   7.1.7 2015-12-26 Ralph Amissah,
+;;   including patch from Kevin Ryde;
+;;   5.7.2 2014-10-28 Ralph Amissah;
 ;;   4.0.8 2013-02-17 Ralph Amissah;
 ;;   3.0.7 2011-04-20 Ambrose Kofi Laing & Ralph Amissah;
 ;;   2008-12-14
@@ -31,7 +32,7 @@
 ;; GNU General Public License for more details.
 ;;
 ;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;; along with this program.  If not, see [http://www.gnu.org/licenses/].
 
 ;; Viva Software Libre!
 ;; Support the free software movement!
 (defconst sisu-font-lock-keywords
   (eval-when-compile
     (list
-
+      ;;grouped text ---------
+      ;(cons "^```[ ]code\\(.\\|\n\\)+?\n```\n"      'general-font-lock-red2)
+      (cons "^```[ ]+code.*?$\\|^```$"  'general-font-lock-red2)
+      (cons "^```[ ]+table.*?$\\|^```$" 'general-font-lock-red2)
+      (cons "^```[ ]+group$\\|^```$"    'general-font-lock-red2)
+      (cons "^```[ ]+block$\\|^```$"    'general-font-lock-red2)
+      (cons "^```[ ]+poem$\\|^```$"     'general-font-lock-red2)
+      (cons "^```[ ]+alt$\\|^```$"      'general-font-lock-red2)
       ;;grouped text ---------
       (cons "^group\{\\|^\}group"       'general-font-lock-red2)
       (cons "^block\{\\|^\}block"       '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\\}\\)$"
+          "^\`\\{3\\}[ ]+code.*?$"
+          "\\(.\\|\n\\)+?"
+          "\`\\{3\\}$"
         )
         '(1 general-font-lock-red2 t)
         '(2 nil 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\\}\\)$"
+          "^\`\\{3\\}[ ]+table.*?$"
+          "\\(.\\|\n\\)+?"
+          "\`\\{3\\}$"
         )
         '(1 general-font-lock-red2 t)
         '(2 nil 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\\}\\)$"
+          "^\`\\{3\\}[ ]+\\(group\\|block\\|alt\\|poem\\)$"
+          "\\(.\\|\n\\)+?"
+          "^\`\\{3\\}$"
         )
         '(1 general-font-lock-red2 t)
         '(2 nil t)
 ;; enables outlining for sisu
 (add-hook 'sisu-mode-hook
        '(lambda ()
-         (outline-minor-mode)
-         (setq outline-regexp "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\|\\@[a-z]+:\\( \\|$\\)\\)")))
+         (outline-minor-mode)))
 
 ;;; outline mode "folding" if available
 ;;; TODO make sure linum (line numbering) is off, else performance penalty, sucks bigtime
 ;; C-c @ C-d hide subtree at cursor location
 
 ;; Sisu & Autoload:
-;; ##autoload
 (define-derived-mode sisu-mode text-mode "SiSU"
   "Major mode for editing SiSU files."
   (interactive)
   (make-local-variable 'paragraph-ignore-fill-prefix)
   (setq paragraph-ignore-fill-prefix t)
 
+  (set (make-local-variable 'outline-regexp)
+    "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\|\\@[a-z]+:\\( \\|$\\)\\)")
+
   (make-local-variable 'require-final-newline)
   (setq require-final-newline t)
 
     ))
   (run-hooks 'sisu-mode-hook))
 
-(add-to-list 'auto-mode-alist '("\\.sst$" . sisu-mode))
-(add-to-list 'auto-mode-alist '("\\.ssm$" . sisu-mode))
-(add-to-list 'auto-mode-alist '("\\.ssi$" . sisu-mode))
+;; ##autoload
+(add-to-list 'auto-mode-alist '("\\.sst\\'" . sisu-mode))
+(add-to-list 'auto-mode-alist '("\\.ssm\\'" . sisu-mode))
+(add-to-list 'auto-mode-alist '("\\.ssi\\'" . sisu-mode))
 
 ;;;; ChangeLog:
 
index f7f244cfa9e05efef8de0c85c9700fa3b1a1c7f6..94c536cd71fc8f7722bbf1e517041cefde7dec85 100644 (file)
@@ -1,5 +1,5 @@
 ---
 :project: SiSU
-:version: 7.1.6
-:date_stamp: 2015w50/2
-:date: "2015-12-15"
+:version: 7.1.7
+:date_stamp: 2016w01/2
+:date: "2016-01-05"
index 70d071c94475b2493f2ef282e7021bdc9eee25cf..84c995ba89a2309c28d7fc96b505d752889332df 100644 (file)
@@ -1,6 +1,6 @@
 #% constants
 module SiSUversion
-  SiSU_version                       = '7.1.6'
+  SiSU_version                       = '7.1.7'
 end
 module Dev
   GPGpubKey                          = '1BB4B289'