dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: define prot-dired-count-marks command

Browse source
This commit is contained in:
Protesilaos 2026-07-02 12:55:41 +03:00
parent 2bbafcbe0f
commit 8e24cc6c14
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
emacs/.emacs.d/prot-emacs.org
View file

@ -12754,6 +12754,16 @@ belong to the given subset of CONSEQUENCES.
;;;; General commands
;;;###autoload
(defun prot-dired-count-marks ()
"Print message with the number of Dired marked files."
(interactive nil dired-mode)
(if-let* ((files (dired-get-marked-files))
(length (length files))
(_ (> length 1)))
(message "%d files are marked" length)
(user-error "No files found")))
;;;###autoload
(defun prot-dired-open-directory-externally ()
"Open the current directory in an external file manager."

10
emacs/.emacs.d/prot-lisp/prot-dired.el
View file

@ -39,6 +39,16 @@
;;;; General commands
;;;###autoload
(defun prot-dired-count-marks ()
"Print message with the number of Dired marked files."
(interactive nil dired-mode)
(if-let* ((files (dired-get-marked-files))
(length (length files))
(_ (> length 1)))
(message "%d files are marked" length)
(user-error "No files found")))
;;;###autoload
(defun prot-dired-open-directory-externally ()
"Open the current directory in an external file manager."