--- 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.")