mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 01:41:01 -08:00
Code Issues Projects Releases Wiki Activity

image-dired: Improve marking behavior

Browse source 
* lisp/image-dired.el (image-dired-thumb-mark): Use DarkOrange as
background to better match the 'dired-marked' face.
(image-dired-show-all-from-dir): Disable all marks when entering a
full directory.
(image-dired-unmark-all-marks): Add mode tag.
(image-dired-thumbnail-mode-map): Bind 'image-dired-unmark-all-marks'
to "U".
This commit is contained in:
Stefan Kangas 2021-11-03 07:14:21 +01:00
parent 73c3d622a8
commit f1770a68ae
2 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
etc/NEWS
View file

@ -244,8 +244,8 @@ external "exiftool" command to be available. The user options
---
*** New command for the thumbnail buffer.
The new command 'image-dired-unmark-all-marks' has been added with a
binding in the menu.
The new command 'image-dired-unmark-all-marks' has been added. It is
bound to "U" in the thumbnail buffer.
---
*** Support Thumbnail Managing Standard v0.9.0 (Dec 2020).

14
lisp/image-dired.el
View file

@ -465,10 +465,10 @@ images."
:version "28.1")
(defface image-dired-thumb-mark
'((t (:background "orange")))
'((t (:background "DarkOrange")))
"Background-color for marked images in thumbnail buffer."
:group 'image-dired
:version "28.1")
:version "29.1")
(defcustom image-dired-line-up-method 'dynamic
"Default method for line-up of thumbnails in thumbnail buffer.
@ -1129,7 +1129,8 @@ never ask for confirmation."
"Directory contains more than %d image files. Proceed?"
image-dired-show-all-from-dir-max-files))))
(image-dired-display-thumbs)
(pop-to-buffer image-dired-thumbnail-buffer))
(pop-to-buffer image-dired-thumbnail-buffer)
(image-dired-unmark-all-marks))
(t (message "Image-Dired canceled")))))
;;;###autoload
@ -1539,9 +1540,9 @@ Should be called from commands in `image-dired-thumbnail-mode'."
(dired-mark 1))))
(defun image-dired-unmark-all-marks ()
"Remove all marks from all files.
Do this in the Dired buffer and update this thumbnail buffer."
(interactive)
"Remove all marks from all files in associated Dired buffer.
Also update the marks in the thumbnail buffer."
(interactive nil image-dired-thumbnail-mode)
(with-current-buffer (image-dired-associated-dired-buffer)
(dired-unmark-all-marks))
(image-dired-thumb-update-marks))
@ -1614,6 +1615,7 @@ You probably want to use this together with
(define-key map [delete] 'image-dired-flag-thumb-original-file)
(define-key map "m" 'image-dired-mark-thumb-original-file)
(define-key map "u" 'image-dired-unmark-thumb-original-file)
(define-key map "U" 'image-dired-unmark-all-marks)
(define-key map "." 'image-dired-track-original-file)
(define-key map [tab] 'image-dired-jump-original-dired-buffer)