From 879a4e6cbe97721bbc6cd18b324524159b4807ef Mon Sep 17 00:00:00 2001 From: Ralph Amissah Date: Thu, 9 May 2013 22:21:33 -0400 Subject: v5 dev branch opened (starts as copy of v4 stable branch); v3 branch closed * 5.0.0 dev opened * 4.1.0 stable * 3.* branch gone --- .../v4/conf/editor-syntax-etc/emacs/sisu-mode.el | 359 --------------------- 1 file changed, 359 deletions(-) delete mode 100644 data/sisu/v4/conf/editor-syntax-etc/emacs/sisu-mode.el (limited to 'data/sisu/v4/conf/editor-syntax-etc/emacs/sisu-mode.el') diff --git a/data/sisu/v4/conf/editor-syntax-etc/emacs/sisu-mode.el b/data/sisu/v4/conf/editor-syntax-etc/emacs/sisu-mode.el deleted file mode 100644 index e738d4b2..00000000 --- a/data/sisu/v4/conf/editor-syntax-etc/emacs/sisu-mode.el +++ /dev/null @@ -1,359 +0,0 @@ -;;; sisu-mode.el --- a major-mode for highlighting a hierarchy structured text. -;; @Author: Ambrose Kofi Laing & Ralph Amissah -;; @Keywords: text, syntax, processes, tools -;; @Version: 4.0.8 2013-02-17 (3.0.7 2011-04-20) (2008-12-14) -;; [3.0.7 2011-04-20 Ambrose Kofi Laing & Ralph Amissah] -;; [4.0.9 2013-02-22 Ralph Amissah] -;; @URL: -;; @Copyright: Assigned to FSF 2011-04-08 (GNU EMACS) -;; @License: GPLv3 -;; @Home URL: SiSU: http://www.jus.uio.no/sisu -;; originally looked at (based on) doc-mode, with kind permission of the author -;; Author: SUN, Tong , (c)2001-6, all right reserved -;; Version: $Date: 2006/01/19 03:13:41 $ $Revision: 1.14 $ -;; Home URL: http://xpt.sourceforge.net/ -;; -;; Distribute freely, but please include the author's info & copyright, -;; the file's version & url with the distribution. -;; -; Viva Software Libre! -;; Support the free software movement! -;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Commentary: -;; -;; To enter sisu-mode automatically, add (autoload 'sisu-mode "sisu-mode") -;; to your .emacs file and change the first line of your sisu file to: -;; # -*- Sisu -*- -;; if it doesn't have a .sisu extension. -;; -;; To handle .sisu files, e.g., 'filename.sisu', add something like -;; (add-to-list 'auto-mode-alist '("\\.sisu$" . sisu-mode)) -;; to your .emacs file -;; -;; The documentation for the "Structure Of The Hierarchy Text" can be found in -;; the sisustring for the sisu-mode function. -;; -;; Variables: -(defgroup sisu-faces nil - "AsciiSisu highlighting" - :group 'sisus) -;; == Colors -; color n is more prominent than color n+1 -(defface sisu-title-1-face - `((((class color) - (background dark)) - (:foreground "brown3" :bold t :height 1.2 :inherit variable-pitch)) - (((class color) - (background light)) - (:foreground "brown3" :bold t :height 1.2 :inherit variable-pitch)) - (t (:weight bold :inherit variable-pitch))) - "Face for AsciiSisu titles at level 1." - :group 'sisu-faces) -(defface sisu-title-2-face - `((((class color) - (background dark)) - (:foreground "yellow4" :bold t :height 1.1 :inherit variable-pitch)) - (((class color) - (background light)) - (:foreground "yellow4" :bold t :height 1.1 :inherit variable-pitch)) - (t (:weight bold :inherit variable-pitch))) - "Face for AsciiSisu titles at level 2." - :group 'sisu-faces) -(defface sisu-title-3-face - `((((class color) - (background dark)) - (:foreground "sienna3" :bold t)) - (((class color) - (background light)) - (:foreground "sienna3" :bold t)) - (t (:weight bold))) - "Face for AsciiSisu titles at level 3." - :group 'sisu-faces) -(defface sisu-title-4-face - `((((class color) - (background dark)) - (:foreground "burlywood3")) - (((class color) - (background light)) - (:foreground "burlywood3")) - (t ())) - "Face for AsciiSisu titles at level 4." - :group 'sisu-faces) -(defface info-node - '((((class color) (background light)) (:foreground "brown" :bold t :italic t)) - (((class color) (background dark)) (:foreground "white" :bold t :italic t)) - (t (:bold t :italic t))) - "Face for Info node names." - :group 'sisu-faces) -(defvar sisu-title-1 'sisu-title-1-face) -(defvar sisu-title-2 'sisu-title-2-face) -(defvar sisu-title-3 'sisu-title-3-face) -(defvar sisu-title-4 'sisu-title-4-face) -(defvar general-font-lock-red1 font-lock-warning-face) -(defvar general-font-lock-red2 font-lock-comment-face) -(defvar general-font-lock-red3 font-lock-string-face) -(defvar general-font-lock-green1 font-lock-type-face) -(defvar general-font-lock-green2 font-lock-constant-face) -(defvar general-font-lock-blue1 font-lock-keyword-face) -(defvar general-font-lock-blue2 font-lock-function-name-face) -(defvar general-font-lock-blue3 font-lock-builtin-face) -(defvar general-font-lock-yellow1 font-lock-variable-name-face) -(defvar general-font-lock-yellow2 font-lock-comment-face) -;; == sisu-mode settings -(defvar sisu-mode-hook nil - "Normal hook run when entering Sisu Text mode.") -(defvar sisu-mode-abbrev-table nil - "Abbrev table in use in Sisu-mode buffers.") -(define-abbrev-table 'sisu-mode-abbrev-table ()) -(defconst sisu-font-lock-keywords - (eval-when-compile - (list - ;;grouped text --------- - (cons "^group\{\\|^\}group" 'general-font-lock-red2) - (cons "^block\{\\|^\}block" 'general-font-lock-red2) - (cons "^code\{\\|^\}code" 'general-font-lock-red2) - (cons "^poem\{\\|^\}poem" 'general-font-lock-red2) - (cons "^alt\{\\|^\}alt" 'general-font-lock-red2) - (cons "^table\{.+\\|^\}table" 'general-font-lock-red2) - (cons "^\{table[^}]+\}" 'general-font-lock-red2) - ;; footnote/endnote ---- - ;(cons "\~\{.+?\}\~" 'general-font-lock-green1) - (cons "\~\{\\*\\*\\|\~\{\\*\\|\~\{\\|\}\~" 'general-font-lock-red2) - (cons "\~\\[\\+\\|\~\\[\\*\\|\~\\[\\|\\]\~" 'general-font-lock-red2) - (cons "\~\\^ \\|^\\^\~ " 'general-font-lock-red2) - (list - (concat - "\\(\*\~\\)" - "\\([^ \r\t\n]+\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-blue2 t) - ) - ;; emphasis (can be program configured to be bold italics or underscore) - (list - (concat - "\\([*]\{\\)" - "\\([^\}]+\\)" - "\\(\}[*]\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - ;; bold ---------------- - (list - (concat - "\\([!]\{\\)" - "\\([^\}]+\\)" - "\\(\}[!]\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - (cons "\\*[^ ]+\\*" 'general-font-lock-red1) - (cons "^!_ .+" 'general-font-lock-red1) - ;; italics ------------- - (list - (concat - "\\([/]\{\\)" - "\\([^\}]+\\)" - "\\(\}[/]\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-blue1 t) - '(3 general-font-lock-red1 t) - ) - ;; underscore ---------- - (list - (concat - "\\([_]\{\\)" - "\\([^\}]+\\)" - "\\(\}[_]\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - ;; monospace ----------- - (list - (concat - "\\([#]\{\\)" - "\\([^\}]+\\)" - "\\(\}[#]\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - ;; citation ------------ - (list - (concat - "\\([\"]\{\\)" - "\\([^\}]+\\)" - "\\(\}[\"]\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - ;; inserted text ------- - (list - (concat - "\\([\+]\{\\)" - "\\([^\}]+\\)" - "\\(\}[\+]\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - ;; strike through ------ - (list - (concat - "\\(\\-\{\\)" - "\\([^\}]+\\)" - "\\(\}\\-\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - ;; superscript --------- - (list - (concat - "\\(\\^\{\\)" - "\\([^\}]+\\)" - "\\(\}\\^\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - ;; subscript ----------- - (list - (concat - "\\([,]\{\\)" - "\\([^\}]+\\)" - "\\(\}[,]\\)" - ) - '(1 general-font-lock-red1 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-red1 t) - ) - ;; numbered list - (cons "^# \\|^_# " 'general-font-lock-red1) - ;; bullet text - (cons "^_\\*[1-9] \\|^_\\* " 'general-font-lock-red1) - ;; indented text - (cons "^_[1-9] " 'general-font-lock-red1) - (cons "^_[1-9]! " 'general-font-lock-red1) - ;; hanging indented text [proposed enable when implemented] - (cons "^__[1-9] " 'general-font-lock-red1) - (cons "^_[0-9]_[0-9] " 'general-font-lock-red1) - (cons "^__[1-9]! " 'general-font-lock-red1) - (cons "^_[0-9]_[0-9]! " 'general-font-lock-red1) - ;; url - (cons "\\(^\\|[ ]\\)http:[/][/][^ \t\n\r<]+" 'general-font-lock-blue2) - ;; Comment Lines - (cons "^% .*" 'general-font-lock-blue1) - ;; page break - (cons "^\\(-\\\\\\\\-\\|=\\\\\\\\=\\|-\\.\\.-\\)" 'general-font-lock-red2) - ;; line break - (cons " \\\\\\\\ " 'general-font-lock-red1) - ;; line break (depreciated) - (cons "
" 'general-font-lock-red1) - ;; Section titles - (list "^\\(\\([1-8]\\|:?[A-C]\\)\\~\\)\\(.*\\)" - '(1 sisu-title-1 t) - '(3 sisu-title-2 t) - ) - ;; hyper-links - (list - (concat - "\\(\{~^\\|\{\\)" - "\\([^\}\{]+\\)" - "\\(\}http:[/][/][^ \r\n\t<]+\\)" - ) - '(1 general-font-lock-blue2 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-blue2 t) - ) - ;; book index - (cons "^\=\{.+\}" 'general-font-lock-green1) - ;; numbers - (cons "\\<[.0-9]+\\>" 'general-font-lock-green2) - ;; bullets sisu_normal (nearly copied regexp) - (cons "^_\\([1-9*]\\|[1-9]\\*\\) " 'general-font-lock-blue2) - ;; image links - (list - (concat - "\\(\{\\)" - "\\([^\}\{]+\\)" - "\\(\}image\\)" - ) - '(1 general-font-lock-blue2 t) - '(2 general-font-lock-red1 t) - '(3 general-font-lock-blue2 t) - ) - ;; insert file links - (list - (concat - "\\(<< \\)" - "\\([^ \r\t\n]+\\.ss\\)" - "\\(i\\|t\\)" - ) - '(1 general-font-lock-blue2 t) - '(2 general-font-lock-blue2 t) - '(3 general-font-lock-blue2 t) - ) - ;; raw keywords - (list - (concat - "^\\(\\@\\(" - "creator\\|" - "title\\|" - "date\\|" - "rights\\|" - "publisher\\|" - "classify\\|" - "identifier\\|" - "original\\|" - "notes\\|" - "links\\|" - "make\\|" - "\\):\\)\\(.*\\)" - ) - '(1 sisu-title-2 keep) - '(3 sisu-title-3 keep) - ) - ) - ) - "Default expressions to highlight in AsciiSisu mode." -) -;; Sisu & Autoload: -;; ##autoload -(define-derived-mode sisu-mode text-mode "SiSU" - "Major mode for editing SiSU files." - (interactive) - (modify-syntax-entry ?\' ".") - ;(flyspell-mode nil) - (make-local-variable 'paragraph-start) - (setq paragraph-start (concat "$\\|>" page-delimiter)) - (make-local-variable 'paragraph-separate) - (setq paragraph-separate paragraph-start) - (make-local-variable 'paragraph-ignore-fill-prefix) - (setq paragraph-ignore-fill-prefix t) - (make-local-variable 'require-final-newline) - (setq require-final-newline t) - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults - '(sisu-font-lock-keywords - nil ; KEYWORDS-ONLY: no - nil ; CASE-FOLD: no - ((?_ . "w")) ; SYNTAX-ALIST - )) - (run-hooks 'sisu-mode-hook) -) -(provide 'sisu-mode) -;; sisu-mode.el ends here -- cgit v1.2.3