You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.3 KiB
47 lines
1.3 KiB
(require 'bookmark)
|
|
|
|
(defun pcomplete/eshell-mode/jump ()
|
|
"Completion for `jump'"
|
|
(pcomplete-here (bookmark-all-names)))
|
|
|
|
(defun eshell/jump (&rest args)
|
|
"Integration between EShell and bookmarks.
|
|
For usage, execute without arguments."
|
|
(setq args (eshell-flatten-list args))
|
|
(let ((bookmark (car args))
|
|
filename name)
|
|
(if (eq nil args)
|
|
(eshell/jump-usage)
|
|
;; Check whether an existing bookmark has been specified
|
|
(if (setq filename (cdr (car (bookmark-get-bookmark-record bookmark))))
|
|
;; If it points to a directory, change to it.
|
|
(if (file-directory-p filename)
|
|
(eshell/cd filename)
|
|
;; otherwise, just jump to the bookmark
|
|
(bookmark-jump bookmark))
|
|
(error "%s is not a bookmark" bookmark)))))
|
|
|
|
|
|
;;;###autoload
|
|
(defun eshell/jump-usage ()
|
|
(format "Usage:
|
|
jump BOOKMARK
|
|
|
|
either change directory pointed to by BOOKMARK
|
|
or bookmark-jump to the BOOKMARK if it is not a directory.
|
|
|
|
Use bmk BOOKMARK to add bookmarks.
|
|
|
|
Completion is available."))
|
|
|
|
|
|
;;;###autoload
|
|
(defun eshell/bmk (&rest args)
|
|
(if (setq name (car args))
|
|
(progn
|
|
(bookmark-set name)
|
|
(bookmark-set-filename name (eshell/pwd))
|
|
(format "Saved current directory in bookmark as '%s'" name))
|
|
(error "You must enter a bookmark name")))
|
|
|
|
(provide 'eshellbmk)
|