diff options
author | Tom Willemsen | 2011-03-07 09:04:49 +0100 |
---|---|---|
committer | Tom Willemsen | 2011-03-07 09:04:49 +0100 |
commit | 94d2fc1815a919734353c942f224db1de4b4fcb8 (patch) | |
tree | 4168e816ead132bfa3510e272427837c3895f5e2 /emacs.d/nxhtml/util/appmenu-fold.el | |
parent | d0e7674fdb1de12c8de202d4028a5d7ed3669a6e (diff) | |
download | dotfiles-94d2fc1815a919734353c942f224db1de4b4fcb8.tar.gz dotfiles-94d2fc1815a919734353c942f224db1de4b4fcb8.zip |
Django, org
* Added nxhtml, mostly for django support.
* Changed some org settings.
Diffstat (limited to 'emacs.d/nxhtml/util/appmenu-fold.el')
-rw-r--r-- | emacs.d/nxhtml/util/appmenu-fold.el | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/emacs.d/nxhtml/util/appmenu-fold.el b/emacs.d/nxhtml/util/appmenu-fold.el new file mode 100644 index 0000000..938ab92 --- /dev/null +++ b/emacs.d/nxhtml/util/appmenu-fold.el @@ -0,0 +1,79 @@ +;;; appmenu-fold.el --- Support form fold-dwim in AppMenu +;; +;; Author: Lennart Borgman (lennart O borgman A gmail O com) +;; Created: Wed Jan 11 21:48:02 2006 +(defconst appmenu-fold:version "0.51") ;; Version: +;; Last-Updated: Mon Jan 15 03:10:59 2007 (3600 +0100) +;; Keywords: +;; Compatibility: +;; +;; Features that might be required by this library: +;; +;; None +;; + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Commentary: +;; +;; +;; + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Change log: +;; +;; + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;; 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 2, 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; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Code: + +(require 'fold-dwim nil t) +(eval-when-compile (require 'appmenu)) + +(when (featurep 'fold-dwim) + + (defun appmenu-fold-no-hs-minor-mode () + t) + (defun appmenu-fold-no-outline-minor-mode () + t) + (defun appmenu-fold-setup () + "Adds some tweaks for using fold-dwim in AppMenu." + (let ((fd-map (make-sparse-keymap))) + (define-key fd-map [fold-dwim-toggle] + (list 'menu-item "Fold Dwin Toggle" 'fold-dwim-toggle)) + (define-key fd-map [fold-dwim-hide-all] + (list 'menu-item "Fold Dwin Hide All" 'fold-dwim-hide-all)) + (define-key fd-map [fold-dwim-show-all] + (list 'menu-item "Fold Dwin Show All" 'fold-dwim-show-all)) + ;;(add-to-list 'appmenu-alist (cons t (cons "Folding" fd-map))) + (appmenu-add 'appmenu-fold nil t "Folding" fd-map) + ) +;;; (add-to-list 'appmenu-minor-modes-exclude +;;; '(hs-minor-mode appmenu-fold-no-hs-minor-mode)) +;;; (add-to-list 'appmenu-minor-modes-exclude +;;; '(outline-minor-mode appmenu-fold-no-outline-minor-mode))) + ) + ) + +(provide 'appmenu-fold) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; appmenu-fold.el ends here |