'my-modelist-to-hooklist' convert list of MODES to list of hooks for these
modes.
Remove duplication by using 'my-modelist-to-hooklist'.
--- a/.emacs-my Wed Sep 29 23:49:46 2010 +0300
+++ b/.emacs-my Fri Oct 01 14:21:03 2010 +0300
@@ -21,6 +21,13 @@
;;; ----------------------------------------------------------------
;;; mode groups.
+(defun my-modelist-to-hooklist (modes)
+ "Convert list of MODES to list of hooks for these modes."
+ (mapcar
+ (lambda (mode) (intern (concat (symbol-name mode) "-hook")))
+ modes
+ ) )
+
(defvar my-devel-mode-list
'(
outline-mode
@@ -34,25 +41,23 @@
"List of development modes.")
(defvar my-devel-mode-hook-list
+ (my-modelist-to-hooklist my-devel-mode-list)
+ "List of development mode hooks.")
+
+(defvar my-scroll-margin-mode-list
'(
- outline-mode-hook
- sh-mode-hook script-mode-hook
- c-mode-hook c++-mode-hook java-mode-hook js-mode-hook
- python-mode-hook
- makefile-mode-hook makefile-gmake-mode-hook
- lisp-mode-hook emacs-lisp-mode-hook)
- "List of development mode hooks.")
+ vc-dir-mode
+ recentf-dialog-mode
+ org-agenda-grid-mode ; XXX for this item not worked!
+ log-view-mode
+ diff-mode
+ dired-mode
+ compilation-mode
+ )
+ "List of modes for enabling scroll margin.")
(defvar my-scroll-margin-mode-hook-list
- '(
- vc-dir-mode-hook
- recentf-dialog-mode-hook
- org-agenda-grid-mode-hook ; XXX for this item not worked!
- log-view-mode-hook
- diff-mode-hook
- dired-mode-hook
- compilation-mode-hook
- )
+ (my-modelist-to-hooklist my-scroll-margin-mode-list)
"List of mode hooks for enabling scroll margin.")
(defvar my-text-mode-list
@@ -60,7 +65,7 @@
"List of text modes.")
(defvar my-text-mode-hook-list
- '(outline-mode-hook text-mode-hook)
+ (my-modelist-to-hooklist my-text-mode-list)
"List of text mode hooks.")