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