1 ;; this config file is based on seudut/elscreen.git, which added two interface and one property
5 ;; change default keybinding
6 (global-set-key (kbd "<M-tab>") 'elscreen-next) ;; "C-M-I"
7 (global-set-key (kbd "M-n") 'elscreen-next)
8 (global-set-key (kbd "M-p") 'elscreen-previous)
9 (global-set-key (kbd "M-t") 'elscreen-create)
16 '(elscreen-tab-current-screen-face ((t (:background "Yellow" :foreground "black"))))
17 '(elscreen-tab-other-screen-face ((t (:background "gray22" :foreground "black")))))
19 ;;(add-hook 'elscreen-create-hook
21 ;; (elscreen-set-default-directory
22 ;; (elscreen-get-current-screen) "~/")))
25 (add-hook 'elscreen-goto-hook
27 (elscreen-cd-default-directory
28 (elscreen-get-default-directory (elscreen-get-current-screen)))))
31 "Set default directory screen."
32 (interactive "sSet dir:")
33 (elscreen-set-default-directory (elscreen-get-current-screen) dir)
38 "show elscreen default directory."
41 (elscreen-get-default-directory (elscreen-get-current-screen))))
43 (defun sd-update-elscreen-dir ()
44 "update elscreen dir as current default directory"
46 (elscreen-set-default-directory (elscreen-get-current-scren) default-directory))
50 ;;(add-hook 'buffer-list-update-hook
52 ;; (let ((el-dir (elscreen-get-default-directory (elscreen-get-current-screen))))
53 ;; (if (> (length el-dir) 0)
57 (provide 'init-elscreen)