emacs/lisp/image-dired.el

130 ;; saving the current batch in the ring when inserting it.  Adding it
138 ;; image-dired is enabled in the current buffer and, if it is, call
250   "Format of command used to create temporary image for display window.
253 the calculated max size for width and height in the image display window,
428 window containing the thumbnail buffer, Fixed means to use
443 (defcustom image-dired-display-window-width-correction 1
444   "Number to be used to correct image display window width.
450 (defcustom image-dired-display-window-height-correction 0
451   "Number to be used to correct image display window height.
458   "The current state of the tracking and mirroring.
517   "Return the current thumbnails directory (from variable `image-dired-dir').
697   "Mark current file in dired and display next thumbnail image."
721     (with-current-buffer buf
733     (with-current-buffer buf
739 (defvar image-dired-saved-window-configuration nil
740   "Saved window configuration.")
743 (defun image-dired-dired-with-window-configuration (dir &optional arg)
744   "Open directory DIR and create a default window configuration.
758 The current window configuration is saved and can be restored by
759 calling `image-dired-restore-window-configuration'."
763     (setq image-dired-saved-window-configuration
764           (current-window-configuration))
768       (split-window-horizontally)
771         (other-window 1)
773         (split-window-vertically)
774         (other-window 1)
776         (other-window -2)))))
778 (defun image-dired-restore-window-configuration ()
779   "Restore window configuration.
780 Restore any changes to the window configuration made by calling
781 `image-dired-dired-with-window-configuration'."
783   (if image-dired-saved-window-configuration
784       (set-window-configuration image-dired-saved-window-configuration)
785     (message "No saved window configuration")))
795 Recommended usage is to split the current frame horizontally so that
796 you have the dired buffer in the left window and the
797 `image-dired-thumbnail-buffer' buffer in the right window.
814     (setq dired-buf (current-buffer))
815     (with-current-buffer buf
960   "Tag current thumbnail."
995 (defun image-dired-get-buffer-window (buf)
996   "Return window where buffer BUF is."
997   (get-window-with-predicate
998    (lambda (window)
999      (equal (window-buffer window) buf))
1007   (let ((old-buf (current-buffer))
1017         (set-window-point
1018          (image-dired-get-buffer-window dired-buf) (point)))
1032   "Track current dired file's thumb in `image-dired-thumbnail-buffer'.
1036         (old-buf (current-buffer))
1050         (set-window-point
1051          (image-dired-thumbnail-window) (point))
1173   "Check whether file on current line is marked or not."
1188     (with-current-buffer dired-buf
1225   "Jump to the dired buffer associated with the current image file.
1230         window frame)
1231     (setq window (image-dired-get-buffer-window buf))
1232     (if window
1234           (if (not (equal (selected-frame) (setq frame (window-frame window))))
1236           (select-window window))
1243   (let ((window (image-dired-thumbnail-window))
1245     (if window
1247           (if (not (equal (selected-frame) (setq frame (window-frame window))))
1249           (select-window window))
1320   (define-key image-dired-thumbnail-mode-map "q" 'image-dired-kill-buffer-and-window)
1340     [menu-bar image-dired image-dired-kill-buffer-and-window]
1341     '("Quit" . image-dired-kill-buffer-and-window))
1418   (define-key image-dired-display-image-mode-map "q" 'image-dired-kill-buffer-and-window)
1421     'image-dired-display-current-image-full)
1424     'image-dired-display-current-image-sized)
1431     [menu-bar image-dired image-dired-kill-buffer-and-window]
1432     '("Quit" . image-dired-kill-buffer-and-window))
1435     [menu-bar image-dired image-dired-display-current-image-sized]
1436     '("Display original, sized to fit" . image-dired-display-current-image-sized))
1439     [menu-bar image-dired image-dired-display-current-image-full]
1440     '("Display original, full size" . image-dired-display-current-image-full))
1444 (defun image-dired-display-current-image-full ()
1445   "Display current image in full size."
1454 (defun image-dired-display-current-image-sized ()
1455   "Display current image in sized to fit window dimensions."
1632   "Remove current thumbnail from thumbnail buffer and line up."
1685         (width (image-dired-window-width-pixels (image-dired-thumbnail-window)))
1722 (defun image-dired-window-width-pixels (window)
1724     (* (window-width window) (frame-char-width)))
1726 (defun image-dired-window-height-pixels (window)
1729     (* (- (window-height window) 1) (frame-char-height)))
1731 (defun image-dired-display-window ()
1732   "Return window where `image-dired-display-image-buffer' is visible."
1733   (get-window-with-predicate
1734    (lambda (window)
1735      (equal (buffer-name (window-buffer window)) image-dired-display-image-buffer))
1738 (defun image-dired-thumbnail-window ()
1739   "Return window where `image-dired-thumbnail-buffer' is visible."
1740   (get-window-with-predicate
1741    (lambda (window)
1742      (equal (buffer-name (window-buffer window)) image-dired-thumbnail-buffer))
1745 (defun image-dired-associated-dired-buffer-window ()
1746   "Return window where associated dired buffer is visible."
1751           (get-window-with-predicate
1752            (lambda (window)
1753              (equal (window-buffer window) buf))))
1756 (defun image-dired-display-window-width ()
1757   "Return width, in pixels, of image-dired's image display window."
1758   (- (image-dired-window-width-pixels (image-dired-display-window))
1759      image-dired-display-window-width-correction))
1761 (defun image-dired-display-window-height ()
1762   "Return height, in pixels, of image-dired's image display window."
1763   (- (image-dired-window-height-pixels (image-dired-display-window))
1764      image-dired-display-window-height-correction))
1769 window.  The image is sized to fit the display window (using a
1782           (setq width (image-dired-display-window-width))
1783           (setq height (image-dired-display-window-height))
1799     (with-current-buffer (image-dired-create-display-image-buffer)
1808   "Display current thumbnail's original image in display buffer.
1826   "Display current image file.
1852       ;; the current file but I do not know how to do that. Yet...
1874   "Force creation of new image for current thumbnail."
1981     (with-current-buffer buf
1996 Copy current or all marked files in dired to a new file in your
2078   "Add comment to current or marked files in dired."
2088   "Add comment to current thumbnail in thumbnail buffer."
2153          ;; the current one.
2210          (dired-buf (buffer-name (current-buffer)))
2365                     (current-time-string)))
2438 (defun image-dired-kill-buffer-and-window ()
2439   "Kill the current buffer and, if possible, also the window."
2441   (let ((buffer (current-buffer)))
2443         (delete-window (selected-window))
2452   "Edit comment and tags of current or marked image files.
2584 ;;     (let ((filename (with-current-buffer dired-buffer