30 |
;;; Commentary: |
;;; Commentary: |
31 |
|
|
32 |
;; This package create two new mode: thumbs-mode and |
;; This package create two new mode: thumbs-mode and |
33 |
;; thumbs-view-image-mode. It is used for images browsing and viewing |
;; thumbs-view-image-mode. It is used for images browsing and viewing |
34 |
;; from within emacs. Minimal image manipulation functions are also |
;; from within Emacs. Minimal image manipulation functions are also |
35 |
;; available via external programs. |
;; available via external programs. |
36 |
;; |
;; |
37 |
;; The 'convert' program from 'ImageMagick' |
;; The 'convert' program from 'ImageMagick' |
62 |
|
|
63 |
(defgroup thumbs nil |
(defgroup thumbs nil |
64 |
"Thumbnails previewer." |
"Thumbnails previewer." |
65 |
|
:version "21.4" |
66 |
:group 'multimedia) |
:group 'multimedia) |
67 |
|
|
68 |
(defcustom thumbs-thumbsdir |
(defcustom thumbs-thumbsdir |
417 |
(defalias 'thumbs 'thumbs-show-all-from-dir) |
(defalias 'thumbs 'thumbs-show-all-from-dir) |
418 |
|
|
419 |
(defun thumbs-find-image (img &optional num otherwin) |
(defun thumbs-find-image (img &optional num otherwin) |
420 |
(funcall |
(funcall |
421 |
(if otherwin 'switch-to-buffer-other-window 'switch-to-buffer) |
(if otherwin 'switch-to-buffer-other-window 'switch-to-buffer) |
422 |
(concat "*Image: " (file-name-nondirectory img) " - " |
(concat "*Image: " (file-name-nondirectory img) " - " |
423 |
(number-to-string (or num 0)) "*")) |
(number-to-string (or num 0)) "*")) |