1 ;;; thumbs.el --- Thumbnails previewer for images files
3 ;; Copyright 2004 Free Software Foundation, Inc
5 ;; Author: Jean-Philippe Theberge <jphiltheberge@videotron.ca>
6 ;; Keywords: Multimedia
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
25 ;; Thanks: Alex Schroeder <alex@gnu.org> for maintaining the package at some time
26 ;; The peoples at #emacs@freenode.net for numerous help
27 ;; RMS for emacs and the GNU project.
32 ;; This package create two new mode: thumbs-mode and
33 ;; thumbs-view-image-mode. It is used for images browsing and viewing
34 ;; from within Emacs. Minimal image manipulation functions are also
35 ;; available via external programs.
37 ;; The 'convert' program from 'ImageMagick'
38 ;; [URL:http://www.imagemagick.org/] is required.
40 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
43 ;; This is version 2.0
47 ;; Type M-x thumbs RET DIR RET to view the directory DIR in Thumbs mode.
48 ;; That should be a directory containing image files.
49 ;; from dired, C-t m enter in thumbs-mode with all marked files
50 ;; C-t a enter in thumbs-mode with all files in current-directory
51 ;; In thumbs-mode, pressing <return> on a image will bring you in image view mode
52 ;; for that image. C-h m will give you a list of available keybinding.
64 "Thumbnails previewer."
68 (defcustom thumbs-thumbsdir
69 (expand-file-name "~/.emacs-thumbs")
70 "*Directory to store thumbnails."
74 (defcustom thumbs-geometry "100x100"
75 "*Size of thumbnails."
79 (defcustom thumbs-per-line 5
80 "*Number of thumbnails per line to show in directory."
84 (defcustom thumbs-thumbsdir-max-size 50000000
85 "Max size for thumbnails directory.
86 When it reach that size (in bytes), a warning is send."
90 (defcustom thumbs-conversion-program
91 (if (equal 'windows-nt system-type)
93 (or (executable-find "convert")
94 "/usr/X11R6/bin/convert"))
95 "*Name of conversion program for thumbnails generation.
96 It must be 'convert'."
100 (defcustom thumbs-setroot-command
101 "xloadimage -onroot -fullscreen *"
102 "Command to set the root window."
106 (defcustom thumbs-relief 5
107 "*Size of button-like border around thumbnails."
111 (defcustom thumbs-margin 2
112 "*Size of the margin around thumbnails.
113 This is where you see the cursor."
117 (defcustom thumbs-thumbsdir-auto-clean t
118 "If set, delete older file in the thumbnails directory.
119 Deletion is done at load time when the directory size is bigger
120 than 'thumbs-thumbsdir-max-size'."
124 (defcustom thumbs-image-resizing-step 10
125 "Step by wich to resize image."
129 (defcustom thumbs-temp-dir
131 "Temporary directory to use.
132 Leaving it to default '/tmp/' can let another user
133 see some of your images."
137 (defcustom thumbs-temp-prefix "emacsthumbs"
138 "Prefix to add to temp files."
142 ;; Initialize some variable, for later use.
143 (defvar thumbs-temp-file
144 (concat thumbs-temp-dir thumbs-temp-prefix)
145 "Temporary filesname for images.")
147 (defvar thumbs-current-tmp-filename
149 "Temporary filename of current image.")
150 (defvar thumbs-current-image-filename
152 "Filename of current image.")
153 (defvar thumbs-current-image-size
155 "Size of current image.")
156 (defvar thumbs-image-num
158 "Number of current image.")
159 (defvar thumbs-current-dir
161 "Current directory.")
162 (defvar thumbs-markedL
164 "List of marked files.")
166 ;; Make sure auto-image-file-mode is ON.
167 (auto-image-file-mode t)
169 ;; Create the thumbs directory if it does not exists.
170 (setq thumbs-thumbsdir (expand-file-name thumbs-thumbsdir))
172 (when (not (file-directory-p thumbs-thumbsdir))
174 (make-directory thumbs-thumbsdir)
175 (message "Creating thumbnails directory")))
177 (defvar thumbs-gensym-counter 0)
179 (defun thumbs-gensym (&optional arg)
180 "Generate a new uninterned symbol.
181 The name is made by appending a number to PREFIX, default \"Thumbs\"."
182 (let ((prefix (if (stringp arg) arg "Thumbs"))
183 (num (if (integerp arg) arg
185 thumbs-gensym-counter
186 (setq thumbs-gensym-counter (1+ thumbs-gensym-counter))))))
187 (make-symbol (format "%s%d" prefix num))))
189 (defun thumbs-cleanup-thumbsdir ()
190 "Clean the thumbnails directory.
191 If the total size of all files in 'thumbs-thumbsdir' is bigger than
192 'thumbs-thumbsdir-max-size', files are deleted until the max size is
198 (let ((fattribsL (file-attributes f)))
199 `(,(nth 4 fattribsL) ,(nth 7 fattribsL) ,f)))
200 (directory-files thumbs-thumbsdir t (image-file-name-regexp)))
201 '(lambda (l1 l2) (time-less-p (car l1)(car l2)))))
202 (dirsize (apply '+ (mapcar (lambda (x) (cadr x)) filesL))))
203 (while (> dirsize thumbs-thumbsdir-max-size)
205 (message "Deleting file %s" (cadr (cdar filesL))))
206 (delete-file (cadr (cdar filesL)))
207 (setq dirsize (- dirsize (car (cdar filesL))))
208 (setq filesL (cdr filesL)))))
210 ;; Check the thumbsnail directory size and clean it if necessary.
211 (when thumbs-thumbsdir-auto-clean
212 (thumbs-cleanup-thumbsdir))
214 (defun thumbs-call-convert (filein fileout action
215 &optional arg output-format action-prefix)
216 "Call the convert program.
217 FILEIN is the input file,
218 FILEOUT is the output file,
219 ACTION is the command to send to convert.
220 Optional argument are:
221 ARG any arguments to the ACTION command,
222 OUTPUT-FORMAT is the file format to output, default is jpeg
223 ACTION-PREFIX is the symbol to place before the ACTION command
224 (default to '-' but can sometime be '+')."
225 (let ((command (format "%s %s%s %s \"%s\" \"%s:%s\""
226 thumbs-conversion-program
227 (or action-prefix "-")
231 (or output-format "jpeg")
233 (shell-command command)))
235 (defun thumbs-increment-image-size-element (n d)
236 "Increment number N by D percent."
237 (round (+ n (/ (* d n) 100))))
239 (defun thumbs-decrement-image-size-element (n d)
240 "Decrement number N by D percent."
241 (round (- n (/ (* d n) 100))))
243 (defun thumbs-increment-image-size (s)
244 "Increment S (a cons of width x heigh)."
246 (thumbs-increment-image-size-element (car s)
247 thumbs-image-resizing-step)
248 (thumbs-increment-image-size-element (cdr s)
249 thumbs-image-resizing-step)))
251 (defun thumbs-decrement-image-size (s)
252 "Decrement S (a cons of width x heigh)."
254 (thumbs-decrement-image-size-element (car s)
255 thumbs-image-resizing-step)
256 (thumbs-decrement-image-size-element (cdr s)
257 thumbs-image-resizing-step)))
259 (defun thumbs-resize-image (&optional increment size)
260 "Resize image in current buffer.
261 if INCREMENT is set, make the image bigger, else smaller.
262 Or, alternatively, a SIZE may be specified."
264 ;; cleaning of old temp file
271 (let ((buffer-read-only nil)
275 (thumbs-increment-image-size
276 thumbs-current-image-size)
277 (thumbs-decrement-image-size
278 thumbs-current-image-size))))
279 (tmp (format "%s%s.jpg" thumbs-temp-file (thumbs-gensym))))
281 (thumbs-call-convert thumbs-current-image-filename
283 (concat (number-to-string (car x)) "x"
284 (number-to-string (cdr x))))
285 (thumbs-insert-image tmp 'jpeg 0)
286 (setq thumbs-current-tmp-filename tmp)))
288 (defun thumbs-resize-interactive (width height)
289 "Resize Image interactively to specified WIDTH and HEIGHT."
290 (interactive "nWidth: \nnHeight: ")
291 (thumbs-resize-image nil (cons width height)))
293 (defun thumbs-resize-image-size-down ()
294 "Resize image (smaller)."
296 (thumbs-resize-image nil))
298 (defun thumbs-resize-image-size-up ()
299 "Resize image (bigger)."
301 (thumbs-resize-image t))
303 (defun thumbs-thumbname (img)
304 "Return a thumbnail name for the image IMG."
305 (concat thumbs-thumbsdir "/"
306 (subst-char-in-string
311 (expand-file-name img) "/")))))
313 (defun thumbs-make-thumb (img)
314 "Create the thumbnail for IMG."
315 (let* ((fn (expand-file-name img))
316 (tn (thumbs-thumbname img)))
317 (if (or (not (file-exists-p tn))
318 ;; This is not the right fix, but I don't understand
319 ;; the external program or why it produces a geometry
320 ;; unequal to the one requested -- rms.
321 ;;; (not (equal (thumbs-file-size tn) thumbs-geometry))
323 (thumbs-call-convert fn tn "sample" thumbs-geometry))
326 (defun thumbs-image-type (img)
327 "Return image type from filename IMG."
328 (cond ((string-match ".*\\.jpe?g\\'" img) 'jpeg)
329 ((string-match ".*\\.xpm\\'" img) 'xpm)
330 ((string-match ".*\\.xbm\\'" img) 'xbm)
331 ((string-match ".*\\.gif\\'" img) 'gif)
332 ((string-match ".*\\.bmp\\'" img) 'bmp)
333 ((string-match ".*\\.png\\'" img) 'png)
334 ((string-match ".*\\.tiff?\\'" img) 'tiff)))
336 (defun thumbs-file-size (img)
337 (let ((i (image-size (find-image `((:type ,(thumbs-image-type img) :file ,img))) t)))
338 (concat (number-to-string (round (car i)))
340 (number-to-string (round (cdr i))))))
343 (defun thumbs-find-thumb (img)
344 "Display the thumbnail for IMG."
346 (find-file (thumbs-make-thumb img)))
348 (defun thumbs-insert-image (img type relief &optional marked)
349 "Insert image IMG at point.
350 TYPE and RELIEF will be used in constructing the image; see `image'
351 in the emacs-lisp manual for further documentation.
352 if MARKED is non-nil, the image is marked."
353 (let ((i `(image :type ,type
356 :conversion ,(if marked 'disabled)
357 :margin ,thumbs-margin)))
359 (setq thumbs-current-image-size
362 (defun thumbs-insert-thumb (img &optional marked)
363 "Insert the thumbnail for IMG at point.
364 if MARKED is non-nil, the image is marked"
366 (thumbs-make-thumb img) 'jpeg thumbs-relief marked)
367 (put-text-property (1- (point)) (point)
368 'thumb-image-file img))
370 (defun thumbs-do-thumbs-insertion (L)
371 "Insert all thumbs in list L."
374 (thumbs-insert-thumb img
375 (member img thumbs-markedL))
376 (when (= 0 (mod (setq i (1+ i)) thumbs-per-line))
378 (unless (bobp) (newline))))
380 (defun thumbs-show-thumbs-list (L &optional buffer-name same-window)
381 (when (not (display-images-p))
382 (error "Images are not supported in this Emacs session"))
383 (funcall (if same-window 'switch-to-buffer 'pop-to-buffer)
384 (or buffer-name "*THUMB-View*"))
385 (let ((inhibit-read-only t))
388 (thumbs-do-thumbs-insertion L)
389 (goto-char (point-min))
390 (setq thumbs-current-dir default-directory)
391 (make-variable-buffer-local 'thumbs-current-dir)))
394 (defun thumbs-show-all-from-dir (dir &optional reg same-window)
395 "Make a preview buffer for all images in DIR.
396 Optional argument REG to select file matching a regexp,
397 and SAME-WINDOW to show thumbs in the same window."
398 (interactive "DDir: ")
399 (thumbs-show-thumbs-list
400 (directory-files dir t
401 (or reg (image-file-name-regexp)))
402 (concat "*Thumbs: " dir) same-window))
405 (defun thumbs-dired-show-marked ()
406 "In Dired, make a thumbs buffer with all marked files."
408 (thumbs-show-thumbs-list (dired-get-marked-files) nil t))
411 (defun thumbs-dired-show-all ()
412 "In dired, make a thumbs buffer with all files in current directory."
414 (thumbs-show-all-from-dir default-directory nil t))
417 (defalias 'thumbs 'thumbs-show-all-from-dir)
419 (defun thumbs-find-image (img &optional num otherwin)
421 (if otherwin 'switch-to-buffer-other-window 'switch-to-buffer)
422 (concat "*Image: " (file-name-nondirectory img) " - "
423 (number-to-string (or num 0)) "*"))
424 (thumbs-view-image-mode)
425 (let ((inhibit-read-only t))
426 (setq thumbs-current-image-filename img
427 thumbs-current-tmp-filename nil
428 thumbs-image-num (or num 0))
429 (make-variable-buffer-local 'thumbs-current-image-filename)
430 (make-variable-buffer-local 'thumbs-current-tmp-filename)
431 (make-variable-buffer-local 'thumbs-current-image-size)
432 (make-variable-buffer-local 'thumbs-image-num)
433 (delete-region (point-min)(point-max))
434 (thumbs-insert-image img (thumbs-image-type img) 0)))
436 (defun thumbs-find-image-at-point (&optional img otherwin)
437 "Display image IMG for thumbnail at point.
438 use another window it OTHERWIN is t."
440 (let* ((i (or img (thumbs-current-image))))
441 (thumbs-find-image i (point) otherwin)))
443 (defun thumbs-find-image-at-point-other-window ()
444 "Display image for thumbnail at point in the preview buffer.
445 Open another window."
447 (thumbs-find-image-at-point nil t))
449 (defun thumbs-mouse-find-image (event)
450 "Display image for thumbnail at mouse click EVENT."
452 (mouse-set-point event)
453 (thumbs-find-image-at-point))
455 (defun thumbs-call-setroot-command (img)
456 "Call the setroot program for IMG."
457 (run-hooks 'thumbs-before-setroot-hook)
458 (shell-command (replace-regexp-in-string
460 (shell-quote-argument (expand-file-name img))
461 thumbs-setroot-command nil t))
462 (run-hooks 'thumbs-after-setroot-hook))
464 (defun thumbs-set-image-at-point-to-root-window ()
465 "Set the image at point as the desktop wallpaper."
467 (thumbs-call-setroot-command
468 (thumbs-current-image)))
470 (defun thumbs-set-root ()
471 "Set the current image as root."
473 (thumbs-call-setroot-command
474 (or thumbs-current-tmp-filename
475 thumbs-current-image-filename)))
477 (defun thumbs-file-alist ()
478 "Make an alist of elements (POS . FILENAME) for all images in thumb buffer."
481 (goto-char (point-min))
483 (if (thumbs-current-image)
484 (push (cons (point-marker)
485 (thumbs-current-image))
490 (defun thumbs-file-list ()
491 "Make a list of file names for all images in thumb buffer."
494 (goto-char (point-min))
496 (if (thumbs-current-image)
497 (push (thumbs-current-image) list))
501 (defun thumbs-delete-images ()
502 "Delete the image at point (and it's thumbnail) (or marked files if any)."
504 (let ((files (or thumbs-markedL (list (thumbs-current-image)))))
505 (if (yes-or-no-p (format "Really delete %d files? " (length files)))
506 (let ((thumbs-fileL (thumbs-file-alist))
507 (inhibit-read-only t))
513 (delete-file (thumbs-thumbname x)))
514 (file-error (setq failure t)))
516 (when (rassoc x thumbs-fileL)
517 (goto-char (car (rassoc x thumbs-fileL)))
518 (delete-region (point) (1+ (point))))
520 (delq x thumbs-markedL)))))))))
522 (defun thumbs-rename-images (newfile)
523 "Rename the image at point (and it's thumbnail) (or marked files if any)."
524 (interactive "FRename to file or directory: ")
525 (let ((files (or thumbs-markedL (list (thumbs-current-image))))
527 (if (and (not (file-directory-p newfile))
529 (if (file-exists-p newfile)
530 (error "Renaming marked files to file name `%s'" newfile)
531 (make-directory newfile t)))
532 (if (yes-or-no-p (format "Really rename %d files? " (length files)))
533 (let ((thumbs-fileL (thumbs-file-alist))
534 (inhibit-read-only t))
538 (if (file-directory-p newfile)
541 (file-name-nondirectory file)
543 (rename-file file newfile))
544 (file-error (setq failure t)
545 (push file failures)))
547 (when (rassoc file thumbs-fileL)
548 (goto-char (car (rassoc file thumbs-fileL)))
549 (delete-region (point) (1+ (point))))
551 (delq file thumbs-markedL)))))))
553 (display-warning 'file-error
554 (format "Rename failures for %s into %s"
558 (defun thumbs-kill-buffer ()
559 "Kill the current buffer."
561 (let ((buffer (current-buffer)))
563 (delete-window (selected-window))
565 (kill-buffer buffer)))
567 (defun thumbs-show-image-num (num)
568 "Show the image with number NUM."
569 (let ((image-buffer (get-buffer-create "*Image*")))
570 (let ((i (thumbs-current-image)))
571 (with-current-buffer image-buffer
572 (thumbs-insert-image i (thumbs-image-type i) 0))
573 (setq thumbs-image-num num
574 thumbs-current-image-filename i))))
576 (defun thumbs-next-image ()
579 (let* ((i (1+ thumbs-image-num))
580 (list (thumbs-file-alist))
582 (while (and (/= i thumbs-image-num) (not (assoc i list)))
583 (setq i (if (>= i l) 1 (1+ i))))
584 (thumbs-show-image-num i)))
586 (defun thumbs-previous-image ()
587 "Show the previous image."
589 (let* ((i (- thumbs-image-num 1))
590 (list (thumbs-file-alist))
592 (while (and (/= i thumbs-image-num) (not (assoc i list)))
593 (setq i (if (<= i 1) l (1- i))))
594 (thumbs-show-image-num i)))
596 (defun thumbs-redraw-buffer ()
597 "Redraw the current thumbs buffer."
599 (inhibit-read-only t)
600 (files (thumbs-file-list)))
602 (thumbs-do-thumbs-insertion files)
605 (defun thumbs-mark ()
606 "Mark the image at point."
608 (let ((elt (thumbs-current-image)))
610 (error "No image here"))
611 (push elt thumbs-markedL)
612 (let ((inhibit-read-only t))
614 (thumbs-insert-thumb elt t)))
615 (when (eolp) (forward-char)))
617 (defun thumbs-unmark ()
618 "Unmark the image at point."
620 (let ((elt (thumbs-current-image)))
622 (error "No image here"))
623 (setq thumbs-markedL (delete elt thumbs-markedL))
624 (let ((inhibit-read-only t))
626 (thumbs-insert-thumb elt nil)))
627 (when (eolp) (forward-char)))
629 ;; Image modification routines
631 (defun thumbs-modify-image (action &optional arg)
632 "Call convert to do ACTION on image with argument ARG.
633 ACTION and ARG should be legal convert command."
634 (interactive "sAction: \nsValue: ")
635 ;; cleaning of old temp file
641 (let ((buffer-read-only nil)
642 (tmp (format "%s%s.jpg" thumbs-temp-file (thumbs-gensym))))
644 (thumbs-call-convert thumbs-current-image-filename
648 (thumbs-insert-image tmp 'jpeg 0)
649 (setq thumbs-current-tmp-filename tmp)))
651 (defun thumbs-emboss-image (emboss)
652 "Emboss the image with value EMBOSS."
653 (interactive "nEmboss value: ")
654 (if (or (< emboss 3) (> emboss 31) (zerop (% emboss 2)))
655 (error "Arg must be an odd number between 3 and 31"))
656 (thumbs-modify-image "emboss" (number-to-string emboss)))
658 (defun thumbs-monochrome-image ()
659 "Turn the image to monochrome."
661 (thumbs-modify-image "monochrome"))
663 (defun thumbs-negate-image ()
666 (thumbs-modify-image "negate"))
668 (defun thumbs-rotate-left ()
669 "Rotate the image 90 degrees counter-clockwise."
671 (thumbs-modify-image "rotate" "270"))
673 (defun thumbs-rotate-right ()
674 "Rotate the image 90 degrees clockwise."
676 (thumbs-modify-image "rotate" "90"))
678 (defun thumbs-current-image ()
679 "Return the name of the image file name at point."
680 (get-text-property (point) 'thumb-image-file))
682 (defun thumbs-forward-char ()
683 "Move forward one image."
686 (while (and (not (eobp)) (not (thumbs-current-image)))
690 (defun thumbs-backward-char ()
691 "Move backward one image."
694 (while (and (not (bobp)) (not (thumbs-current-image)))
698 (defun thumbs-forward-line ()
699 "Move down one line."
704 (defun thumbs-backward-line ()
710 (defun thumbs-show-name ()
711 "Show the name of the current file."
713 (let ((f (thumbs-current-image)))
714 (and f (message "%s [%s]" f (thumbs-file-size f)))))
716 (defun thumbs-save-current-image ()
717 "Save the current image."
719 (let ((f (or thumbs-current-tmp-filename
720 thumbs-current-image-filename))
721 (sa (read-from-minibuffer "Save image file as: "
722 thumbs-current-image-filename)))
725 (defun thumbs-dired ()
726 "Use `dired' on the current thumbs directory."
728 (dired thumbs-current-dir))
732 (defvar thumbs-mode-map
733 (let ((map (make-sparse-keymap)))
734 (define-key map [return] 'thumbs-find-image-at-point)
735 (define-key map [mouse-2] 'thumbs-mouse-find-image)
736 (define-key map [(meta return)] 'thumbs-find-image-at-point-other-window)
737 (define-key map [(control return)] 'thumbs-set-image-at-point-to-root-window)
738 (define-key map [delete] 'thumbs-delete-images)
739 (define-key map [right] 'thumbs-forward-char)
740 (define-key map [left] 'thumbs-backward-char)
741 (define-key map [up] 'thumbs-backward-line)
742 (define-key map [down] 'thumbs-forward-line)
743 (define-key map "d" 'thumbs-dired)
744 (define-key map "m" 'thumbs-mark)
745 (define-key map "u" 'thumbs-unmark)
746 (define-key map "R" 'thumbs-rename-images)
747 (define-key map "x" 'thumbs-delete-images)
748 (define-key map "s" 'thumbs-show-name)
749 (define-key map "q" 'thumbs-kill-buffer)
751 "Keymap for `thumbs-mode'.")
753 (put 'thumbs-mode 'mode-class 'special)
754 (define-derived-mode thumbs-mode
755 fundamental-mode "thumbs"
756 "Preview images in a thumbnails buffer"
757 (make-variable-buffer-local 'thumbs-markedL)
758 (setq buffer-read-only t)
759 (setq thumbs-markedL nil))
761 (defvar thumbs-view-image-mode-map
762 (let ((map (make-sparse-keymap)))
763 (define-key map [prior] 'thumbs-previous-image)
764 (define-key map [next] 'thumbs-next-image)
765 (define-key map "-" 'thumbs-resize-image-size-down)
766 (define-key map "+" 'thumbs-resize-image-size-up)
767 (define-key map "<" 'thumbs-rotate-left)
768 (define-key map ">" 'thumbs-rotate-right)
769 (define-key map "e" 'thumbs-emboss-image)
770 (define-key map "r" 'thumbs-resize-interactive)
771 (define-key map "s" 'thumbs-save-current-image)
772 (define-key map "q" 'thumbs-kill-buffer)
773 (define-key map "w" 'thumbs-set-root)
775 "Keymap for `thumbs-view-image-mode'.")
777 ;; thumbs-view-image-mode
778 (put 'thumbs-view-image-mode 'mode-class 'special)
779 (define-derived-mode thumbs-view-image-mode
780 fundamental-mode "image-view-mode"
781 (setq buffer-read-only t))
784 (defun thumbs-dired-setroot ()
785 "In dired, Call the setroot program on the image at point."
787 (thumbs-call-setroot-command (dired-get-filename)))
789 ;; Modif to dired mode map
790 (define-key dired-mode-map "\C-ta" 'thumbs-dired-show-all)
791 (define-key dired-mode-map "\C-tm" 'thumbs-dired-show-marked)
792 (define-key dired-mode-map "\C-tw" 'thumbs-dired-setroot)
796 ;;; thumbs.el ends here
799 ;;; arch-tag: f9ac1ef8-83fc-42c0-8069-1fae43fd2e5c