;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301%\210\306\312\313\314\304\301%\210\306\315\316\317\304\301%\210\306\320\321\322\304\301%\210\306\323\324\325\304\301%\207" [custom-declare-group sisu-faces nil "AsciiSisu highlighting" :group sisus custom-declare-face 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." 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." 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." sisu-title-4-face ((((class color) (background dark)) (:foreground "burlywood3")) (((class color) (background light)) (:foreground "burlywood3")) (t nil)) "Face for AsciiSisu titles at level 4." 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."] 6) (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 sisu-general-font-lock-red1 font-lock-warning-face) (defvar sisu-general-font-lock-red2 font-lock-comment-face) (defvar sisu-general-font-lock-red3 font-lock-string-face) (defvar sisu-general-font-lock-green1 font-lock-type-face) (defvar sisu-general-font-lock-green2 font-lock-constant-face) (defvar sisu-general-font-lock-blue1 font-lock-keyword-face) (defvar sisu-general-font-lock-blue2 font-lock-function-name-face) (defvar sisu-general-font-lock-blue3 font-lock-builtin-face) (defvar sisu-general-font-lock-yellow1 font-lock-variable-name-face) (defvar sisu-general-font-lock-yellow2 font-lock-comment-face) #@47 Normal hook run when entering Sisu Text mode. (defvar sisu-mode-hook nil (#$ . 2410)) #@43 Abbrev table in use in Sisu-mode buffers. (defvar sisu-mode-abbrev-table nil (#$ . 2502)) (define-abbrev-table 'sisu-mode-abbrev-table nil) #@53 Default expressions to highlight in AsciiSisu mode. (defconst sisu-font-lock-keywords '(("^```[ ]+code.*?$\\|^```$" . sisu-general-font-lock-red2) ("^```[ ]+table.*?$\\|^```$" . sisu-general-font-lock-red2) ("^```[ ]+group$\\|^```$" . sisu-general-font-lock-red2) ("^```[ ]+block$\\|^```$" . sisu-general-font-lock-red2) ("^```[ ]+poem$\\|^```$" . sisu-general-font-lock-red2) ("^```[ ]+alt$\\|^```$" . sisu-general-font-lock-red2) ("^group{\\|^}group" . sisu-general-font-lock-red2) ("^block{\\|^}block" . sisu-general-font-lock-red2) ("^code{\\|^}code" . sisu-general-font-lock-red2) ("^poem{\\|^}poem" . sisu-general-font-lock-red2) ("^alt{\\|^}alt" . sisu-general-font-lock-red2) ("^table{.+\\|^}table" . sisu-general-font-lock-red2) ("^{table[^}]+}" . sisu-general-font-lock-red2) ("^`\\{3\\}[ ]+code.*?$\\(.\\|\n\\)+?`\\{3\\}$" (1 sisu-general-font-lock-red2 t) (2 nil t) (3 sisu-general-font-lock-red2 t)) ("^`\\{3\\}[ ]+table.*?$\\(.\\|\n\\)+?`\\{3\\}$" (1 sisu-general-font-lock-red2 t) (2 nil t) (3 sisu-general-font-lock-red2 t)) ("^`\\{3\\}[ ]+\\(group\\|block\\|alt\\|poem\\)$\\(.\\|\n\\)+?^`\\{3\\}$" (1 sisu-general-font-lock-red2 t) (2 nil t) (3 sisu-general-font-lock-red2 t)) ("~{\\*\\*\\|~{\\*\\|~{\\|}~" . sisu-general-font-lock-red2) ("~\\[\\+\\|~\\[\\*\\|~\\[\\|\\]~" . sisu-general-font-lock-red2) ("~\\^ \\|^\\^~ " . sisu-general-font-lock-red2) ("\\(*~\\)\\([^ \n]+\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-blue2 t)) ("\\([*]{\\)\\([^}]+\\)\\(}[*]\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("\\([!]{\\)\\([^}]+\\)\\(}[!]\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("\\*[^ ]+\\*" . sisu-general-font-lock-red1) ("^!_ .+" . sisu-general-font-lock-red1) ("\\([/]{\\)\\([^}]+\\)\\(}[/]\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-blue1 t) (3 sisu-general-font-lock-red1 t)) ("\\([_]{\\)\\([^}]+\\)\\(}[_]\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("\\([#]{\\)\\([^}]+\\)\\(}[#]\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("\\([\"]{\\)\\([^}]+\\)\\(}[\"]\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("\\([+]{\\)\\([^}]+\\)\\(}[+]\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("\\(\\-{\\)\\([^}]+\\)\\(}\\-\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("\\(\\^{\\)\\([^}]+\\)\\(}\\^\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("\\([,]{\\)\\([^}]+\\)\\(}[,]\\)" (1 sisu-general-font-lock-red1 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-red1 t)) ("^# \\|^_# " . sisu-general-font-lock-red1) ("^_\\*[1-9] \\|^_\\* " . sisu-general-font-lock-red1) ("^_[1-9] " . sisu-general-font-lock-red1) ("^_[1-9]! " . sisu-general-font-lock-red1) ("^__[1-9] " . sisu-general-font-lock-red1) ("^_[0-9]_[0-9] " . sisu-general-font-lock-red1) ("^__[1-9]! " . sisu-general-font-lock-red1) ("^_[0-9]_[0-9]! " . sisu-general-font-lock-red1) ("\\(^\\|[ ]\\)http:[/][/][^ \n <]+" . sisu-general-font-lock-blue2) ("^% .*" . sisu-general-font-lock-blue1) ("^\\(-\\\\\\\\-\\|=\\\\\\\\=\\|-\\.\\.-\\)" . sisu-general-font-lock-red2) (" \\\\\\\\ " . sisu-general-font-lock-red1) ("
" . sisu-general-font-lock-red1) ("^\\(\\([1-4]\\|:?[A-D]\\)\\~\\)\\(.*\\)" (1 sisu-title-1 t) (3 sisu-title-2 t)) ("\\({~^\\|{\\)\\([^}{]+\\)\\(}http:[/][/][^ \n <]+\\)" (1 sisu-general-font-lock-blue2 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-blue2 t)) ("^\\(={\\)\\([^}{]+\\)\\(}\\)$" (1 sisu-general-font-lock-green1 t) (2 nil t) (3 sisu-general-font-lock-green1 t)) ("\\<[.0-9]+\\>" . sisu-general-font-lock-green2) ("^_\\([1-9*]\\|[1-9]\\*\\) " . sisu-general-font-lock-blue2) ("\\({\\)\\([^}{]+\\)\\(}image\\)" (1 sisu-general-font-lock-blue2 t) (2 sisu-general-font-lock-red1 t) (3 sisu-general-font-lock-blue2 t)) ("\\(<< \\)\\([^ \n]+\\.ss\\)\\(i\\|t\\)" (1 sisu-general-font-lock-blue2 t) (2 sisu-general-font-lock-blue2 t) (3 sisu-general-font-lock-blue2 t)) ("^\\(\\@\\(creator\\|title\\|date\\|rights\\|publisher\\|classify\\|identifier\\|original\\|notes\\|links\\|make\\|\\):\\)\\(.*\\)" (1 sisu-title-2 keep) (3 sisu-title-3 keep))) (#$ . 2648)) (defvar sisu-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [sisu-mode-hook variable-documentation put "Hook run after entering SiSU mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp sisu-mode-map definition-name sisu-mode] 4) (defvar sisu-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [sisu-mode-abbrev-table sisu-mode-map variable-documentation put purecopy "Keymap for `sisu-mode'." boundp sisu-mode-syntax-table definition-name sisu-mode (lambda (#1=#:def-tmp-var) (defvar sisu-mode-syntax-table #1#)) make-syntax-table "Syntax table for `sisu-mode'." (lambda (#1#) (defvar sisu-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `sisu-mode'." derived-mode-parent text-mode] 5) #@322 Major mode for editing SiSU files. SiSU document structuring, publishing in multiple formats and search. URL `http://www.sisudoc.org/' In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `sisu-mode-hook', as the final or penultimate step during initialization. \{sisu-mode-map} (defalias 'sisu-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324)\325\"\204V)*=\204V\326)\325*C#\210\327 !\210\330\f!\210)*\331\332\333\"\210\306\334!\210\335+P\306\336!\210\306\337!\210\307\306\340!\210\341 \306\342!\210\307\"\306\343!\210\344#\345\346!\210)\347\350!\207" [delay-mode-hooks major-mode mode-name sisu-mode-map sisu-mode-syntax-table parent make-local-variable t text-mode sisu-mode "SiSU" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table modify-syntax-entry 39 "." paragraph-start "$\\|>" paragraph-separate paragraph-ignore-fill-prefix outline-regexp "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\|\\@[a-z]+:\\( \\|$\\)\\)" require-final-newline font-lock-defaults (sisu-font-lock-keywords nil nil ((95 . "w"))) outline-minor-mode 1 run-mode-hooks sisu-mode-hook sisu-mode-abbrev-table local-abbrev-table page-delimiter] 6 (#$ . 8300) nil]) (provide 'sisu-mode)