emacs: c/c++, flymake-google-cpplint, google-c-style, iedt

[dotfiles.git] / emacs.d / config / init-elscreen.el

diff --git a/emacs.d/config/init-elscreen.el b/emacs.d/config/init-elscreen.el
index d560032..449606f 100644 (file)
--- a/emacs.d/config/init-elscreen.el
+++ b/emacs.d/config/init-elscreen.el
@@ -1,9 +1,27 @@
+;; this config file is based on  seudut/elscreen.git, which added two interface and one property 
+;; default directory
+
+(elscreen-set-default-directory (elscreen-get-current-screen) "~/")
+
+;; change default keybinding
+(global-set-key (kbd "<M-tab>") 'elscreen-next) ;; "C-M-I"
+(global-set-key (kbd "M-n") 'elscreen-next)
+(global-set-key (kbd "M-p") 'elscreen-previous)
+(global-set-key (kbd "M-t") 'elscreen-create)
+;;; split 
+
+
+;; tab face
+
+(custom-set-faces
+ '(elscreen-tab-current-screen-face ((t (:background "Yellow" :foreground "black"))))
+ '(elscreen-tab-other-screen-face ((t (:background "gray22" :foreground "black")))))
 
 ;;(add-hook 'elscreen-create-hook
 ;;          (lambda ()
-;;            (elscreen-set-default-directory  (elscreen-get-current-screen) "~/CPVE/")))
-;;;            (elscreen-cd-default-directory "~/"))
-;;
+;;            (elscreen-set-default-directory  
+;;              (elscreen-get-current-screen) "~/")))
+
 
 (add-hook 'elscreen-goto-hook
           (lambda ()
@@ -23,13 +41,27 @@
   (message
   (elscreen-get-default-directory (elscreen-get-current-screen))))
 
+(defun sd-update-elscreen-dir ()
+  "update elscreen dir as current default directory"
+  (interactive)
+  (elscreen-set-default-directory (elscreen-get-current-screen) default-directory))
+
+
+
+;;(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)))))
 
 
-(add-hook 'buffer-list-update-hook
+;; when major-mode is magit-*, don't change default-directory, otherwise, there is error when usingit command in magin-* mode
+(add-hook 'elscreen-screen-update-hook
           (lambda ()
             (let ((el-dir (elscreen-get-default-directory (elscreen-get-current-screen))))
-              (if (> (length el-dir) 0)
-                 (cd el-dir)))))
+              (unless (string-match "magit" (symbol-name major-mode))
+                (if (> (length el-dir) 0)
+                  (cd el-dir))))))
 
 
 (provide 'init-elscreen)