From f32d8f87d64caa604653ba8ab93ad28e8c3d44ed Mon Sep 17 00:00:00 2001 From: rekado Date: Tue, 2 Sep 2014 13:42:48 +0200 Subject: customise behaviour in dired --- init.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'init.el') diff --git a/init.el b/init.el index 525158b..1f23cb9 100644 --- a/init.el +++ b/init.el @@ -66,6 +66,29 @@ (turn-on-haskell-indentation) (turn-on-haskell-doc))) +;; jump to first or last file in dired, not to the very top or bottom +(require 'dired) +(defun dired-back-to-top () + (interactive) + (beginning-of-buffer) + (dired-next-line 4)) + +(define-key dired-mode-map + (vector 'remap 'beginning-of-buffer) 'dired-back-to-top) + +(defun dired-jump-to-bottom () + (interactive) + (end-of-buffer) + (dired-next-line -1)) + +(define-key dired-mode-map + (vector 'remap 'end-of-buffer) 'dired-jump-to-bottom) +(define-key dired-mode-map + (kbd "") 'dired-find-alternate-file) ; was dired-advertised-find-file +(define-key dired-mode-map + (kbd "^") (lambda () (interactive) (find-alternate-file ".."))) ; was dired-up-directory + + (require 'tramp) (setq tramp-default-method "ssh") -- cgit v1.2.3