From 77543dfe2f4b5e312cdd0bab25d2886b1ddd64d0 Mon Sep 17 00:00:00 2001
From: Peng Li <seudut@gmail.com>
Date: Sat, 23 May 2015 23:38:52 +0800
Subject: [PATCH] emacs: change elscreen, add elscreen-default-directory, and
 test ok

---
 emacs.d/config/my-packages.el |  3 +-
 emacs.d/init.el               | 72 +++++++++++++++++++++++++++++++++++++++++--
 2 files changed, 72 insertions(+), 3 deletions(-)

diff --git a/emacs.d/config/my-packages.el b/emacs.d/config/my-packages.el
index def9bcb..278972f 100644
--- a/emacs.d/config/my-packages.el
+++ b/emacs.d/config/my-packages.el
@@ -30,7 +30,7 @@
     ace-jump-mode
 ;    el-get
     color-identifiers-mode
-    elscreen
+;    elscreen
     moe-theme
     monokai-theme
     molokai-theme
@@ -82,5 +82,6 @@
 ;(el-get-bundle Dewdrops/powerline)
 
 (el-get-bundle emacsmirror/sr-speedbar)
+(el-get-bundle seudut/elscreen)
 
 (provide 'my-packages)
diff --git a/emacs.d/init.el b/emacs.d/init.el
index 306cb01..e032f4b 100644
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -96,8 +96,9 @@
 			    (eshell-mode . emacs))
     do (evil-set-initial-state mode state))
 
-;(evil-mode 1)
 
+;(global-evil-tabs-mode t)
+;(evil-mode 1)
 ;;---------------------------------------------------------------------------------------
 ;; Fiplr
 ;;
@@ -115,7 +116,74 @@
 (global-set-key (kbd "C-x C-k") 'windmove-up)
 (global-set-key (kbd "C-x C-j") 'windmove-down)
 
-
+;;---------------------------------------------------------------------------------------
+;; sr-speedbar
+;;
+;(require 'sr-speedbar)
+;(setq speedbar-use-images nil)
+;(setq speedbar-show-unknown-files t)
 
 
 (toggle-frame-fullscreen)
+
+
+(require 'projectile)
+(projectile-global-mode)
+(setq projectile-enable-caching t)
+(require 'projectile-speedbar)
+
+(require 'cc-mode)
+(require 'ecb)
+
+(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)))))
+              
+              
-- 
2.11.0