exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Dired] Cleanup and cosmetics

Browse Source 
Removed dired-subtree, never really used it anyway.
This commit is contained in:
Daniel Borchmann 2018-07-31 20:00:55 +02:00
parent e576b6fb69
commit 37809363b7
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
init.el
View File

@ -783,8 +783,6 @@ are assumed to be of the form *.crt."
("\\.html?\\'" "firefox")
("\\.docx?\\'" "loffice"))))
(unbind-key "C-M-o" dired-mode-map)
;; disable exaggerated fontification of dired+
(use-package font-lock)
(add-to-list 'font-lock-maximum-decoration '(wdired-mode . 1))
@ -800,18 +798,12 @@ are assumed to be of the form *.crt."
;; custom keybindings
(bind-key [remap beginning-of-buffer]
'dired-back-to-top dired-mode-map)
(bind-key [remap end-of-buffer]
'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)
;; https://oremacs.com/2017/03/18/dired-ediff/
(defun ora-ediff-files ()
"Compare marked files in dired with ediff."
;; from: https://oremacs.com/2017/03/18/dired-ediff/
(interactive)
(lexical-let ((files (dired-get-marked-files))
(wnd (current-window-configuration)))
@ -830,12 +822,16 @@ are assumed to be of the form *.crt."
(setq ediff-after-quit-hook-internal nil)
(set-window-configuration wnd))))
(error "No more than 2 files should be marked"))))
(bind-key "e" 'ora-ediff-files dired-mode-map)
(defun dired-back-to-top ()
"Jump to first non-trivial line in dired."
(interactive)
(goto-char (point-min))
(dired-next-line 2))
(dired-next-line 1))
(bind-key [remap beginning-of-buffer]
'dired-back-to-top dired-mode-map)
(defun dired-jump-to-bottom ()
"Jump to last non-trivial line in dired."
@ -843,6 +839,9 @@ are assumed to be of the form *.crt."
(goto-char (point-max))
(dired-next-line -1))
(bind-key [remap end-of-buffer]
'dired-jump-to-bottom dired-mode-map)
(defun dired-get-size () ; from emacswiki, via oremacs
"Print size of all files marked in the current dired buffer."
(interactive)
@ -855,9 +854,7 @@ are assumed to be of the form *.crt."
(re-search-backward "\\(^[0-9.,]+[a-za-z]+\\).*total$")
(match-string 1))))))
(use-package dired-subtree)
(bind-key "i" 'dired-subtree-insert dired-mode-map)
(bind-key ";" 'dired-subtree-remove dired-mode-map)))
(bind-key "z" 'dired-get-size dired-mode-map)))
(use-package find-dired
:commands (find-dired)