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

Do interactive mode tagging in image-dired.el

Browse source 
* lisp/image-dired.el (image-dired-restore-window-configuration)
(image-dired-next-line, image-dired-previous-line)
(image-dired-mark-thumb-original-file)
(image-dired-unmark-thumb-original-file)
(image-dired-flag-thumb-original-file)
(image-dired-toggle-mark-thumb-original-file)
(image-dired-jump-original-dired-buffer)
(image-dired-delete-char, image-dired-refresh-thumb)
(image-dired-display-next-thumbnail-original)
(image-dired-display-previous-thumbnail-original): Do interactive
tagging; these will only work in 'image-dired-thumbnail-mode'.
This commit is contained in:
Stefan Kangas 2021-10-28 02:10:09 +02:00
parent bc4937539e
commit cb94996357
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/image-dired.el
View file

@ -1046,7 +1046,7 @@ calling `image-dired-restore-window-configuration'."
"Restore window configuration. "Restore window configuration.
Restore any changes to the window configuration made by calling Restore any changes to the window configuration made by calling
`image-dired-dired-with-window-configuration'." `image-dired-dired-with-window-configuration'."
(interactive) (interactive nil image-dired-thumbnail-mode)
(if image-dired-saved-window-configuration (if image-dired-saved-window-configuration
(set-window-configuration image-dired-saved-window-configuration) (set-window-configuration image-dired-saved-window-configuration)
(message "No saved window configuration"))) (message "No saved window configuration")))
@ -1416,7 +1416,7 @@ image."
(defun image-dired-next-line () (defun image-dired-next-line ()
"Move to next line and display properties." "Move to next line and display properties."
(interactive) (interactive nil image-dired-thumbnail-mode)
(let ((goal-column (current-column))) (let ((goal-column (current-column)))
(forward-line 1) (forward-line 1)
(move-to-column goal-column)) (move-to-column goal-column))
@ -1430,7 +1430,7 @@ image."
(defun image-dired-previous-line () (defun image-dired-previous-line ()
"Move to previous line and display properties." "Move to previous line and display properties."
(interactive) (interactive nil image-dired-thumbnail-mode)
(let ((goal-column (current-column))) (let ((goal-column (current-column)))
(forward-line -1) (forward-line -1)
(move-to-column goal-column)) (move-to-column goal-column))
@ -1524,25 +1524,25 @@ Dired."
(defun image-dired-mark-thumb-original-file () (defun image-dired-mark-thumb-original-file ()
"Mark original image file in associated Dired buffer." "Mark original image file in associated Dired buffer."
(interactive) (interactive nil image-dired-thumbnail-mode)
(image-dired-modify-mark-on-thumb-original-file 'mark) (image-dired-modify-mark-on-thumb-original-file 'mark)
(image-dired-forward-image)) (image-dired-forward-image))
(defun image-dired-unmark-thumb-original-file () (defun image-dired-unmark-thumb-original-file ()
"Unmark original image file in associated Dired buffer." "Unmark original image file in associated Dired buffer."
(interactive) (interactive nil image-dired-thumbnail-mode)
(image-dired-modify-mark-on-thumb-original-file 'unmark) (image-dired-modify-mark-on-thumb-original-file 'unmark)
(image-dired-forward-image)) (image-dired-forward-image))
(defun image-dired-flag-thumb-original-file () (defun image-dired-flag-thumb-original-file ()
"Flag original image file for deletion in associated Dired buffer." "Flag original image file for deletion in associated Dired buffer."
(interactive) (interactive nil image-dired-thumbnail-mode)
(image-dired-modify-mark-on-thumb-original-file 'flag) (image-dired-modify-mark-on-thumb-original-file 'flag)
(image-dired-forward-image)) (image-dired-forward-image))
(defun image-dired-toggle-mark-thumb-original-file () (defun image-dired-toggle-mark-thumb-original-file ()
"Toggle mark on original image file in associated Dired buffer." "Toggle mark on original image file in associated Dired buffer."
(interactive) (interactive nil image-dired-thumbnail-mode)
(image-dired-modify-mark-on-thumb-original-file 'toggle)) (image-dired-modify-mark-on-thumb-original-file 'toggle))
(defun image-dired-unmark-all-marks () (defun image-dired-unmark-all-marks ()
@ -1557,7 +1557,7 @@ Do this in the Dired buffer and update this thumbnail buffer."
"Jump to the Dired buffer associated with the current image file. "Jump to the Dired buffer associated with the current image file.
You probably want to use this together with You probably want to use this together with
`image-dired-track-original-file'." `image-dired-track-original-file'."
(interactive) (interactive nil image-dired-thumbnail-mode)
(let ((buf (image-dired-associated-dired-buffer)) (let ((buf (image-dired-associated-dired-buffer))
window frame) window frame)
(setq window (image-dired-get-buffer-window buf)) (setq window (image-dired-get-buffer-window buf))
@ -1882,7 +1882,7 @@ Ask user for number of images to show and the delay in between."
(defun image-dired-delete-char () (defun image-dired-delete-char ()
"Remove current thumbnail from thumbnail buffer and line up." "Remove current thumbnail from thumbnail buffer and line up."
(interactive) (interactive nil image-dired-thumbnail-mode)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(delete-char 1) (delete-char 1)
(when (= (following-char) ?\s) (when (= (following-char) ?\s)
@ -2101,7 +2101,7 @@ With prefix argument ARG, display image in its original size."
(defun image-dired-refresh-thumb () (defun image-dired-refresh-thumb ()
"Force creation of new image for current thumbnail." "Force creation of new image for current thumbnail."
(interactive) (interactive nil image-dired-thumbnail-mode)
(let* ((file (image-dired-original-file-name)) (let* ((file (image-dired-original-file-name))
(thumb (expand-file-name (image-dired-thumb-name file)))) (thumb (expand-file-name (image-dired-thumb-name file))))
(clear-image-cache (expand-file-name thumb)) (clear-image-cache (expand-file-name thumb))
@ -2236,13 +2236,13 @@ function. The result is a couple of new files in
(defun image-dired-display-next-thumbnail-original () (defun image-dired-display-next-thumbnail-original ()
"In thumbnail buffer, move to next thumbnail and display the image." "In thumbnail buffer, move to next thumbnail and display the image."
(interactive) (interactive nil image-dired-thumbnail-mode)
(image-dired-forward-image) (image-dired-forward-image)
(image-dired-display-thumbnail-original-image)) (image-dired-display-thumbnail-original-image))
(defun image-dired-display-previous-thumbnail-original () (defun image-dired-display-previous-thumbnail-original ()
"Move to previous thumbnail and display image." "Move to previous thumbnail and display image."
(interactive) (interactive nil image-dired-thumbnail-mode)
(image-dired-backward-image) (image-dired-backward-image)
(image-dired-display-thumbnail-original-image)) (image-dired-display-thumbnail-original-image))