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

Move Dired utility functions to general utility library

This commit is contained in:
Daniel - 2023-07-01 17:02:12 +02:00
parent 2dc1a4e6e0
commit d8a41ca0cf
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
2 changed files with 37 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
init.el
View File

@ -618,7 +618,10 @@
db/dired-ediff-files
db/grep-read-files
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
:commands (hydra-toggle/body
@ -2101,9 +2104,9 @@ The password is assumed to be stored at the PASSWORD property."
(use-package dired
:bind (:map dired-mode-map
("e" . db/dired-ediff-files)
("z" . dired-get-size)
([remap beginning-of-buffer] . dired-back-to-top)
([remap end-of-buffer] . dired-jump-to-bottom)
("z" . db/dired-get-size)
([remap beginning-of-buffer] . db/dired-back-to-top)
([remap end-of-buffer] . db/dired-jump-to-bottom)
("<f1>" . nil)
("<tab>" . dired-subtree-toggle)
("<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-hide-details-mode)
(dolist (extension '(".out" ".synctex.gz" ".thm"))
(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))))))))
(add-to-list 'dired-latex-unclean-extensions extension))))
(use-package dired-x
:commands (dired-jump dired-jump-other-window) ; In Emacs 28.1, this has been

29
site-lisp/db-utils.el
View File

@ -872,6 +872,35 @@ holding the password to unlock the key."
"Retrieve password via Org password manager :ID: property 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