sisu-mode.el emacs, outline mode "folding" for sisu
authorRalph Amissah <ralph@amissah.com>
Fri, 21 Nov 2014 03:14:01 +0000 (22:14 -0500)
committerRalph Amissah <ralph@amissah.com>
Mon, 8 Dec 2014 05:18:14 +0000 (00:18 -0500)
data/doc/sisu/CHANGELOG_v5
data/doc/sisu/CHANGELOG_v6
data/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el

index 168d4e0b605fecc0e3994ccd7af0a587dbd6a36f..41ff2754e3601d17882ac8be117ac63bb5156813 100644 (file)
@@ -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)
index ac15d068f04e5d49b164c60a082b8d75dca9ca9b..e76a528c393f81688ae106122aa45eb6ccb45695 100644 (file)
@@ -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)
index 9f30d7c986490bb13735638647b76f19c2ba69dc..772a87d88d5ea48daf3b31e69e712ea33c00211a 100644 (file)
@@ -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
   )
   "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"