[Dired] Move ‘dired’ helper functions back into ‘use-package’ declaration

Sorry for the back-and-forth … :/
This commit is contained in:
Daniel - 2018-01-27 17:58:04 +01:00
parent 7d8abe0e50
commit 5a6e4a81d8
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 49 additions and 49 deletions

16
init.el
View File

@ -811,17 +811,13 @@ are assumed to be of the form *.crt."
(dired-quick-sort-setup)
(bind-key [remap beginning-of-buffer]
#'dired-back-to-top dired-mode-map)
'dired-back-to-top dired-mode-map)
(bind-key [remap end-of-buffer]
#'dired-jump-to-bottom dired-mode-map)
'dired-jump-to-bottom dired-mode-map)
(bind-key "z" 'dired-get-size dired-mode-map)
(unbind-key "s" dired-mode-map)
(unbind-key "<f1>" dired-mode-map)
(bind-key "e" #'ora-ediff-files dired-mode-map)))
(use-package find-dired
:commands (find-dired)
:config (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld")))
(bind-key "e" 'ora-ediff-files dired-mode-map)
;; https://oremacs.com/2017/03/18/dired-ediff/
(defun ora-ediff-files ()
@ -867,7 +863,11 @@ are assumed to be of the form *.crt."
"size of all marked files: %s"
(progn
(re-search-backward "\\(^[0-9.,]+[a-za-z]+\\).*total$")
(match-string 1))))))
(match-string 1))))))))
(use-package find-dired
:commands (find-dired)
:config (setq find-ls-option '("-print0 | xargs -0 ls -ld" . "-ld")))
;; * Completion