move dired configuration to separate file

2 files changed, 24 insertions, 25 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)
diff --git a/init.el b/init.el
index 4960182..121dbf8 100644
--- a/init.el
+++ b/init.el
@@ -58,28 +58,7 @@
             (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)
-(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
-
-
+(load "init-dired.el")
 (require 'tramp)
 (setq tramp-default-method "ssh")
 
@@ -165,9 +144,6 @@
 ;; ediff settings
 (setq ediff-diff-options "-w")
 
-;; TODO: what does this do?
-(put 'dired-find-alternate-file 'disabled nil)
-
 ;; cause Emacs to fully redraw the display *before* it processes queued input events.
 (setq redisplay-dont-pause t)