Add outline library

2 files changed, 48 insertions, 14 deletions

diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 82e9305..cccc321 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -141,19 +141,6 @@ MODE1 is enabled and vice-versa."
   "Set the `disabled' property for each item in FUNCTIONS to nil."
   (mapc #'(lambda (f) (put f 'disabled nil)) functions))
 
-(defun oni:set-tab-maybe-toggle-outline ()
-  "Wrap the current function mapped to `TAB'."
-  (let ((func (or (lookup-key (current-local-map) (kbd "TAB"))
-                  (lookup-key (current-global-map) (kbd "TAB")))))
-    (local-set-key (kbd "TAB")
-                   (lambda ()
-                     (interactive)
-                     (if (outline-on-heading-p)
-                         (if (outline-invisible-p (line-end-position))
-                             (outline-show-entry)
-                           (outline-hide-entry))
-                       (call-interactively func))))))
-
 (defun oni:current-conkeror-tab (httpcon)
   "Demonstration function"
   (elnode-http-start
@@ -641,7 +628,10 @@ If no direction is given, don't split."
 (add-hook 'gnus-exit-group-hook 'oni:update-mailcount)
 (add-hook 'gnus-exit-gnus-hook 'oni:update-mailcount)
 (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
-(add-hook 'outline-minor-mode-hook #'oni:set-tab-maybe-toggle-outline)
+
+;; Make tab toggle outlines on outline headings.
+(add-hook 'outline-minor-mode-hook 'oni:set-tab-maybe-toggle-outline)
+
 (add-hook 'scheme-mode-hook (lambda () (setq ac-sources '(ac-source-geiser))))
 (add-hook 'slime-mode-hook #'set-up-slime-ac)
 
diff --git a/emacs/.emacs.d/site-lisp/oni-outline.el b/emacs/.emacs.d/site-lisp/oni-outline.el
new file mode 100644
index 0000000..6c56515
--- /dev/null
+++ b/emacs/.emacs.d/site-lisp/oni-outline.el
@@ -0,0 +1,44 @@
+;;; oni-outline.el --- Extra functions and commands for outline-mode  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2015  Tom Willemse
+
+;; Author: Tom Willemse <tom@ryuslash.org>
+;; Keywords:
+
+;; 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 of the License, 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 <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Here are some extra commands and functions for `outline-mode'.
+
+;;; Code:
+
+(require 'outline)
+
+;;;###autoload
+(defun oni:set-tab-maybe-toggle-outline ()
+  "Wrap the current function mapped to `TAB'."
+  (let ((func (or (lookup-key (current-local-map) (kbd "TAB"))
+                  (lookup-key (current-global-map) (kbd "TAB")))))
+    (local-set-key (kbd "TAB")
+                   (lambda ()
+                     (interactive)
+                     (if (outline-on-heading-p)
+                         (if (outline-invisible-p (line-end-position))
+                             (outline-show-entry)
+                           (outline-hide-entry))
+                       (call-interactively func))))))
+
+(provide 'oni-outline)
+;;; oni-outline.el ends here