From 94d2fc1815a919734353c942f224db1de4b4fcb8 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Mon, 7 Mar 2011 09:04:49 +0100
Subject: Django, org

  * Added nxhtml, mostly for django support.

  * Changed some org settings.
---
 emacs.d/nxhtml/util/appmenu-fold.el | 79 +++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100644 emacs.d/nxhtml/util/appmenu-fold.el

(limited to 'emacs.d/nxhtml/util/appmenu-fold.el')

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
-- 
cgit v1.2.3-54-g00ecf