doomemacs/modules/term/eshell/autoload/commands.el

31 lines
901 B
EmacsLisp
Raw Normal View History

;;; term/eshell/autoload/commands.el -*- lexical-binding: t; -*-
2019-10-18 19:40:27 -04:00
;;;###autoload
(defun eshell/emacs (&rest files)
"Open a FILES in Emacs.
For folks with a habit of using \"emacs\" to open files, even in eshell."
(if files
2019-10-18 19:40:27 -04:00
(mapc #'find-file
(mapcar #'expand-file-name
(eshell-flatten-list (reverse files))))
2019-10-18 19:40:27 -04:00
(bury-buffer)))
;;;###autoload
(defalias 'eshell/e #'eshell/emacs)
;;;###autoload
(defun eshell/cd-to-project ()
"Change to the project root of the current directory."
(eshell/cd (doom-project-root (eshell/pwd))))
;;;###autoload
(defun eshell/quit-and-close (&rest _)
"Quit the current eshell buffer and close the window it's in."
(setq-local +eshell-kill-window-on-exit t)
(throw 'eshell-terminal t))
;;;###autoload
(defun eshell/mkdir-and-cd (dir)
"Create a directory then cd into it."
(make-directory dir t)
(eshell/cd dir))