Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; dired configuration ;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;
- (require 'wdired)
- (require 'dired)
- (add-hook 'dired-mode-hook
- '(lambda ()
- (define-key dired-mode-map [tab] 'dired-hide-subdir)
- (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
- (define-key dired-mode-map "q" 'kill-buffer)
- (define-key dired-mode-map "e" 'dired-open-eshell)
- (define-key dired-mode-map "p" 'dired-up-directory)
- (define-key dired-mode-map "n" 'dired-advertised-find-file)
- (define-key dired-mode-map "j" 'dired-next-line)
- (define-key dired-mode-map "k" 'dired-previous-line)
- (define-key dired-mode-map "o" 'dired-open-file)
- (define-key dired-mode-map "v" 'dired-open-with-evince)))
- (defun my-eshell-move-to-dir (dir)
- (eshell-kill-input)
- (cd dir)
- (eshell-send-input))
- (global-set-key [f12] 'my-popup-eshell)
- (defun dired-open-eshell ()
- (interactive)
- (let ((current-dir dired-directory))
- (eshell)
- (my-eshell-move-to-dir ".")))
- (defun dired-open-current-directory ()
- (interactive)
- (dired "."))
- (defun dired-open-with-evince ()
- (interactive)
- (dired-do-async-shell-command "evince" t (dired-get-marked-files t nil) ))
- (defun dired-open-file ()
- "In dired, open the file named on this line."
- (interactive)
- (let* ((file (dired-get-filename)))
- (message "Opening %s..." file)
- (call-process "gnome-open" nil 0 nil file)
- (message "Opening %s done" file)))
- (defun dired-next-line (arg)
- (interactive "p")
- (sane-forward-line arg)
- (dired-move-to-filename))
- (defun dired-previous-line (arg)
- "Move up lines then position at filename.
- Optional prefix ARG says how many lines to move; default is one line."
- (interactive "p")
- (sane-forward-line (- arg))
- (dired-move-to-filename))
Add Comment
Please, Sign In to add comment