summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
1a1ee2a)
now, when major-mode is "magit*", don't change default-direcory
in elscreen-screen-update-hook
;; this config file is based on seudut/elscreen.git, which added two interface and one property
;; default directory
;; 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"
;; change default keybinding
(global-set-key (kbd "<M-tab>") 'elscreen-next) ;; "C-M-I"
(defun sd-update-elscreen-dir ()
"update elscreen dir as current default directory"
(interactive)
(defun sd-update-elscreen-dir ()
"update elscreen dir as current default directory"
(interactive)
- (elscreen-set-default-directory (elscreen-get-current-scren) default-directory))
+ (elscreen-set-default-directory (elscreen-get-current-screen) default-directory))
+;; 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))))
+ (unless (string-match "magit" (symbol-name major-mode))
+ (if (> (length el-dir) 0)
+ (cd el-dir))))))
+
+
(global-set-key (kbd "M-g M-w") 'other-window)
(global-set-key (kbd "M-g M-w") 'other-window)
-;(global-set-key (kbd "C-g C-k") 'windmove-up)
-;(global-set-key (kbd "C-g C-j") 'windmove-down)
-
;;;; show default directory on mode-line
;;;; show default directory on mode-line