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/sisu/conf/editor-syntax-etc/emacs/sisu-mode.el | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'data/sisu') 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