move dired configuration to separate file

1 files changed, 23 insertions, 0 deletions

diff --git a/init-dired.el b/init-dired.el
new file mode 100644
index 0000000..b9f54bc
--- /dev/null
+++ b/init-dired.el
@@ -0,0 +1,23 @@
+;; jump to first or last file in dired, not to the very top or bottom
+(require 'dired)
+(require 'dired+)
+(defun my/dired-back-to-top ()
+  (interactive)
+  (beginning-of-buffer)
+  (dired-next-line 4))
+
+(define-key dired-mode-map
+  (vector 'remap 'beginning-of-buffer) 'my/dired-back-to-top)
+
+(defun my/dired-jump-to-bottom ()
+  (interactive)
+  (end-of-buffer)
+  (dired-next-line -1))
+
+(define-key dired-mode-map
+  (vector 'remap 'end-of-buffer) 'my/dired-jump-to-bottom)
+(define-key dired-mode-map
+  (kbd "^") (lambda () (interactive) (find-alternate-file "..")))  ; was dired-up-directory
+
+;; TODO: what does this do?
+(put 'dired-find-alternate-file 'disabled nil)