;; this config file is based on  seudut/elscreen.git, which added two interface and one property 
;; default directory


;; 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) "~/")))


(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))))

(defun sd-update-elscreen-dir ()
  "update elscreen dir as current default directory"
  (interactive)
  (elscreen-set-default-directory (elscreen-get-current-scren) 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)))))


(provide 'init-elscreen)