add new config file for elscreen

diff --git a/emacs.d/config/init-elscreen.el b/emacs.d/config/init-elscreen.el
new file mode 100644 (file)
index 0000000..d560032
--- /dev/null
+++ b/emacs.d/config/init-elscreen.el
@@ -0,0 +1,35 @@
+
+;;(add-hook 'elscreen-create-hook
+;;          (lambda ()
+;;            (elscreen-set-default-directory  (elscreen-get-current-screen) "~/CPVE/")))
+;;;            (elscreen-cd-default-directory "~/"))
+;;
+
+(add-hook 'elscreen-goto-hook
+          (lambda ()
+            (elscreen-cd-default-directory
+              (elscreen-get-default-directory (elscreen-get-current-screen)))))
+
+(defun sd-cd-dd (dir)
+  "Set default directory screen."
+  (interactive "sSet dir:")
+  (elscreen-set-default-directory (elscreen-get-current-screen) dir)
+  (cd dir)
+)
+
+(defun sd-show-dir ()
+  "show elscreen default directory."
+  (interactive)
+  (message
+  (elscreen-get-default-directory (elscreen-get-current-screen))))
+
+
+
+(add-hook 'buffer-list-update-hook
+          (lambda ()
+            (let ((el-dir (elscreen-get-default-directory (elscreen-get-current-screen))))
+              (if (> (length el-dir) 0)
+                 (cd el-dir)))))
+
+
+(provide 'init-elscreen)

diff --git a/emacs.d/init.el b/emacs.d/init.el
index e032f4b..7934dbe 100644 (file)
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -34,6 +34,7 @@
 
 ;; elscreen should be placed begin of https://github.com/knu/elscreen/issues/6
 (elscreen-start)
+(require 'init-elscreen)
 (require 'init-color-theme)
 ;(require 'init-my-theme-2)
 
@@ -138,52 +139,3 @@
 (setq ecb-layout-name "leftright3")
 
 
-
-;;(add-hook 'find-file-hook
-;;          (lambda ()
-;;            (setq default-directory "~/CPVE/")))
-
-;;(add-hook 'buffer-list-update-hook
-;;          (lambda ()
-;;            (elscreen-cd-default-directory
-;;              (elscreen-get-default-directory (elscreen-get-current-screen)))))
-
-
-;;(add-hook 'buffer-list-update-hook
-;;          (lambda ()
-;;            (cd "~/English/")))
-
-;;(add-hook 'elscreen-create-hook
-;;          (lambda ()
-;;            (elscreen-set-default-directory  (elscreen-get-current-screen) "~/CPVE/")))
-;;;            (elscreen-cd-default-directory "~/"))
-;;
-
-(add-hook 'elscreen-goto-hook
-          (lambda ()
-            (elscreen-cd-default-directory
-              (elscreen-get-default-directory (elscreen-get-current-screen)))))
-
-(defun sd-cd-dd (dir)
-  "Set default directory screen."
-  (interactive "sSet dir:")
-;  (message dir)
-  (elscreen-set-default-directory (elscreen-get-current-screen) dir)
-  (cd dir)
-)
-
-(defun sd-show-dir ()
-  "show elscreen default directory."
-  (interactive)
-  (message
-  (elscreen-get-default-directory (elscreen-get-current-screen))))
-
-
-
-(add-hook 'buffer-list-update-hook
-          (lambda ()
-            (let ((el-dir (elscreen-get-default-directory (elscreen-get-current-screen))))
-              (if (> (length el-dir) 0)
-                 (cd el-dir)))))
-              
-