From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 15 Apr 2010 19:54:09 +0000 (-0400)
Subject: Added a dired-mode-hook.
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=emacs.d.git;a=commitdiff_plain;h=2df705d3f133dfd3c9bada6423084990a67f878f

Added a dired-mode-hook.
---

diff --git a/mode-hooks.el b/mode-hooks.el
index 679909e..5ce108c 100644
--- a/mode-hooks.el
+++ b/mode-hooks.el
@@ -1,6 +1,7 @@
 (add-to-list 'load-path "~/.home/emacs/mode-hooks/")
 
 (load-library "basic-mode-hooks")
+(load-library "dired-mode-hooks")
 (load-library "nxml-mode-hooks")
 (load-library "css-mode-hooks")
 (load-library "ruby-mode-hooks")
diff --git a/mode-hooks/dired-mode-hooks.el b/mode-hooks/dired-mode-hooks.el
new file mode 100644
index 0000000..80efd0b
--- /dev/null
+++ b/mode-hooks/dired-mode-hooks.el
@@ -0,0 +1,18 @@
+(defun dired-up-directory-in-same-buffer ()
+  ;; Open the parent directory, but do it in the current buffer.
+  (interactive)
+  (find-alternate-file "..")
+)
+
+(defun dm-hook()
+  ;; Redefine some functions so that dired will re-use the current
+  ;; buffer whenever possible.
+  
+  ;; Was dired-advertised-find-file.
+  (define-key dired-mode-map (kbd "<return>") 'dired-find-alternate-file)
+
+  ;; Was dired-up-directory.
+  (define-key dired-mode-map (kbd "^") 'dired-up-directory-in-same-buffer)
+)
+
+(add-hook 'dired-mode-hook (function dm-hook))