diff options
Diffstat (limited to 'data/sisu/conf/syntax/sisu-mode.el')
| -rw-r--r-- | data/sisu/conf/syntax/sisu-mode.el | 235 |
1 files changed, 0 insertions, 235 deletions
diff --git a/data/sisu/conf/syntax/sisu-mode.el b/data/sisu/conf/syntax/sisu-mode.el deleted file mode 100644 index 6fcfcb3d..00000000 --- a/data/sisu/conf/syntax/sisu-mode.el +++ /dev/null @@ -1,235 +0,0 @@ -;;; sisu-mode.el.el --- Major mode for editing .sisu-files - -;;; It mainly defines a grammar for syntax highlighting. -;;; SiSU http://www.jus.uio.no/sisu - -;;; Copyright 2005 Ralph Amissah - -;;; Author: Ralph Amissah <ralph.amissah@gmail.com> -;;; Version: $Id$ -;;; Keywords: perl sisu - -;;; This program is free software; you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 3, or (at your option) -;;; any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; 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, write to the Free Software -;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - -;;; Commentary: - -;;; This mode is built with help of the -;;; "Emacs language mode creation tutorial" at -;;; http://two-wugs.net/emacs/mode-tutorial.html -;;; -;;; Regexes are defined for the following font-lock-faces: -;;; -;;; font-lock-keyword-face -;;; font-lock-type-face -;;; font-lock-comment-face -;;; font-lock-reference-face -;;; font-lock-doc-string-face -;;; font-lock-function-name-face -;;; - -;;; Usage: - -;;; Put this file into your load-path and the following into your ~/.emacs: -;;; -;;; (require 'sisu-mode.el) -;;; -;;; -;;; To associate sisu-mode.el with .s[tmi] files add the following to your ~/.emacs -;;; -;;; (setq auto-mode-alist -;;; (append auto-mode-alist -;;; '(("\\.ss[tmi]$" . sisu-mode.el)))) -;;; -;;; -;;; To automatically turn on font-lock-mode add the following to your ~/.emacs -;;; -;;; (add-hook 'sisu-mode.el-hook 'font-lock-mode) -;;; -;;; Code: - -;; ;; default variables -;; (defvar sisu-mode.el-hook nil) -;; -;; (defvar sisu-mode-map -;; (let ((sisu-mode-map (make-keymap))) -;; (define-key wpdl-mode-map "\C-j" 'newline-and-indent) -;; sisu-mode-map) -;; "Keymap for SiSU major mode") -;; -;; (add-to-list 'auto-mode-alist '("\\.ss[tmi]\\'" . sisu-mode)) - -(defvar sisu-mode-hook nil) - -(defvar sisu-mode-map - (let ((sisu-mode-map (make-keymap))) - (define-key sisu-mode-map "\C-j" 'newline-and-indent) - sisu-mode-map) - "Keymap for SiSU major mode") -(add-to-list 'auto-mode-alist '("\\.ss[tmi]\\'" . sisu-mode)) - -(defconst sisu-font-lock-keywords-1 - (list - '("\\<\\(BOOK\\|CHAPTER\\).+" . font-lock-builtin-face) -; '("\\<\\(BOOK\\|CHAPTER\\)\\>" . font-lock-builtin-face) - '("\\('\\w*'\\)" . font-lock-variable-name-face)) - "Minimal highlighting expressions for SiSU mode") - -(defconst sisu-font-lock-keywords-2 - (append sisu-font-lock-keywords-1 - (list -; header - '("^0~.+" . font-lock-keyword-face) -; heading - '("^[1-6]~.+" . font-lock-keyword-face) -; bullet - '("\\<\\(_\\*\\|_[12]\\|_\\*[12]\\) " . font-lock-constant-face) -; font, bold italics etc. - '("^!_ .+" . font-lock-constant-face) - '("[/_+-^,]{.+?}[/_+-^,]" . font-lock-constant-face) - '("[!*]{.+?}[!*]" . font-lock-constant-face) -; endnotes - '("~{.+?}~" . font-lock-constant-face) - '("~\\^(\s\\|$)" . font-lock-constant-face) - '("^\\^~\s.+" . font-lock-constant-face) -; links - '("{.+?}http://[^ \n]+" . font-lock-constant-face) - '("http://[^ \n]+" . font-lock-constant-face) -; breaks - '("<:\\(pb\\|np\\)>" . font-lock-constant-face) - '("<\\(\s*/\\)?br>" . font-lock-constant-face) -; comments - '("[a-zA-Z0-9,.::?!&]+http://[^ \n]+" . font-lock-constant-face) - '("^%+ .+" . font-lock-constant-face) -; errors - '("[a-zA-Z0-9,.::?!&]+http://[^ \n]+" . font-lock-constant-face) -; not done -; multiline matches !! -; poem code group alt - '("^code{.+?}code" . font-lock-constant-face) -; '("\\http://[a-zA-Z0-9]+" . font-lock-constant-face) -; '("\\<\\(\\_\\*\\|\\_[12]\\|\\_\\*[12]\\) \\>" . font-lock-constant-face) -; select more appropriate matches - )) - "Additional Keywords to highlight in SiSU mode") - - (defconst sisu-font-lock-keywords-3 - (append sisu-font-lock-keywords-2 - (list -; '("\\<\\(0~\\|[1-6]~\\|!_ \\)\\>" . font-lock-constant-face) - )) - "Balls-out highlighting in SiSU mode") - -(defvar sisu-font-lock-keywords sisu-font-lock-keywords-3 - "Default highlighting expressions for SiSU mode") - - (defvar sisu-mode-syntax-table - (let ((sisu-mode-syntax-table (make-syntax-table))) - (modify-syntax-entry ?_ "w" sisu-mode-syntax-table) -; (modify-syntax-entry ?/ ". 124b" sisu-mode-syntax-table) - (modify-syntax-entry ?* ". 23" sisu-mode-syntax-table) - (modify-syntax-entry ?\n "> b" sisu-mode-syntax-table) - sisu-mode-syntax-table) - "Syntax table for sisu-mode") - -(defun sisu-mode () - "Major mode for editing Workflow Process Description Language files" - (interactive) - (kill-all-local-variables) - (set-syntax-table sisu-mode-syntax-table) - (use-local-map sisu-mode-map) - -(set (make-local-variable 'font-lock-defaults) '(sisu-font-lock-keywords)) -(setq major-mode 'sisu-mode) -(setq mode-name "SiSU") -(run-hooks 'sisu-mode-hook)) -(provide 'sisu-mode.el) - -;; ;; keymap -;; (defvar sisu-mode.el-map nil "Keymap for SiSU major mode.") -;; (if sisu-mode.el-map nil -;; (let ((map (make-sparse-keymap))) -;; ;; insert (define-key map ...) stuff here -;; (setq sisu-mode.el-map map))) -;; -;; syntax highlighting: standard keywords -;; (defconst sisu-font-lock-keywords-1 -;; '( -;; ("^\\(!_\\|_[12]\\|_*\\)" 0 font-lock-keyword-face) -;; ("^_[12]\\(.*\\)$" 1 font-lock-type-face) -;; ;; ("^[ \t]+\\(.*\\)$" 1 font-lock-type-face) -;; ) -;; "Minimal highlighting expressions for SiSU mode.") -;; -;; ;; syntax highlighting: additional keywords -;; (defconst sisu-font-lock-keywords-2 -;; (append sisu-font-lock-keywords-1 -;; '( -;; ("%+ \\(.*\\)" 2 font-lock-comment-face) -;; )) -;; "Additional Keywords to highlight in SiSU mode.") -;; -;; ;; syntax highlighting: even more keywords -;; (defconst sisu-font-lock-keywords-3 -;; (append sisu-font-lock-keywords-2 -;; '( -;; ("^0~.+" 1 font-lock-reference-face) -;; ("^[1-6]~.+" 2 font-lock-reference-face) -;; ;; ("[IBSCF]<\\([^>]*\\)>" 1 font-lock-reference-face) -;; ;; ("L<\\([^|>]*|\\)?\\([^>]+\\)>" 2 font-lock-reference-face) -;; ("L<\\([^|>]*\\)|\\([^>]*\\)>" 1 font-lock-doc-string-face) -;; ("E<\\([^>]*\\)>" 1 font-lock-function-name-face) -;; ("\"\\([^\"]+\\)\"" 0 font-lock-string-face) -;; )) -;; "Balls-out highlighting in SiSU mode.") -;; -;; ;; default level of highlight to maximum -;; (defvar sisu-font-lock-keywords sisu-font-lock-keywords-3 -;; "Default highlighting expressions for SiSU mode") -;; -;; ;; no special indenting, just pure text mode -;; (defun sisu-indent-line () -;; "Indent current line as SiSU code. Does nothing yet." -;; (interactive) -;; ) -;; -;; ;; no special syntax table -;; (defvar sisu-mode.el-syntax-table nil -;; "Syntax table for sisu-mode.el.") -;; -;; ;; create and activate syntax table -;; (defun sisu-create-syntax-table () -;; (if sisu-mode.el-syntax-table -;; () -;; (setq sisu-mode.el-syntax-table (make-syntax-table)) -;; (set-syntax-table sisu-mode.el-syntax-table) -;; )) - -;; main -; (defun sisu-mode.el () -; "Major mode for editing SiSU files." -; (interactive) -; (kill-all-local-variables) -; (sisu-create-syntax-table) -; (use-local-map sisu-mode.el-map) -; (make-local-variable 'font-lock-defaults) -; (setq font-lock-defaults '(sisu-font-lock-keywords 't)) -; ;; (make-local-variable 'indent-line-function) -; ;; (setq indent-line-function 'sisu-indent-line) -; (setq major-mode 'sisu-mode.el) -; (setq mode-name "SiSU") -; (run-hooks 'sisu-mode.el-hook)) - - -;;; sisu-mode.el ends here |