From c86529b5613dbdafe458e97e4061e578813cf3d8 Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Thu, 13 Oct 2016 00:16:32 +0200
Subject: [PATCH] Add Dired config

---
 emacs/.emacs.d/GNUmakefile         |  3 ++-
 emacs/.emacs.d/init.org            |  7 +++++++
 emacs/.emacs.d/init/dired-init.org | 29 +++++++++++++++++++++++++++++
 3 files changed, 38 insertions(+), 1 deletion(-)
 create mode 100644 emacs/.emacs.d/init/dired-init.org

diff --git a/emacs/.emacs.d/GNUmakefile b/emacs/.emacs.d/GNUmakefile
index 61e7e00..799be57 100644
--- a/emacs/.emacs.d/GNUmakefile
+++ b/emacs/.emacs.d/GNUmakefile
@@ -3,8 +3,9 @@ include ../../dotfiles.mk
 AUTOLOADS_FILE = site-lisp/site-autoloads.el
 UNWANTED = $(AUTOLOADS_FILE) site-lisp/flycheck_% site-lisp/flycheck-%
 SITE_LISPS = $(addsuffix c,$(filter-out $(UNWANTED),$(wildcard site-lisp/*.el)))
+INIT_LISPS = $(addsuffix .elc,$(basename $(wildcard init/*.org)))
 
-all: init.elc init/js-mode-init.elc $(AUTOLOADS_FILE) $(SITE_LISPS)
+all: init.elc $(INIT_LISPS) $(AUTOLOADS_FILE) $(SITE_LISPS)
 
 %.el: %.org
 	$(call tangle,emacs-lisp)
diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org
index ef12a1f..b069b50 100644
--- a/emacs/.emacs.d/init.org
+++ b/emacs/.emacs.d/init.org
@@ -914,6 +914,13 @@ To start off, first I need to enable lexical binding.
 
 * Applications
 
+  - [[file:init/dired-init.org][Dired]] :: The Emacs file manager. Very powerful, and I don't use it
+       enough /yet/.
+
+       #+BEGIN_SRC emacs-lisp
+         (with-eval-after-load 'dired (load "dired-init"))
+       #+END_SRC
+
 ** Magit
 
    Magit is a very nice interface to Git for Emacs. It allows you to
diff --git a/emacs/.emacs.d/init/dired-init.org b/emacs/.emacs.d/init/dired-init.org
new file mode 100644
index 0000000..17f90a1
--- /dev/null
+++ b/emacs/.emacs.d/init/dired-init.org
@@ -0,0 +1,29 @@
+#+TITLE: Dired
+
+#+BEGIN_SRC emacs-lisp
+  (require 'dired)
+  (require 'dired-x)
+#+END_SRC
+
+Show human-readable sizes in dired buffers.
+
+#+BEGIN_SRC emacs-lisp
+  (setq dired-listing-switches "-alh")
+#+END_SRC
+
+Show the same info for subdirectories, but don't show the =.= and =..=
+directories, since those are most likely already shown in the buffer.
+
+#+BEGIN_SRC emacs-lisp
+  (setq dired-subdir-switches "-Alh")
+#+END_SRC
+
+Add a keybinding to dired buffers to change to wdired.
+
+#+BEGIN_SRC emacs-lisp
+  (defun oni:dired-add-wdired-keybinding ()
+    "Add a keybinding for wdired mode."
+    (define-key dired-mode-map (kbd "E") 'wdired-change-to-wdired-mode))
+
+  (add-hook 'dired-mode-hook 'oni:dired-add-wdired-keybinding)
+#+END_SRC