Move Dired utility functions to general utility library
This commit is contained in:
parent
2dc1a4e6e0
commit
d8a41ca0cf
37
init.el
37
init.el
|
@ -618,7 +618,10 @@
|
||||||
db/dired-ediff-files
|
db/dired-ediff-files
|
||||||
db/grep-read-files
|
db/grep-read-files
|
||||||
db/make-selector-from-table-header
|
db/make-selector-from-table-header
|
||||||
db/get-library-version))
|
db/get-library-version
|
||||||
|
db/dired-back-to-top
|
||||||
|
db/dired-jump-to-bottom
|
||||||
|
db/dired-get-size))
|
||||||
|
|
||||||
(use-package db-hydras
|
(use-package db-hydras
|
||||||
:commands (hydra-toggle/body
|
:commands (hydra-toggle/body
|
||||||
|
@ -2101,9 +2104,9 @@ The password is assumed to be stored at the PASSWORD property."
|
||||||
(use-package dired
|
(use-package dired
|
||||||
:bind (:map dired-mode-map
|
:bind (:map dired-mode-map
|
||||||
("e" . db/dired-ediff-files)
|
("e" . db/dired-ediff-files)
|
||||||
("z" . dired-get-size)
|
("z" . db/dired-get-size)
|
||||||
([remap beginning-of-buffer] . dired-back-to-top)
|
([remap beginning-of-buffer] . db/dired-back-to-top)
|
||||||
([remap end-of-buffer] . dired-jump-to-bottom)
|
([remap end-of-buffer] . db/dired-jump-to-bottom)
|
||||||
("<f1>" . nil)
|
("<f1>" . nil)
|
||||||
("<tab>" . dired-subtree-toggle)
|
("<tab>" . dired-subtree-toggle)
|
||||||
("<C-tab>" . dired-subtree-cycle))
|
("<C-tab>" . dired-subtree-cycle))
|
||||||
|
@ -2174,31 +2177,7 @@ The password is assumed to be stored at the PASSWORD property."
|
||||||
(add-hook 'dired-mode-hook 'dired-omit-mode)
|
(add-hook 'dired-mode-hook 'dired-omit-mode)
|
||||||
(add-hook 'dired-mode-hook 'dired-hide-details-mode)
|
(add-hook 'dired-mode-hook 'dired-hide-details-mode)
|
||||||
(dolist (extension '(".out" ".synctex.gz" ".thm"))
|
(dolist (extension '(".out" ".synctex.gz" ".thm"))
|
||||||
(add-to-list 'dired-latex-unclean-extensions extension))
|
(add-to-list 'dired-latex-unclean-extensions extension))))
|
||||||
|
|
||||||
(defun dired-back-to-top ()
|
|
||||||
"Jump to first non-trivial line in dired."
|
|
||||||
(interactive)
|
|
||||||
(goto-char (point-min))
|
|
||||||
(dired-next-line 1))
|
|
||||||
|
|
||||||
(defun dired-jump-to-bottom ()
|
|
||||||
"Jump to last non-trivial line in dired."
|
|
||||||
(interactive)
|
|
||||||
(goto-char (point-max))
|
|
||||||
(dired-next-line -1))
|
|
||||||
|
|
||||||
(defun dired-get-size () ; from emacswiki, via oremacs
|
|
||||||
"Print size of all files marked in the current dired buffer."
|
|
||||||
(interactive)
|
|
||||||
(let ((files (dired-get-marked-files)))
|
|
||||||
(with-temp-buffer
|
|
||||||
(apply 'call-process "/usr/bin/du" nil t nil "-sch" files)
|
|
||||||
(message
|
|
||||||
"size of all marked files: %s"
|
|
||||||
(progn
|
|
||||||
(re-search-backward "\\(^[0-9.,]+[a-za-z]+\\).*total$")
|
|
||||||
(match-string 1))))))))
|
|
||||||
|
|
||||||
(use-package dired-x
|
(use-package dired-x
|
||||||
:commands (dired-jump dired-jump-other-window) ; In Emacs 28.1, this has been
|
:commands (dired-jump dired-jump-other-window) ; In Emacs 28.1, this has been
|
||||||
|
|
|
@ -872,6 +872,35 @@ holding the password to unlock the key."
|
||||||
"Retrieve password via Org password manager :ID: property ORG-ID."
|
"Retrieve password via Org password manager :ID: property ORG-ID."
|
||||||
(org-password-manager-get-password-by-id org-id))
|
(org-password-manager-get-password-by-id org-id))
|
||||||
|
|
||||||
|
|
||||||
|
;;; Dired
|
||||||
|
|
||||||
|
(declare-function dired-next-line "dired.el")
|
||||||
|
|
||||||
|
(defun db/dired-back-to-top ()
|
||||||
|
"Jump to first non-trivial line in Dired."
|
||||||
|
(interactive)
|
||||||
|
(goto-char (point-min))
|
||||||
|
(dired-next-line 1))
|
||||||
|
|
||||||
|
(defun db/dired-jump-to-bottom ()
|
||||||
|
"Jump to last non-trivial line in Dired."
|
||||||
|
(interactive)
|
||||||
|
(goto-char (point-max))
|
||||||
|
(dired-next-line -1))
|
||||||
|
|
||||||
|
(defun db/dired-get-size () ; from emacswiki, via oremacs
|
||||||
|
"Print size of all files marked in the current Dired buffer."
|
||||||
|
(interactive)
|
||||||
|
(let ((files (dired-get-marked-files)))
|
||||||
|
(with-temp-buffer
|
||||||
|
(apply 'call-process "/usr/bin/du" nil t nil "-sch" files)
|
||||||
|
(message
|
||||||
|
"size of all marked files: %s"
|
||||||
|
(progn
|
||||||
|
(re-search-backward "\\(^[0-9.,]+[a-za-z]+\\).*total$")
|
||||||
|
(match-string 1))))))
|
||||||
|
|
||||||
|
|
||||||
;;; End
|
;;; End
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue