From bfa4630ae4ba348d036ab5fdd9c88c0c28a0a5a8 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 5 Oct 2017 21:34:32 -0400
Subject: dired: Add beginning-of-buffer variant

---
 init.el          | 2 ++
 lisp/km-dired.el | 6 ++++++
 2 files changed, 8 insertions(+)

diff --git a/init.el b/init.el
index 090ee53..0bb399f 100644
--- a/init.el
+++ b/init.el
@@ -1506,6 +1506,8 @@
 
   (after 'dired
     (bind-keys :map dired-mode-map
+               ;; This overrides `dired-clean-directory'.
+               ("." . km/dired-beginning-of-buffer)
                ;; This overrides `dired-find-file', which is also
                ;; bound to "f".
                ("e" . km/org-open-dired-marked-files)
diff --git a/lisp/km-dired.el b/lisp/km-dired.el
index 00e0163..9062c61 100644
--- a/lisp/km-dired.el
+++ b/lisp/km-dired.el
@@ -93,6 +93,12 @@
                              "%Y%m%d%H%M.%S"
                              (nth 5 (file-attributes it)))))))
 
+;;;###autoload
+(defun km/dired-beginning-of-buffer ()
+  (interactive)
+  (beginning-of-buffer)
+  (dired-next-line 1))
+
 
 ;;; Copying file names
 
-- 
cgit v1.2.3