emacs.d/config/init-elscreen.el

   1
   2 ;;(add-hook 'elscreen-create-hook
   3 ;;          (lambda ()
   4 ;;            (elscreen-set-default-directory  (elscreen-get-current-screen) "~/CPVE/")))
   5 ;;;            (elscreen-cd-default-directory "~/"))
   6 ;;
   7
   8 (add-hook 'elscreen-goto-hook
   9           (lambda ()
  10             (elscreen-cd-default-directory
  11               (elscreen-get-default-directory (elscreen-get-current-screen)))))
  12
  13 (defun sd-cd-dd (dir)
  14   "Set default directory screen."
  15   (interactive "sSet dir:")
  16   (elscreen-set-default-directory (elscreen-get-current-screen) dir)
  17   (cd dir)
  18 )
  19
  20 (defun sd-show-dir ()
  21   "show elscreen default directory."
  22   (interactive)
  23   (message
  24   (elscreen-get-default-directory (elscreen-get-current-screen))))
  25
  26
  27
  28 (add-hook 'buffer-list-update-hook
  29           (lambda ()
  30             (let ((el-dir (elscreen-get-default-directory (elscreen-get-current-screen))))
  31               (if (> (length el-dir) 0)
  32                  (cd el-dir)))))
  33
  34
  35 (provide 'init-elscreen)