From 2f2a11574a04ad66602aeb722b46d6c8c8897ca6 Mon Sep 17 00:00:00 2001 From: Ralph Amissah 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(-) (limited to 'data') 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: ;; @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