From 2f2a11574a04ad66602aeb722b46d6c8c8897ca6 Mon Sep 17 00:00:00 2001
From: Ralph Amissah <ralph@amissah.com>
Date: Thu, 20 Nov 2014 22:14:01 -0500
Subject: sisu-mode.el emacs, outline mode "folding" for sisu

---
 data/doc/sisu/CHANGELOG_v5                          |  2 ++
 data/doc/sisu/CHANGELOG_v6                          |  2 ++
 data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el | 17 ++++++++++++++++-
 3 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/data/doc/sisu/CHANGELOG_v5 b/data/doc/sisu/CHANGELOG_v5
index 168d4e0b..41ff2754 100644
--- a/data/doc/sisu/CHANGELOG_v5
+++ b/data/doc/sisu/CHANGELOG_v5
@@ -44,6 +44,8 @@ http://www.jus.uio.no/sisu/pkg/src/sisu_5.8.0.orig.tar.xz
 
 * qi, (quick install) header update (also rbuild)
 
+* sisu-mode.el emacs, outline mode "folding" for sisu
+
 --- SiSU "UnFrozen" --- prior to end of Debian Freeze
   (upstream bugfix 5.7.2 intended for Jessie (packaged for Debian as 5.7.1-2)
   was not accepted)
diff --git a/data/doc/sisu/CHANGELOG_v6 b/data/doc/sisu/CHANGELOG_v6
index ac15d068..e76a528c 100644
--- a/data/doc/sisu/CHANGELOG_v6
+++ b/data/doc/sisu/CHANGELOG_v6
@@ -34,6 +34,8 @@ http://www.jus.uio.no/sisu/pkg/src/sisu_6.4.0.orig.tar.xz
 
 * qi, (quick install) header update (also rbuild)
 
+* sisu-mode.el emacs, outline mode "folding" for sisu
+
 --- SiSU "UnFrozen" --- prior to end of Debian Freeze
   (upstream bugfix 6.3.2 (5.7.2) intended for Jessie (packaged for Debian as
   5.7.1-2) was not accepted)
diff --git a/data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el b/data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el
index 9f30d7c9..772a87d8 100644
--- a/data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el
+++ b/data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el
@@ -3,7 +3,7 @@
 ;; @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]
+;;   [5.7.2 2014-10-28 Ralph Amissah]
 ;; @URL: <http://git.sisudoc.org/gitweb/?p=code/sisu.git;a=blob;f=data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el;hb=HEAD>
 ;; @Copyright: Assigned to FSF 2011-04-08 (GNU EMACS)
 ;; @License: GPLv3
@@ -331,6 +331,21 @@
   )
   "Default expressions to highlight in AsciiSisu mode."
 )
+;; enables outlining for sisu
+(add-hook 'sisu-mode-hook
+       '(lambda ()
+         (outline-minor-mode)
+         (setq outline-regexp "^\\(\\([1-4]\\|:?[A-D]\\)\\~\\|\\@[a-z]+:\\( \\|$\\)\\)")))
+;; outline mode "folding" if available
+;(define-key evil-normal-state-map (kbd ",0") (lambda() (interactive) (show-all)))
+;(define-key evil-normal-state-map (kbd ",-") (lambda() (interactive) (hide-body)))
+;(define-key evil-normal-state-map (kbd ",+") (lambda() (interactive) (show-subtree)))
+;(define-key evil-normal-state-map (kbd ",=") (lambda() (interactive) (show-subtree)))
+;; C-c @ C-a show all
+;; C-c @ C-t show only the headings
+;; C-c @ C-s show subtree at cursor location
+;; C-c @ C-d hide subtree at cursor location
+
 ;; Sisu & Autoload:
 ;; ##autoload
 (define-derived-mode sisu-mode text-mode "SiSU"
-- 
cgit v1.2.3