org: editor utils moved, editorconfig added to env

7 files changed, 604 insertions, 558 deletions

diff --git a/.editorconfig b/.editorconfig
new file mode 100644
index 0000000..8a834da
--- /dev/null
+++ b/.editorconfig
@@ -0,0 +1,28 @@
+# EditorConfig : https://editorconfig.org
+
+# top-most EditorConfig file
+root = true
+
+# Unix-style newlines with a newline ending every file
+[*]
+end_of_line = lf
+insert_final_newline = true
+trim_trailing_whitespace = true
+
+# Matches multiple files with brace expansion notation
+# Set default charset
+[*.{org,d,nix}]
+charset = utf-8
+
+# Indentation override for all D under src directory
+[src/sisudoc/**.d]
+indent_style = space
+indent_size = 2
+
+# Tab indentation (no size specified)
+[Makefile]
+indent_style = tab
+
+[{dub.selections.json,dub_describe.json}]
+indent_style = space
+indent_size = 2
diff --git a/.gitignore b/.gitignore
index 0d2e91d..cbdcd6b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -7,6 +7,7 @@
 *
 !.gitignore
 !.gitattributes
+!.editorconfig
 !nix/**
 !*.nix
 !flake.lock
diff --git a/flake.lock b/flake.lock
index 4b8e88e..c17b46f 100644
--- a/flake.lock
+++ b/flake.lock
@@ -2,11 +2,11 @@
   "nodes": {
     "nixpkgs": {
       "locked": {
-        "lastModified": 1776329215,
-        "narHash": "sha256-a8BYi3mzoJ/AcJP8UldOx8emoPRLeWqALZWu4ZvjPXw=",
+        "lastModified": 1777395829,
+        "narHash": "sha256-HposVFZcsBCevgqLR73w/BpSe8J1lMgw5kASnnxO3A4=",
         "owner": "NixOS",
         "repo": "nixpkgs",
-        "rev": "b86751bc4085f48661017fa226dee99fab6c651b",
+        "rev": "e75f25705c2934955ee5075e62530d74aca973c6",
         "type": "github"
       },
       "original": {
diff --git a/org/config_env.org b/org/config_env.org
index 8c526c7..98b6eb8 100644
--- a/org/config_env.org
+++ b/org/config_env.org
@@ -220,6 +220,40 @@ export SpineDBpath=/var/www/sqlite
 #export SpineDBpath=/srv/www/spine/sqlite
 #+END_SRC
 
+* editorconfig
+
+#+HEADER: :tangle "../.editorconfig"
+#+BEGIN_SRC gitignore
+# EditorConfig : https://editorconfig.org
+
+# top-most EditorConfig file
+root = true
+
+# Unix-style newlines with a newline ending every file
+[*]
+end_of_line = lf
+insert_final_newline = true
+trim_trailing_whitespace = true
+
+# Matches multiple files with brace expansion notation
+# Set default charset
+[*.{org,d,nix}]
+charset = utf-8
+
+# Indentation override for all D under src directory
+[src/sisudoc/**.d]
+indent_style = space
+indent_size = 2
+
+# Tab indentation (no size specified)
+[Makefile]
+indent_style = tab
+
+[{dub.selections.json,dub_describe.json}]
+indent_style = space
+indent_size = 2
+#+END_SRC
+
 * org includes - versions GET
 ** direnv
 
diff --git a/org/config_git.org b/org/config_git.org
index cdcd3da..7f0a98c 100644
--- a/org/config_git.org
+++ b/org/config_git.org
@@ -31,6 +31,7 @@
 ,*
 !.gitignore
 !.gitattributes
+!.editorconfig
 !nix/**
 !*.nix
 !flake.lock
diff --git a/org/util_spine_syntax_highlighting_vim.org b/org/util_editors.org
index 957c2cf..d07de15 100644
--- a/org/util_spine_syntax_highlighting_vim.org
+++ b/org/util_editors.org
@@ -1,5 +1,5 @@
 -*- mode: org -*-
-#+TITLE:       sisudoc spine (doc_reform) vim syntax highlighting & colorschemes
+#+TITLE:       sisudoc spine (doc_reform) editor syntax highlighting & colorschemes
 #+DESCRIPTION: documents - structuring, various output representations & search
 #+FILETAGS:    :spine:info:
 #+AUTHOR:      Ralph Amissah
@@ -1896,3 +1896,539 @@ make:
 
 1~  #___#
 #+END_SRC
+
+* Emacs Syntax highlighting
+
+** README
+
+#+HEADER: :tangle "../sundry/editor-syntax-etc/emacs/README"
+#+BEGIN_SRC elisp
+; put this into your .emacs file, then use the mode file:
+
+(load-file "~/emacs/el/sisu-spine-mode.el")
+(add-to-list 'auto-mode-alist '("\\.sst$" . sisu-spine-mode))
+#+END_SRC
+
+** autoload sisuspine-mode-autoloads.el
+
+#+HEADER: :tangle "../sundry/editor-syntax-etc/emacs/sisu-spine-mode-autoloads.el"
+#+BEGIN_SRC elisp
+(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
+(autoload 'sisu-spine-mode "sisu-spine-mode" "\
+Major mode for editing SiSU (spine) markup files.
+SiSU (https://www.sisudoc.org/) document structuring, publishing
+and search.
+
+\(fn)" t nil)
+(add-to-list 'auto-mode-alist '("\\.sst\\'" . sisu-spine-mode))
+(add-to-list 'auto-mode-alist '("\\.ssm\\'" . sisu-spine-mode))
+(add-to-list 'auto-mode-alist '("\\.ssi\\'" . sisu-spine-mode))
+#+END_SRC
+
+** mode sisu-spine-mode.el
+
+#+HEADER: :tangle "../sundry/editor-syntax-etc/emacs/sisu-spine-mode.el"
+#+BEGIN_SRC elisp
+;;; sisu-spine-mode.el --- Major mode for SiSU (spine parser) markup text
+
+;; Copyright (C) 2011, 2025  Free Software Foundation, Inc.
+
+;; Author: Ralph Amissah & Ambrose Kofi Laing
+;; Maintainer: Ralph Amissah <ralph.amissah@gmail.com>
+;; Keywords: text, syntax, processes, tools
+;; Version:   8.0.0
+;; URL: https://git.sisudoc.org/projects/sisudoc-spine/tree/sundry/editor-syntax-etc/emacs/sisu-spine-mode.el
+;;      https://sisudoc.org/
+;; originally looked at (based on) doc-mode, with kind permission of the author
+;;   Author: SUN, Tong <suntong001@users.sf.net>, (c)2001-6, all right reserved
+;;   Version: $Date: 2006/01/19 03:13:41 $ $Revision: 1.14 $
+;;   Home URL: https://xpt.sourceforge.net/
+;; with contributions from Kevin Ryde and Stefan Monnier
+
+;; 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, see <https://www.gnu.org/licenses/>.
+
+;; Viva Software Libre!
+;; Support the free software movement!
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;; Commentary:
+
+;; SiSU (https://www.sisudoc.org/) is a document structuring and
+;; publishing framework.  This package provides an Emacs major mode
+;; for SiSU markup, as used by the spine parser (in D) which has a different
+;; header (based on yaml) from the original sisu parser (in Ruby) which has
+;; bespoke headers.
+
+;; When this package is installed, files ending in ".sst" are automatically
+;; associated with sisu-spine-mode.  If a file doesn't have a
+;; .sst extension, add a first line:
+;; # -*- sisuSpine -*-
+
+;; The documentation for the "Structure Of The Hierarchy Text" can be
+;; found in the sisustring for the sisu-spine-mode function.
+
+;;; Code:
+
+;; 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 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)
+
+;; == sisu-spine-mode settings
+
+(defvar sisu-spine-mode-hook nil
+  "Normal hook run when entering Sisu Text mode.")
+
+(defvar sisu-spine-mode-abbrev-table nil
+  "Abbrev table in use in Sisu-spine-mode buffers.")
+(define-abbrev-table 'sisu-spine-mode-abbrev-table ())
+
+(defconst sisu-font-lock-keywords
+  (eval-when-compile
+    (list
+      ;;grouped text ---------
+      ;(cons "^```[ ]code\\(.\\|\n\\)+?\n```\n"      'sisu-general-font-lock-red2)
+      (cons "^```[ ]+code.*?$\\|^```$"  'sisu-general-font-lock-red2)
+      (cons "^```[ ]+table.*?$\\|^```$" 'sisu-general-font-lock-red2)
+      (cons "^```[ ]+group$\\|^```$"    'sisu-general-font-lock-red2)
+      (cons "^```[ ]+block$\\|^```$"    'sisu-general-font-lock-red2)
+      (cons "^```[ ]+poem$\\|^```$"     'sisu-general-font-lock-red2)
+      (cons "^```[ ]+alt$\\|^```$"      'sisu-general-font-lock-red2)
+      ;;grouped text ---------
+      ;(cons "^'''[ ]code\\(.\\|\n\\)+?\n'''\n"      'sisu-general-font-lock-red2)
+      (cons "^'''[ ]+code.*?$\\|^'''$"  'sisu-general-font-lock-red2)
+      (cons "^'''[ ]+table.*?$\\|^'''$" 'sisu-general-font-lock-red2)
+      (cons "^'''[ ]+group$\\|^'''$"    'sisu-general-font-lock-red2)
+      (cons "^'''[ ]+block$\\|^'''$"    'sisu-general-font-lock-red2)
+      (cons "^'''[ ]+poem$\\|^'''$"     'sisu-general-font-lock-red2)
+      (cons "^'''[ ]+alt$\\|^'''$"      'sisu-general-font-lock-red2)
+      ;;grouped text ---------
+      (cons "^group{\\|^}group"       'sisu-general-font-lock-red2)
+      (cons "^block{\\|^}block"       'sisu-general-font-lock-red2)
+      (cons "^code{\\|^}code"         'sisu-general-font-lock-red2)
+      (cons "^poem{\\|^}poem"         'sisu-general-font-lock-red2)
+      (cons "^alt{\\|^}alt"           'sisu-general-font-lock-red2)
+      (cons "^table{.+\\|^}table"     'sisu-general-font-lock-red2)
+      (cons "^{table[^}]+}"           'sisu-general-font-lock-red2)
+
+      (list
+        (concat
+          "^\`\\{3\\}[ ]+code.*?$"
+          "\\(.\\|\n\\)+?"
+          "\`\\{3\\}$"
+        )
+        '(1 sisu-general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 sisu-general-font-lock-red2 t)
+      )
+      (list
+        (concat
+          "^\`\\{3\\}[ ]+table.*?$"
+          "\\(.\\|\n\\)+?"
+          "\`\\{3\\}$"
+        )
+        '(1 sisu-general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 sisu-general-font-lock-red2 t)
+      )
+      (list
+        (concat
+          "^\`\\{3\\}[ ]+\\(group\\|block\\|alt\\|poem\\)$"
+          "\\(.\\|\n\\)+?"
+          "^\`\\{3\\}$"
+        )
+        '(1 sisu-general-font-lock-red2 t)
+        '(2 nil t)
+        '(3 sisu-general-font-lock-red2 t)
+      )
+
+      ;; footnote/endnote ----
+      ;(cons "\~{.+?}\~"  'sisu-general-font-lock-green1)
+      (cons "\~{\\*\\*\\|\~{\\*\\|\~{\\|}\~"   'sisu-general-font-lock-red2)
+      (cons "\~\\[\\+\\|\~\\[\\*\\|\~\\[\\|\\]\~"  'sisu-general-font-lock-red2)
+      (cons "\~\\^ \\|^\\^\~ " 'sisu-general-font-lock-red2)
+      (list
+        (concat
+          "\\(\*\~\\)"
+          "\\([^ \r\t\n]+\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-blue2 t)
+      )
+
+      ;; emphasis (can be program configured to be bold italics or underscore)
+      (list
+        (concat
+          "\\([*]{\\)"
+          "\\([^}]+\\)"
+          "\\(}[*]\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; bold ----------------
+      (list
+        (concat
+          "\\([!]{\\)"
+          "\\([^}]+\\)"
+          "\\(}[!]\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+      (cons "\\*[^ ]+\\*"               'sisu-general-font-lock-red1)
+      (cons "^!_ .+"                    'sisu-general-font-lock-red1)
+
+      ;; italics -------------
+      (list
+        (concat
+          "\\([/]{\\)"
+          "\\([^}]+\\)"
+          "\\(}[/]\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-blue1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; underscore ----------
+      (list
+        (concat
+          "\\([_]{\\)"
+          "\\([^}]+\\)"
+          "\\(\}[_]\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; monospace -----------
+      (list
+        (concat
+          "\\([#]{\\)"
+          "\\([^}]+\\)"
+          "\\(}[#]\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; citation ------------
+      (list
+        (concat
+          "\\([\"]{\\)"
+          "\\([^}]+\\)"
+          "\\(}[\"]\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; inserted text -------
+      (list
+        (concat
+          "\\([\+]{\\)"
+          "\\([^}]+\\)"
+          "\\(}[\+]\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; strike through ------
+      (list
+        (concat
+          "\\(\\-{\\)"
+          "\\([^}]+\\)"
+          "\\(}\\-\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; superscript ---------
+      (list
+        (concat
+          "\\(\\^{\\)"
+          "\\([^}]+\\)"
+          "\\(}\\^\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; subscript -----------
+      (list
+        (concat
+          "\\([,]{\\)"
+          "\\([^}]+\\)"
+          "\\(}[,]\\)"
+        )
+        '(1 sisu-general-font-lock-red1 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-red1 t)
+      )
+
+      ;; numbered list
+      (cons "^# \\|^_# "                'sisu-general-font-lock-red1)
+
+      ;; bullet text
+      (cons "^_\\*[1-9] \\|^_\\* "      'sisu-general-font-lock-red1)
+
+      ;; indented text
+      (cons "^_[1-9] "                  'sisu-general-font-lock-red1)
+      (cons "^_[1-9]! "                 'sisu-general-font-lock-red1)
+
+      ;; hanging indented text [proposed enable when implemented]
+      (cons "^__[1-9] "                'sisu-general-font-lock-red1)
+      (cons "^_[0-9]_[0-9] "           'sisu-general-font-lock-red1)
+      (cons "^__[1-9]! "               'sisu-general-font-lock-red1)
+      (cons "^_[0-9]_[0-9]! "          'sisu-general-font-lock-red1)
+
+      ;; url
+      (cons "\\(^\\|[ ]\\)https?:[/][/][^ \t\n\r<]+" 'sisu-general-font-lock-blue2)
+
+      ;; Comment Lines
+      (cons "^% .*"                     'sisu-general-font-lock-blue1)
+
+      ;; page break
+      (cons "^\\(-\\\\\\\\-\\|=\\\\\\\\=\\|-\\.\\.-\\)" 'sisu-general-font-lock-red2)
+
+      ;; line break
+      (cons " \\\\\\\\ "                'sisu-general-font-lock-red1)
+
+      ;; line break (depreciated)
+      (cons "<br>"                      'sisu-general-font-lock-red1)
+
+      ;; Section titles
+      (list "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\)\\(.*\\)"
+        '(1 sisu-title-1 t)
+        '(3 sisu-title-2 t)
+      )
+
+      ;; hyper-links
+      (list
+        (concat
+          "\\({~^\\|{\\)"
+          "\\([^}{]+\\)"
+          "\\(}https?:[/][/][^ \r\n\t<]+\\)"
+        )
+        '(1 sisu-general-font-lock-blue2 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-blue2 t)
+      )
+
+      ;; book index
+      (list
+        (concat
+          "^\\(\={\\)"
+          "\\([^}{]+\\)"
+          "\\(}\\)$"
+        )
+        '(1 sisu-general-font-lock-green1 t)
+        '(2 nil t)
+        '(3 sisu-general-font-lock-green1 t)
+      )
+
+      ;(cons "^\={.+}"                 'sisu-general-font-lock-green1)
+
+      ;; numbers
+      (cons "\\<[.0-9]+\\>"             'sisu-general-font-lock-green2)
+
+      ;; bullets sisu_normal (nearly copied regexp)
+      (cons "^_\\([1-9*]\\|[1-9]\\*\\) " 'sisu-general-font-lock-blue2)
+
+      ;; image links
+      (list
+        (concat
+          "\\({\\)"
+          "\\([^}{]+\\)"
+          "\\(}image\\)"
+        )
+        '(1 sisu-general-font-lock-blue2 t)
+        '(2 sisu-general-font-lock-red1 t)
+        '(3 sisu-general-font-lock-blue2 t)
+      )
+
+      ;; insert file links
+      (list
+        (concat
+          "\\(<< \\)"
+          "\\([^ \r\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)
+      )
+
+      ;; 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."
+)
+
+;; outline mode evil "folding" if available
+;; (define-key evil-normal-state-map ",0"   'show-all)
+;; (define-key evil-normal-state-map ",-"   'hide-body)
+;; (define-key evil-normal-state-map ",+"   'show-subtree)
+;; (define-key evil-normal-state-map ",="   'show-subtree)
+
+;;
+
+;; Sisu & Autoload:
+
+;;;###autoload
+(define-derived-mode sisu-spine-mode text-mode "SiSU"
+  "Major mode for editing SiSU files.
+SiSU document structuring, publishing in multiple formats and search.
+URL `https://www.sisudoc.org/'"
+  (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)
+
+  (set (make-local-variable 'outline-regexp)
+       "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\|\\@[a-z]+:\\( \\|$\\)\\)")
+
+  (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
+          ))
+  ;; Enable outlining.
+  ;; TODO with outlining make sure linum (line numbering) is off,
+  ;; else performance penalty, sucks bigtime
+  (outline-minor-mode 1))
+
+;;;###autoload (add-to-list 'auto-mode-alist '("\\.ss[imt]\\'" . sisu-spine-mode))
+
+(provide 'sisu-spine-mode)
+
+;;
+
+;;; sisu-spine-mode.el ends here
+#+END_SRC
diff --git a/org/util_spine_syntax_highlighting_emacs.org b/org/util_spine_syntax_highlighting_emacs.org
deleted file mode 100644
index 60068c1..0000000
--- a/org/util_spine_syntax_highlighting_emacs.org
+++ /dev/null
@@ -1,554 +0,0 @@
--*- mode: org -*-
-#+TITLE:       sisudoc spine (doc_reform) emacs syntax highlighting
-#+DESCRIPTION: documents - structuring, various output representations & search
-#+FILETAGS:    :spine:info:
-#+AUTHOR:      Ralph Amissah
-#+EMAIL:       [[mailto:ralph.amissah@gmail.com][ralph.amissah@gmail.com]]
-#+COPYRIGHT:   Copyright (C) 2015 (continuously updated, current 2026) Ralph Amissah
-#+LANGUAGE:    en
-#+STARTUP:     content hideblocks hidestars noindent entitiespretty
-#+PROPERTY:    header-args  :exports code
-#+PROPERTY:    header-args+ :noweb yes
-#+PROPERTY:    header-args+ :results silent
-#+PROPERTY:    header-args+ :cache no
-#+PROPERTY:    header-args+ :padline no
-#+PROPERTY:    header-args+ :mkdirp yes
-#+OPTIONS:     H:3 num:nil toc:t \n:t ::t |:t ^:nil -:t f:t *:t
-
-- [[./doc-reform.org][doc-reform.org]]  [[./][org/]]
-
-* Emacs Syntax highlighting
-
-** README
-
-#+HEADER: :tangle "../sundry/editor-syntax-etc/emacs/README"
-#+BEGIN_SRC elisp
-; put this into your .emacs file, then use the mode file:
-
-(load-file "~/emacs/el/sisu-spine-mode.el")
-(add-to-list 'auto-mode-alist '("\\.sst$" . sisu-spine-mode))
-#+END_SRC
-
-** autoload sisuspine-mode-autoloads.el
-
-#+HEADER: :tangle "../sundry/editor-syntax-etc/emacs/sisu-spine-mode-autoloads.el"
-#+BEGIN_SRC elisp
-(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
-(autoload 'sisu-spine-mode "sisu-spine-mode" "\
-Major mode for editing SiSU (spine) markup files.
-SiSU (https://www.sisudoc.org/) document structuring, publishing
-and search.
-
-\(fn)" t nil)
-(add-to-list 'auto-mode-alist '("\\.sst\\'" . sisu-spine-mode))
-(add-to-list 'auto-mode-alist '("\\.ssm\\'" . sisu-spine-mode))
-(add-to-list 'auto-mode-alist '("\\.ssi\\'" . sisu-spine-mode))
-#+END_SRC
-
-** mode sisu-spine-mode.el
-
-#+HEADER: :tangle "../sundry/editor-syntax-etc/emacs/sisu-spine-mode.el"
-#+BEGIN_SRC elisp
-;;; sisu-spine-mode.el --- Major mode for SiSU (spine parser) markup text
-
-;; Copyright (C) 2011, 2025  Free Software Foundation, Inc.
-
-;; Author: Ralph Amissah & Ambrose Kofi Laing
-;; Maintainer: Ralph Amissah <ralph.amissah@gmail.com>
-;; Keywords: text, syntax, processes, tools
-;; Version:   8.0.0
-;; URL: https://git.sisudoc.org/projects/sisudoc-spine/tree/sundry/editor-syntax-etc/emacs/sisu-spine-mode.el
-;;      https://sisudoc.org/
-;; originally looked at (based on) doc-mode, with kind permission of the author
-;;   Author: SUN, Tong <suntong001@users.sf.net>, (c)2001-6, all right reserved
-;;   Version: $Date: 2006/01/19 03:13:41 $ $Revision: 1.14 $
-;;   Home URL: https://xpt.sourceforge.net/
-;; with contributions from Kevin Ryde and Stefan Monnier
-
-;; 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, see <https://www.gnu.org/licenses/>.
-
-;; Viva Software Libre!
-;; Support the free software movement!
-;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;;; Commentary:
-
-;; SiSU (https://www.sisudoc.org/) is a document structuring and
-;; publishing framework.  This package provides an Emacs major mode
-;; for SiSU markup, as used by the spine parser (in D) which has a different
-;; header (based on yaml) from the original sisu parser (in Ruby) which has
-;; bespoke headers.
-
-;; When this package is installed, files ending in ".sst" are automatically
-;; associated with sisu-spine-mode.  If a file doesn't have a
-;; .sst extension, add a first line:
-;; # -*- sisuSpine -*-
-
-;; The documentation for the "Structure Of The Hierarchy Text" can be
-;; found in the sisustring for the sisu-spine-mode function.
-
-;;; Code:
-
-;; 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 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)
-
-;; == sisu-spine-mode settings
-
-(defvar sisu-spine-mode-hook nil
-  "Normal hook run when entering Sisu Text mode.")
-
-(defvar sisu-spine-mode-abbrev-table nil
-  "Abbrev table in use in Sisu-spine-mode buffers.")
-(define-abbrev-table 'sisu-spine-mode-abbrev-table ())
-
-(defconst sisu-font-lock-keywords
-  (eval-when-compile
-    (list
-      ;;grouped text ---------
-      ;(cons "^```[ ]code\\(.\\|\n\\)+?\n```\n"      'sisu-general-font-lock-red2)
-      (cons "^```[ ]+code.*?$\\|^```$"  'sisu-general-font-lock-red2)
-      (cons "^```[ ]+table.*?$\\|^```$" 'sisu-general-font-lock-red2)
-      (cons "^```[ ]+group$\\|^```$"    'sisu-general-font-lock-red2)
-      (cons "^```[ ]+block$\\|^```$"    'sisu-general-font-lock-red2)
-      (cons "^```[ ]+poem$\\|^```$"     'sisu-general-font-lock-red2)
-      (cons "^```[ ]+alt$\\|^```$"      'sisu-general-font-lock-red2)
-      ;;grouped text ---------
-      ;(cons "^'''[ ]code\\(.\\|\n\\)+?\n'''\n"      'sisu-general-font-lock-red2)
-      (cons "^'''[ ]+code.*?$\\|^'''$"  'sisu-general-font-lock-red2)
-      (cons "^'''[ ]+table.*?$\\|^'''$" 'sisu-general-font-lock-red2)
-      (cons "^'''[ ]+group$\\|^'''$"    'sisu-general-font-lock-red2)
-      (cons "^'''[ ]+block$\\|^'''$"    'sisu-general-font-lock-red2)
-      (cons "^'''[ ]+poem$\\|^'''$"     'sisu-general-font-lock-red2)
-      (cons "^'''[ ]+alt$\\|^'''$"      'sisu-general-font-lock-red2)
-      ;;grouped text ---------
-      (cons "^group{\\|^}group"       'sisu-general-font-lock-red2)
-      (cons "^block{\\|^}block"       'sisu-general-font-lock-red2)
-      (cons "^code{\\|^}code"         'sisu-general-font-lock-red2)
-      (cons "^poem{\\|^}poem"         'sisu-general-font-lock-red2)
-      (cons "^alt{\\|^}alt"           'sisu-general-font-lock-red2)
-      (cons "^table{.+\\|^}table"     'sisu-general-font-lock-red2)
-      (cons "^{table[^}]+}"           'sisu-general-font-lock-red2)
-
-      (list
-        (concat
-          "^\`\\{3\\}[ ]+code.*?$"
-          "\\(.\\|\n\\)+?"
-          "\`\\{3\\}$"
-        )
-        '(1 sisu-general-font-lock-red2 t)
-        '(2 nil t)
-        '(3 sisu-general-font-lock-red2 t)
-      )
-      (list
-        (concat
-          "^\`\\{3\\}[ ]+table.*?$"
-          "\\(.\\|\n\\)+?"
-          "\`\\{3\\}$"
-        )
-        '(1 sisu-general-font-lock-red2 t)
-        '(2 nil t)
-        '(3 sisu-general-font-lock-red2 t)
-      )
-      (list
-        (concat
-          "^\`\\{3\\}[ ]+\\(group\\|block\\|alt\\|poem\\)$"
-          "\\(.\\|\n\\)+?"
-          "^\`\\{3\\}$"
-        )
-        '(1 sisu-general-font-lock-red2 t)
-        '(2 nil t)
-        '(3 sisu-general-font-lock-red2 t)
-      )
-
-      ;; footnote/endnote ----
-      ;(cons "\~{.+?}\~"  'sisu-general-font-lock-green1)
-      (cons "\~{\\*\\*\\|\~{\\*\\|\~{\\|}\~"   'sisu-general-font-lock-red2)
-      (cons "\~\\[\\+\\|\~\\[\\*\\|\~\\[\\|\\]\~"  'sisu-general-font-lock-red2)
-      (cons "\~\\^ \\|^\\^\~ " 'sisu-general-font-lock-red2)
-      (list
-        (concat
-          "\\(\*\~\\)"
-          "\\([^ \r\t\n]+\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-blue2 t)
-      )
-
-      ;; emphasis (can be program configured to be bold italics or underscore)
-      (list
-        (concat
-          "\\([*]{\\)"
-          "\\([^}]+\\)"
-          "\\(}[*]\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; bold ----------------
-      (list
-        (concat
-          "\\([!]{\\)"
-          "\\([^}]+\\)"
-          "\\(}[!]\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-      (cons "\\*[^ ]+\\*"               'sisu-general-font-lock-red1)
-      (cons "^!_ .+"                    'sisu-general-font-lock-red1)
-
-      ;; italics -------------
-      (list
-        (concat
-          "\\([/]{\\)"
-          "\\([^}]+\\)"
-          "\\(}[/]\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-blue1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; underscore ----------
-      (list
-        (concat
-          "\\([_]{\\)"
-          "\\([^}]+\\)"
-          "\\(\}[_]\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; monospace -----------
-      (list
-        (concat
-          "\\([#]{\\)"
-          "\\([^}]+\\)"
-          "\\(}[#]\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; citation ------------
-      (list
-        (concat
-          "\\([\"]{\\)"
-          "\\([^}]+\\)"
-          "\\(}[\"]\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; inserted text -------
-      (list
-        (concat
-          "\\([\+]{\\)"
-          "\\([^}]+\\)"
-          "\\(}[\+]\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; strike through ------
-      (list
-        (concat
-          "\\(\\-{\\)"
-          "\\([^}]+\\)"
-          "\\(}\\-\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; superscript ---------
-      (list
-        (concat
-          "\\(\\^{\\)"
-          "\\([^}]+\\)"
-          "\\(}\\^\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; subscript -----------
-      (list
-        (concat
-          "\\([,]{\\)"
-          "\\([^}]+\\)"
-          "\\(}[,]\\)"
-        )
-        '(1 sisu-general-font-lock-red1 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-red1 t)
-      )
-
-      ;; numbered list
-      (cons "^# \\|^_# "                'sisu-general-font-lock-red1)
-
-      ;; bullet text
-      (cons "^_\\*[1-9] \\|^_\\* "      'sisu-general-font-lock-red1)
-
-      ;; indented text
-      (cons "^_[1-9] "                  'sisu-general-font-lock-red1)
-      (cons "^_[1-9]! "                 'sisu-general-font-lock-red1)
-
-      ;; hanging indented text [proposed enable when implemented]
-      (cons "^__[1-9] "                'sisu-general-font-lock-red1)
-      (cons "^_[0-9]_[0-9] "           'sisu-general-font-lock-red1)
-      (cons "^__[1-9]! "               'sisu-general-font-lock-red1)
-      (cons "^_[0-9]_[0-9]! "          'sisu-general-font-lock-red1)
-
-      ;; url
-      (cons "\\(^\\|[ ]\\)https?:[/][/][^ \t\n\r<]+" 'sisu-general-font-lock-blue2)
-
-      ;; Comment Lines
-      (cons "^% .*"                     'sisu-general-font-lock-blue1)
-
-      ;; page break
-      (cons "^\\(-\\\\\\\\-\\|=\\\\\\\\=\\|-\\.\\.-\\)" 'sisu-general-font-lock-red2)
-
-      ;; line break
-      (cons " \\\\\\\\ "                'sisu-general-font-lock-red1)
-
-      ;; line break (depreciated)
-      (cons "<br>"                      'sisu-general-font-lock-red1)
-
-      ;; Section titles
-      (list "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\)\\(.*\\)"
-        '(1 sisu-title-1 t)
-        '(3 sisu-title-2 t)
-      )
-
-      ;; hyper-links
-      (list
-        (concat
-          "\\({~^\\|{\\)"
-          "\\([^}{]+\\)"
-          "\\(}https?:[/][/][^ \r\n\t<]+\\)"
-        )
-        '(1 sisu-general-font-lock-blue2 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-blue2 t)
-      )
-
-      ;; book index
-      (list
-        (concat
-          "^\\(\={\\)"
-          "\\([^}{]+\\)"
-          "\\(}\\)$"
-        )
-        '(1 sisu-general-font-lock-green1 t)
-        '(2 nil t)
-        '(3 sisu-general-font-lock-green1 t)
-      )
-
-      ;(cons "^\={.+}"                 'sisu-general-font-lock-green1)
-
-      ;; numbers
-      (cons "\\<[.0-9]+\\>"             'sisu-general-font-lock-green2)
-
-      ;; bullets sisu_normal (nearly copied regexp)
-      (cons "^_\\([1-9*]\\|[1-9]\\*\\) " 'sisu-general-font-lock-blue2)
-
-      ;; image links
-      (list
-        (concat
-          "\\({\\)"
-          "\\([^}{]+\\)"
-          "\\(}image\\)"
-        )
-        '(1 sisu-general-font-lock-blue2 t)
-        '(2 sisu-general-font-lock-red1 t)
-        '(3 sisu-general-font-lock-blue2 t)
-      )
-
-      ;; insert file links
-      (list
-        (concat
-          "\\(<< \\)"
-          "\\([^ \r\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)
-      )
-
-      ;; 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."
-)
-
-;; outline mode evil "folding" if available
-;; (define-key evil-normal-state-map ",0"   'show-all)
-;; (define-key evil-normal-state-map ",-"   'hide-body)
-;; (define-key evil-normal-state-map ",+"   'show-subtree)
-;; (define-key evil-normal-state-map ",="   'show-subtree)
-
-;;
-
-;; Sisu & Autoload:
-
-;;;###autoload
-(define-derived-mode sisu-spine-mode text-mode "SiSU"
-  "Major mode for editing SiSU files.
-SiSU document structuring, publishing in multiple formats and search.
-URL `https://www.sisudoc.org/'"
-  (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)
-
-  (set (make-local-variable 'outline-regexp)
-       "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\|\\@[a-z]+:\\( \\|$\\)\\)")
-
-  (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
-          ))
-  ;; Enable outlining.
-  ;; TODO with outlining make sure linum (line numbering) is off,
-  ;; else performance penalty, sucks bigtime
-  (outline-minor-mode 1))
-
-;;;###autoload (add-to-list 'auto-mode-alist '("\\.ss[imt]\\'" . sisu-spine-mode))
-
-(provide 'sisu-spine-mode)
-
-;;
-
-;;; sisu-spine-mode.el ends here
-#+END_SRC