annotate lisp/image-dired.el @ 79444:2eb513da4da5

Provide exact information about customizing Alt-Shift on Windows XP.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 17 Nov 2007 11:16:40 +0000
parents 7a23b4f8846e
children 73661ddc7ac7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1 ;;; image-dired.el --- use dired to browse and manipulate your images
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
3 ;; Copyright (C) 2005, 2006, 2007 Free Software Foundation, Inc.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
4 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
5 ;; Version: 0.4.11
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
6 ;; Keywords: multimedia
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
7 ;; Author: Mathias Dahl <mathias.rem0veth1s.dahl@gmail.com>
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
8
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
10
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
78236
9355f9b7bbff Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 78183
diff changeset
13 ;; the Free Software Foundation; either version 3, or (at your option)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
14 ;; any later version.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
15
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
19 ;; GNU General Public License for more details.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
20
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
24 ;; Boston, MA 02110-1301, USA.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
25
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
26 ;;; Commentary:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
27 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
28 ;; BACKGROUND
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
29 ;; ==========
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
30 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
31 ;; I needed a program to browse, organize and tag my pictures. I got
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
32 ;; tired of the old gallery program I used as it did not allow
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
33 ;; multi-file operations easily. Also, it put things out of my
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
34 ;; control. Image viewing programs I tested did not allow multi-file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
35 ;; operations or did not do what I wanted it to.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
36 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
37 ;; So, I got the idea to use the wonderful functionality of Emacs and
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
38 ;; `dired' to do it. It would allow me to do almost anything I wanted,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
39 ;; which is basically just to browse all my pictures in an easy way,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
40 ;; letting me manipulate and tag them in various ways. `dired' already
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
41 ;; provide all the file handling and navigation facilities; I only
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
42 ;; needed to add some functions to display the images.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
43 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
44 ;; I briefly tried out thumbs.el, and although it seemed more
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
45 ;; powerful than this package, it did not work the way I wanted to. It
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
46 ;; was too slow to created thumbnails of all files in a directory (I
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
47 ;; currently keep all my 2000+ images in the same directory) and
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
48 ;; browsing the thumbnail buffer was slow too. image-dired.el will not
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
49 ;; create thumbnails until they are needed and the browsing is done
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
50 ;; quickly and easily in dired. I copied a great deal of ideas and
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
51 ;; code from there though... :)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
52 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
53 ;; `image-dired' stores the thumbnail files in `image-dired-dir'
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
54 ;; using the file name format ORIGNAME.thumb.ORIGEXT. For example
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
55 ;; ~/.emacs.d/image-dired/myimage01.thumb.jpg. The "database" is for
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
56 ;; now just a plain text file with the following format:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
57 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
58 ;; file-name-non-directory;comment:comment-text;tag1;tag2;tag3;...;tagN
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
59 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
60 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
61 ;; PREREQUISITES
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
62 ;; =============
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
63 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
64 ;; * The ImageMagick package. Currently, `convert' and `mogrify' are
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
65 ;; used. Find it here: http://www.imagemagick.org.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
66 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
67 ;; * For non-lossy rotation of JPEG images, the JpegTRAN program is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
68 ;; needed.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
69 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
70 ;; * For `image-dired-get-exif-data' and `image-dired-write-exif-data' to work,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
71 ;; the command line tool `exiftool' is needed. It can be found here:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
72 ;; http://www.sno.phy.queensu.ca/~phil/exiftool/. These two functions
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
73 ;; are, among other things, used for writing comments to image files
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
74 ;; using `image-dired-thumbnail-set-image-description' and to create
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
75 ;; "unique" file names using `image-dired-get-exif-file-name' (used by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
76 ;; `image-dired-copy-with-exif-file-name').
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
77 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
78 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
79 ;; USAGE
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
80 ;; =====
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
81 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
82 ;; This information has been moved to the manual. Type `C-h r' to open
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
83 ;; the Emacs manual and go to the node Thumbnails by typing `g
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
84 ;; Thumbnails RET'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
85 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
86 ;; Quickstart: M-x image-dired RET DIRNAME RET
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
87 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
88 ;; where DIRNAME is a directory containing image files.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
89 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
90 ;; LIMITATIONS
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
91 ;; ===========
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
92 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
93 ;; * Supports all image formats that Emacs and convert supports, but
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
94 ;; the thumbnails are hard-coded to JPEG format.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
95 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
96 ;; * WARNING: The "database" format used might be changed so keep a
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
97 ;; backup of `image-dired-db-file' when testing new versions.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
98 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
99 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
100 ;; TODO
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
101 ;; ====
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
102 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
103 ;; * Support gallery creation when using per-directory thumbnail
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
104 ;; storage.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
105 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
106 ;; * Some sort of auto-rotate function based on rotate info in the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
107 ;; EXIF data.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
108 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
109 ;; * Check if exiftool exist before trying to call it to give a better
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
110 ;; error message.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
111 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
112 ;; * Investigate if it is possible to also write the tags to the image
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
113 ;; files.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
114 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
115 ;; * From thumbs.el: Add an option for clean-up/max-size functionality
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
116 ;; for thumbnail directory.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
117 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
118 ;; * From thumbs.el: Add setroot function.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
119 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
120 ;; * From thumbs.el: Add image resizing, if useful (image-dired's automatic
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
121 ;; "image fit" might be enough)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
122 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
123 ;; * From thumbs.el: Add the "modify" commands (emboss, negate,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
124 ;; monochrome etc).
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
125 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
126 ;; * Asynchronous creation of thumbnails.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
127 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
128 ;; * Add `image-dired-display-thumbs-ring' and functions to cycle that. Find
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
129 ;; out which is best, saving old batch just before inserting new, or
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
130 ;; saving the current batch in the ring when inserting it. Adding it
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
131 ;; probably needs rewriting `image-dired-display-thumbs' to be more general.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
132 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
133 ;; * Find some way of toggling on and off really nice keybindings in
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
134 ;; dired (for example, using C-n or <down> instead of C-S-n). Richard
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
135 ;; suggested that we could keep C-t as prefix for image-dired commands
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
136 ;; as it is currently not used in dired. He also suggested that
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
137 ;; `dired-next-line' and `dired-previous-line' figure out if
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
138 ;; image-dired is enabled in the current buffer and, if it is, call
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
139 ;; `image-dired-dired-next-line' and
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
140 ;; `image-dired-dired-previous-line', respectively. Update: This is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
141 ;; partly done; some bindings have now been added to dired.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
142 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
143 ;; * Enhanced gallery creation with basic CSS-support and pagination
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
144 ;; of tag pages with many pictures.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
145 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
146 ;; * Rewrite `image-dired-modify-mark-on-thumb-original-file' to be
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
147 ;; less ugly.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
148 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
149 ;; * In some way keep track of buffers and windows and stuff so that
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
150 ;; it works as the user expects.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
151 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
152 ;; * More/better documentation
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
153 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
154 ;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
155 ;;; Code:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
156
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
157 (require 'dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
158 (require 'format-spec)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
159 (require 'widget)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
160
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
161 (eval-when-compile
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
162 (require 'wid-edit))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
163
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
164 (defgroup image-dired nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
165 "Use dired to browse your images as thumbnails, and more."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
166 :prefix "image-dired-"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
167 :group 'multimedia)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
168
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
169 (defcustom image-dired-dir "~/.emacs.d/image-dired/"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
170 "Directory where thumbnail images are stored."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
171 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
172 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
173
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
174 (defcustom image-dired-thumbnail-storage 'use-image-dired-dir
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
175 "How to store image-dired's thumbnail files.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
176 Image-Dired can store thumbnail files in one of two ways and this is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
177 controlled by this variable. \"Use image-dired dir\" means that the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
178 thumbnails are stored in a central directory. \"Per directory\"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
179 means that each thumbnail is stored in a subdirectory called
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
180 \".image-dired\" in the same directory where the image file is.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
181 \"Thumbnail Managing Standard\" means that the thumbnails are
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
182 stored and generated according to the Thumbnail Managing Standard
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
183 that allows sharing of thumbnails across different programs."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
184 :type '(choice :tag "How to store thumbnail files"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
185 (const :tag "Thumbnail Managing Standard" standard)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
186 (const :tag "Use image-dired-dir" use-image-dired-dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
187 (const :tag "Per-directory" per-directory))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
188 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
189
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
190 (defcustom image-dired-db-file "~/.emacs.d/image-dired/.image-dired_db"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
191 "Database file where file names and their associated tags are stored."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
192 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
193 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
194
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
195 (defcustom image-dired-temp-image-file "~/.emacs.d/image-dired/.image-dired_temp"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
196 "Name of temporary image file used by various commands."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
197 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
198 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
199
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
200 (defcustom image-dired-gallery-dir "~/.emacs.d/image-dired/.image-dired_gallery"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
201 "Directory to store generated gallery html pages.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
202 This path needs to be \"shared\" to the public so that it can access
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
203 the index.html page that image-dired creates."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
204 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
205 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
206
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
207 (defcustom image-dired-gallery-image-root-url
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
208 "http://your.own.server/image-diredpics"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
209 "URL where the full size images are to be found.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
210 Note that this path has to be configured in your web server. Image-Dired
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
211 expects to find pictures in this directory."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
212 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
213 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
214
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
215 (defcustom image-dired-gallery-thumb-image-root-url
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
216 "http://your.own.server/image-diredthumbs"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
217 "URL where the thumbnail images are to be found.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
218 Note that this path has to be configured in your web server. Image-Dired
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
219 expects to find pictures in this directory."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
220 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
221 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
222
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
223 (defcustom image-dired-cmd-create-thumbnail-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
224 "convert"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
225 "Executable used to create thumbnail.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
226 Used together with `image-dired-cmd-create-thumbnail-options'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
227 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
228 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
229
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
230 (defcustom image-dired-cmd-create-thumbnail-options
77585
fde49df3c9ae (image-dired-cmd-create-thumbnail-options)
Glenn Morris <rgm@gnu.org>
parents: 77548
diff changeset
231 "%p -size %wx%h \"%f\" -resize %wx%h -strip jpeg:\"%t\""
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
232 "Format of command used to create thumbnail image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
233 Available options are %p which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
234 `image-dired-cmd-create-thumbnail-program', %w which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
235 `image-dired-thumb-width', %h which is replaced by `image-dired-thumb-height',
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
236 %f which is replaced by the file name of the original image and %t
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
237 which is replaced by the file name of the thumbnail file."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
238 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
239 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
240
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
241 (defcustom image-dired-cmd-create-temp-image-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
242 "convert"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
243 "Executable used to create temporary image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
244 Used together with `image-dired-cmd-create-temp-image-options'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
245 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
246 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
247
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
248 (defcustom image-dired-cmd-create-temp-image-options
77585
fde49df3c9ae (image-dired-cmd-create-thumbnail-options)
Glenn Morris <rgm@gnu.org>
parents: 77548
diff changeset
249 "%p -size %wx%h \"%f\" -resize %wx%h -strip jpeg:\"%t\""
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
250 "Format of command used to create temporary image for display window.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
251 Available options are %p which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
252 `image-dired-cmd-create-temp-image-program', %w and %h which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
253 the calculated max size for width and height in the image display window,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
254 %f which is replaced by the file name of the original image and %t which
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
255 is replaced by the file name of the temporary file."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
256 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
257 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
258
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
259 (defcustom image-dired-cmd-pngnq-program (executable-find "pngnq")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
260 "The file name of the `pngnq' program.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
261 It quantizes colors of PNG images down to 256 colors."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
262 :type '(choice (const :tag "Not Set" nil) string)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
263 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
264
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
265 (defcustom image-dired-cmd-pngcrush-program (executable-find "pngcrush")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
266 "The file name of the `pngcrush' program.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
267 It optimizes the compression of PNG images. Also it adds PNG textual chunks
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
268 with the information required by the Thumbnail Managing Standard."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
269 :type '(choice (const :tag "Not Set" nil) string)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
270 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
271
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
272 (defcustom image-dired-cmd-create-standard-thumbnail-command
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
273 (concat
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
274 image-dired-cmd-create-thumbnail-program " "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
275 "-size %wx%h \"%f\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
276 (unless (or image-dired-cmd-pngcrush-program image-dired-cmd-pngnq-program)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
277 (concat
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
278 "-set \"Thumb::MTime\" \"%m\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
279 "-set \"Thumb::URI\" \"file://%f\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
280 "-set \"Description\" \"Thumbnail of file://%f\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
281 "-set \"Software\" \"" (emacs-version) "\" "))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
282 "-thumbnail %wx%h png:\"%t\""
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
283 (if image-dired-cmd-pngnq-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
284 (concat
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
285 " ; " image-dired-cmd-pngnq-program " -f \"%t\""
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
286 (unless image-dired-cmd-pngcrush-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
287 " ; mv %q %t")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
288 (if image-dired-cmd-pngcrush-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
289 (concat
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
290 (unless image-dired-cmd-pngcrush-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
291 " ; cp %t %q")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
292 " ; " image-dired-cmd-pngcrush-program " -q "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
293 "-text b \"Description\" \"Thumbnail of file://%f\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
294 "-text b \"Software\" \"" (emacs-version) "\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
295 ;; "-text b \"Thumb::Image::Height\" \"%oh\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
296 ;; "-text b \"Thumb::Image::Mimetype\" \"%mime\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
297 ;; "-text b \"Thumb::Image::Width\" \"%ow\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
298 "-text b \"Thumb::MTime\" \"%m\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
299 ;; "-text b \"Thumb::Size\" \"%b\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
300 "-text b \"Thumb::URI\" \"file://%f\" "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
301 "%q %t"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
302 " ; rm %q")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
303 "Command to create thumbnails according to the Thumbnail Managing Standard."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
304 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
305 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
306
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
307 (defcustom image-dired-cmd-rotate-thumbnail-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
308 "mogrify"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
309 "Executable used to rotate thumbnail.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
310 Used together with `image-dired-cmd-rotate-thumbnail-options'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
311 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
312 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
313
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
314 (defcustom image-dired-cmd-rotate-thumbnail-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
315 "%p -rotate %d \"%t\""
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
316 "Format of command used to rotate thumbnail image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
317 Available options are %p which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
318 `image-dired-cmd-rotate-thumbnail-program', %d which is replaced by the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
319 number of (positive) degrees to rotate the image, normally 90 or 270
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
320 \(for 90 degrees right and left), %t which is replaced by the file name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
321 of the thumbnail file."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
322 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
323 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
324
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
325 (defcustom image-dired-cmd-rotate-original-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
326 "jpegtran"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
327 "Executable used to rotate original image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
328 Used together with `image-dired-cmd-rotate-original-options'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
329 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
330 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
331
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
332 (defcustom image-dired-cmd-rotate-original-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
333 "%p -rotate %d -copy all -outfile %t \"%o\""
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
334 "Format of command used to rotate original image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
335 Available options are %p which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
336 `image-dired-cmd-rotate-original-program', %d which is replaced by the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
337 number of (positive) degrees to rotate the image, normally 90 or
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
338 270 \(for 90 degrees right and left), %o which is replaced by the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
339 original image file name and %t which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
340 `image-dired-temp-image-file'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
341 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
342 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
343
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
344 (defcustom image-dired-temp-rotate-image-file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
345 "~/.emacs.d/image-dired/.image-dired_rotate_temp"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
346 "Temporary file for rotate operations."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
347 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
348 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
349
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
350 (defcustom image-dired-rotate-original-ask-before-overwrite t
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
351 "Confirm overwrite of original file after rotate operation.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
352 If non-nil, ask user for confirmation before overwriting the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
353 original file with `image-dired-temp-rotate-image-file'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
354 :type 'boolean
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
355 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
356
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
357 (defcustom image-dired-cmd-write-exif-data-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
358 "exiftool"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
359 "Program used to write EXIF data to image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
360 Used together with `image-dired-cmd-write-exif-data-options'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
361 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
362 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
363
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
364 (defcustom image-dired-cmd-write-exif-data-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
365 "%p -%t=\"%v\" \"%f\""
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
366 "Format of command used to write EXIF data.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
367 Available options are %p which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
368 `image-dired-cmd-write-exif-data-program', %f which is replaced by the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
369 image file name, %t which is replaced by the tag name and %v
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
370 which is replaced by the tag value."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
371 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
372 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
373
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
374 (defcustom image-dired-cmd-read-exif-data-program
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
375 "exiftool"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
376 "Program used to read EXIF data to image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
377 Used together with `image-dired-cmd-read-exif-data-program-options'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
378 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
379 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
380
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
381 (defcustom image-dired-cmd-read-exif-data-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
382 "%p -s -s -s -%t \"%f\""
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
383 "Format of command used to read EXIF data.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
384 Available options are %p which is replaced by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
385 `image-dired-cmd-write-exif-data-options', %f which is replaced
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
386 by the image file name and %t which is replaced by the tag name."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
387 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
388 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
389
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
390 (defcustom image-dired-gallery-hidden-tags
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
391 (list "private" "hidden" "pending")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
392 "List of \"hidden\" tags.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
393 Used by `image-dired-gallery-generate' to leave out \"hidden\" images."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
394 :type '(repeat string)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
395 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
396
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
397 (defcustom image-dired-thumb-size (if (eq 'standard image-dired-thumbnail-storage) 128 100)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
398 "Size of thumbnails, in pixels.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
399 This is the default size for both `image-dired-thumb-width' and `image-dired-thumb-height'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
400 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
401 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
402
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
403 (defcustom image-dired-thumb-width image-dired-thumb-size
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
404 "Width of thumbnails, in pixels."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
405 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
406 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
407
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
408 (defcustom image-dired-thumb-height image-dired-thumb-size
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
409 "Height of thumbnails, in pixels."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
410 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
411 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
412
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
413 (defcustom image-dired-thumb-relief 2
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
414 "Size of button-like border around thumbnails."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
415 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
416 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
417
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
418 (defcustom image-dired-thumb-margin 2
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
419 "Size of the margin around thumbnails.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
420 This is where you see the cursor."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
421 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
422 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
423
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
424 (defcustom image-dired-line-up-method 'dynamic
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
425 "Default method for line-up of thumbnails in thumbnail buffer.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
426 Used by `image-dired-display-thumbs' and other functions that needs to
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
427 line-up thumbnails. Dynamic means to use the available width of the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
428 window containing the thumbnail buffer, Fixed means to use
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
429 `image-dired-thumbs-per-row', Interactive is for asking the user, and No
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
430 line-up means that no automatic line-up will be done."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
431 :type '(choice :tag "Default line-up method"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
432 (const :tag "Dynamic" dynamic)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
433 (const :tag "Fixed" fixed)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
434 (const :tag "Interactive" interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
435 (const :tag "No line-up" none))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
436 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
437
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
438 (defcustom image-dired-thumbs-per-row 3
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
439 "Number of thumbnails to display per row in thumb buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
440 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
441 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
442
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
443 (defcustom image-dired-display-window-width-correction 1
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
444 "Number to be used to correct image display window width.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
445 Change if the default (1) does not work (i.e. if the image does not
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
446 completely fit)."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
447 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
448 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
449
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
450 (defcustom image-dired-display-window-height-correction 0
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
451 "Number to be used to correct image display window height.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
452 Change if the default (0) does not work (i.e. if the image does not
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
453 completely fit)."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
454 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
455 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
456
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
457 (defcustom image-dired-track-movement t
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
458 "The current state of the tracking and mirroring.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
459 For more information, see the documentation for
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
460 `image-dired-toggle-movement-tracking'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
461 :type 'boolean
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
462 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
463
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
464 (defcustom image-dired-append-when-browsing nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
465 "Append thumbnails in thumbnail buffer when browsing.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
466 If non-nil, using `image-dired-next-line-and-display' and
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
467 `image-dired-previous-line-and-display' will leave a trail of thumbnail
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
468 images in the thumbnail buffer. If you enable this and want to clean
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
469 the thumbnail buffer because it is filled with too many thumbmnails,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
470 just call `image-dired-display-thumb' to display only the image at point.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
471 This value can be toggled using `image-dired-toggle-append-browsing'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
472 :type 'boolean
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
473 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
474
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
475 (defcustom image-dired-dired-disp-props t
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
476 "If non-nil, display properties for dired file when browsing.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
477 Used by `image-dired-next-line-and-display',
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
478 `image-dired-previous-line-and-display' and `image-dired-mark-and-display-next'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
479 If the database file is large, this can slow down image browsing in
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
480 dired and you might want to turn it off."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
481 :type 'boolean
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
482 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
483
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
484 (defcustom image-dired-display-properties-format "%b: %f (%t): %c"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
485 "Display format for thumbnail properties.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
486 %b is replaced with associated dired buffer name, %f with file name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
487 \(without path) of original image file, %t with the list of tags and %c
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
488 with the comment."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
489 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
490 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
491
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
492 (defcustom image-dired-external-viewer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
493 ;; TODO: Use mailcap, dired-guess-shell-alist-default,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
494 ;; dired-view-command-alist.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
495 (cond ((executable-find "display"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
496 ((executable-find "xli"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
497 ((executable-find "qiv") "qiv -t"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
498 "Name of external viewer.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
499 Including parameters. Used when displaying original image from
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
500 `image-dired-thumbnail-mode'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
501 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
502 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
503
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
504 (defcustom image-dired-main-image-directory "~/pics/"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
505 "Name of main image directory, if any.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
506 Used by `image-dired-copy-with-exif-file-name'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
507 :type 'string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
508 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
509
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
510 (defcustom image-dired-show-all-from-dir-max-files 50
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
511 "Maximum number of files to show using `image-dired-show-all-from-dir'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
512 before warning the user."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
513 :type 'integer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
514 :group 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
515
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
516 (defun image-dired-dir ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
517 "Return the current thumbnails directory (from variable `image-dired-dir').
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
518 Create the thumbnails directory if it does not exist."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
519 (let ((image-dired-dir (file-name-as-directory
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
520 (expand-file-name image-dired-dir))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
521 (unless (file-directory-p image-dired-dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
522 (make-directory image-dired-dir t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
523 (message "Creating thumbnails directory"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
524 image-dired-dir))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
525
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
526 (defun image-dired-insert-image (file type relief margin)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
527 "Insert image FILE of image TYPE, using RELIEF and MARGIN, at point."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
528
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
529 (let ((i `(image :type ,type
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
530 :file ,file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
531 :relief ,relief
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
532 :margin ,margin)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
533 (insert-image i)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
534
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
535 (defun image-dired-get-thumbnail-image (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
536 "Return the image descriptor for a thumbnail of image file FILE."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
537 (unless (string-match (image-file-name-regexp) file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
538 (error "%s is not a valid image file" file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
539 (let ((thumb-file (image-dired-thumb-name file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
540 (unless (and (file-exists-p thumb-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
541 (<= (float-time (nth 5 (file-attributes file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
542 (float-time (nth 5 (file-attributes thumb-file)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
543 (image-dired-create-thumb file thumb-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
544 (create-image thumb-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
545 ;; (list 'image :type 'jpeg
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
546 ;; :file thumb-file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
547 ;; :relief image-dired-thumb-relief :margin image-dired-thumb-margin)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
548 ))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
549
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
550 (defun image-dired-insert-thumbnail (file original-file-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
551 associated-dired-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
552 "Insert thumbnail image FILE.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
553 Add text properties ORIGINAL-FILE-NAME and ASSOCIATED-DIRED-BUFFER."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
554 (let (beg end)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
555 (setq beg (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
556 (image-dired-insert-image file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
557 ;; TODO: this should depend on the real file type
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
558 (if (eq 'standard image-dired-thumbnail-storage)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
559 'png 'jpeg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
560 image-dired-thumb-relief
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
561 image-dired-thumb-margin)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
562 (setq end (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
563 (add-text-properties
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
564 beg end
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
565 (list 'image-dired-thumbnail t
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
566 'original-file-name original-file-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
567 'associated-dired-buffer associated-dired-buffer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
568 'tags (image-dired-list-tags original-file-name)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
569 'mouse-face 'highlight
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
570 'comment (image-dired-get-comment original-file-name)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
571
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
572 (defun image-dired-thumb-name (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
573 "Return thumbnail file name for FILE.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
574 Depending on the value of `image-dired-thumbnail-storage', the file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
575 name will vary. For central thumbnail file storage, make a
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
576 MD5-hash of the image file's directory name and add that to make
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
577 the thumbnail file name unique. For per-directory storage, just
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
578 add a subdirectory. For standard storage, produce the file name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
579 according to the Thumbnail Managing Standard."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
580 (cond ((eq 'standard image-dired-thumbnail-storage)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
581 (expand-file-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
582 (concat "~/.thumbnails/normal/"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
583 (md5 (concat "file://" (expand-file-name file))) ".png")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
584 ((eq 'use-image-dired-dir image-dired-thumbnail-storage)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
585 (let* ((f (expand-file-name file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
586 (md5-hash
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
587 ;; Is MD5 hashes fast enough? The checksum of a
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
588 ;; thumbnail file name need not be that
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
589 ;; "cryptographically" good so a faster one could
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
590 ;; be used here.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
591 (md5 (file-name-as-directory (file-name-directory f)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
592 (format "%s%s%s.thumb.%s"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
593 (file-name-as-directory (expand-file-name (image-dired-dir)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
594 (file-name-sans-extension (file-name-nondirectory f))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
595 (if md5-hash (concat "_" md5-hash) "")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
596 (file-name-extension f))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
597 ((eq 'per-directory image-dired-thumbnail-storage)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
598 (let ((f (expand-file-name file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
599 (format "%s.image-dired/%s.thumb.%s"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
600 (file-name-directory f)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
601 (file-name-sans-extension (file-name-nondirectory f))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
602 (file-name-extension f))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
603
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
604 (defun image-dired-create-thumb (original-file thumbnail-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
605 "For ORIGINAL-FILE, create thumbnail image named THUMBNAIL-FILE."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
606 (let* ((width (int-to-string image-dired-thumb-width))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
607 (height (int-to-string image-dired-thumb-height))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
608 (modif-time (format "%.0f" (float-time (nth 5 (file-attributes
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
609 original-file)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
610 (thumbnail-nq8-file (replace-regexp-in-string ".png\\'" "-nq8.png"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
611 thumbnail-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
612 (command
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
613 (format-spec
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
614 (if (eq 'standard image-dired-thumbnail-storage)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
615 image-dired-cmd-create-standard-thumbnail-command
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
616 image-dired-cmd-create-thumbnail-options)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
617 (list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
618 (cons ?p image-dired-cmd-create-thumbnail-program)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
619 (cons ?w width)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
620 (cons ?h height)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
621 (cons ?m modif-time)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
622 (cons ?f original-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
623 (cons ?q thumbnail-nq8-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
624 (cons ?t thumbnail-file))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
625 thumbnail-dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
626 (when (not (file-exists-p
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
627 (setq thumbnail-dir (file-name-directory thumbnail-file))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
628 (message "Creating thumbnail directory.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
629 (make-directory thumbnail-dir))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
630 (call-process shell-file-name nil nil nil shell-command-switch command)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
631
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
632 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
633 (defun image-dired-dired-insert-marked-thumbs ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
634 "Insert thumbnails before file names of marked files in the dired buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
635 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
636 (dired-map-over-marks
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
637 (let* ((image-pos (dired-move-to-filename))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
638 (image-file (dired-get-filename))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
639 (thumb-file (image-dired-get-thumbnail-image image-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
640 overlay)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
641 ;; If image is not already added, then add it.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
642 (unless (delq nil (mapcar (lambda (o) (overlay-get o 'put-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
643 ;; Can't use (overlays-at (point)), BUG?
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
644 (overlays-in (point) (1+ (point)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
645 (put-image thumb-file image-pos)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
646 (setq
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
647 overlay
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
648 (car (delq nil (mapcar (lambda (o) (and (overlay-get o 'put-image) o))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
649 (overlays-in (point) (1+ (point)))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
650 (overlay-put overlay 'image-file image-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
651 (overlay-put overlay 'thumb-file thumb-file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
652 nil)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
653 (add-hook 'dired-after-readin-hook 'image-dired-dired-after-readin-hook nil t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
654
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
655 (defun image-dired-dired-after-readin-hook ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
656 "Relocate existing thumbnail overlays in dired buffer after reverting.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
657 Move them to their corresponding files if they are still exist.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
658 Otherwise, delete overlays."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
659 (mapc (lambda (overlay)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
660 (when (overlay-get overlay 'put-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
661 (let* ((image-file (overlay-get overlay 'image-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
662 (image-pos (dired-goto-file image-file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
663 (if image-pos
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
664 (move-overlay overlay image-pos image-pos)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
665 (delete-overlay overlay)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
666 (overlays-in (point-min) (point-max))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
667
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
668 (defun image-dired-next-line-and-display ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
669 "Move to next dired line and display thumbnail image."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
670 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
671 (dired-next-line 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
672 (image-dired-display-thumbs
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
673 t (or image-dired-append-when-browsing nil) t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
674 (if image-dired-dired-disp-props
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
675 (image-dired-dired-display-properties)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
676
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
677 (defun image-dired-previous-line-and-display ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
678 "Move to previous dired line and display thumbnail image."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
679 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
680 (dired-previous-line 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
681 (image-dired-display-thumbs
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
682 t (or image-dired-append-when-browsing nil) t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
683 (if image-dired-dired-disp-props
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
684 (image-dired-dired-display-properties)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
685
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
686 (defun image-dired-toggle-append-browsing ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
687 "Toggle `image-dired-append-when-browsing'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
688 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
689 (setq image-dired-append-when-browsing
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
690 (not image-dired-append-when-browsing))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
691 (message "Append browsing %s."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
692 (if image-dired-append-when-browsing
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
693 "on"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
694 "off")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
695
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
696 (defun image-dired-mark-and-display-next ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
697 "Mark current file in dired and display next thumbnail image."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
698 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
699 (dired-mark 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
700 (image-dired-display-thumbs
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
701 t (or image-dired-append-when-browsing nil) t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
702 (if image-dired-dired-disp-props
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
703 (image-dired-dired-display-properties)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
704
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
705 (defun image-dired-toggle-dired-display-properties ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
706 "Toggle `image-dired-dired-disp-props'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
707 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
708 (setq image-dired-dired-disp-props
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
709 (not image-dired-dired-disp-props))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
710 (message "Dired display properties %s."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
711 (if image-dired-dired-disp-props
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
712 "on"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
713 "off")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
714
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
715 (defvar image-dired-thumbnail-buffer "*image-dired*"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
716 "Image-Dired's thumbnail buffer.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
717
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
718 (defun image-dired-create-thumbnail-buffer ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
719 "Create thumb buffer and set `image-dired-thumbnail-mode'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
720 (let ((buf (get-buffer-create image-dired-thumbnail-buffer)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
721 (with-current-buffer buf
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
722 (setq buffer-read-only t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
723 (if (not (eq major-mode 'image-dired-thumbnail-mode))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
724 (image-dired-thumbnail-mode)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
725 buf))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
726
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
727 (defvar image-dired-display-image-buffer "*image-dired-display-image*"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
728 "Where larger versions of the images are display.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
729
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
730 (defun image-dired-create-display-image-buffer ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
731 "Create image display buffer and set `image-dired-display-image-mode'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
732 (let ((buf (get-buffer-create image-dired-display-image-buffer)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
733 (with-current-buffer buf
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
734 (setq buffer-read-only t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
735 (if (not (eq major-mode 'image-dired-display-image-mode))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
736 (image-dired-display-image-mode)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
737 buf))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
738
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
739 (defvar image-dired-saved-window-configuration nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
740 "Saved window configuration.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
741
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
742 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
743 (defun image-dired-dired-with-window-configuration (dir &optional arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
744 "Open directory DIR and create a default window configuration.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
745
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
746 Convenience command that:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
747
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
748 - Opens dired in folder DIR
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
749 - Splits windows in most useful (?) way
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
750 - Set `truncate-lines' to t
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
751
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
752 After the command has finished, you would typically mark some
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
753 image files in dired and type
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
754 \\[image-dired-display-thumbs] (`image-dired-display-thumbs').
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
755
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
756 If called with prefix argument ARG, skip splitting of windows.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
757
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
758 The current window configuration is saved and can be restored by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
759 calling `image-dired-restore-window-configuration'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
760 (interactive "DDirectory: \nP")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
761 (let ((buf (image-dired-create-thumbnail-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
762 (buf2 (image-dired-create-display-image-buffer)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
763 (setq image-dired-saved-window-configuration
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
764 (current-window-configuration))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
765 (dired dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
766 (delete-other-windows)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
767 (when (not arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
768 (split-window-horizontally)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
769 (setq truncate-lines t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
770 (save-excursion
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
771 (other-window 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
772 (switch-to-buffer buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
773 (split-window-vertically)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
774 (other-window 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
775 (switch-to-buffer buf2)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
776 (other-window -2)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
777
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
778 (defun image-dired-restore-window-configuration ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
779 "Restore window configuration.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
780 Restore any changes to the window configuration made by calling
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
781 `image-dired-dired-with-window-configuration'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
782 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
783 (if image-dired-saved-window-configuration
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
784 (set-window-configuration image-dired-saved-window-configuration)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
785 (message "No saved window configuration")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
786
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
787 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
788 (defun image-dired-display-thumbs (&optional arg append do-not-pop)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
789 "Display thumbnails of all marked files, in `image-dired-thumbnail-buffer'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
790 If a thumbnail image does not exist for a file, it is created on the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
791 fly. With prefix argument ARG, display only thumbnail for file at
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
792 point (this is useful if you have marked some files but want to show
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
793 another one).
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
794
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
795 Recommended usage is to split the current frame horizontally so that
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
796 you have the dired buffer in the left window and the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
797 `image-dired-thumbnail-buffer' buffer in the right window.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
798
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
799 With optional argument APPEND, append thumbnail to thumbnail buffer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
800 instead of erasing it first.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
801
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
802 Option argument DO-NOT-POP controls if `pop-to-buffer' should be
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
803 used or not. If non-nil, use `display-buffer' instead of
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
804 `pop-to-buffer'. This is used from functions like
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
805 `image-dired-next-line-and-display' and
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
806 `image-dired-previous-line-and-display' where we do not want the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
807 thumbnail buffer to be selected."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
808 (interactive "P")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
809 (let ((buf (image-dired-create-thumbnail-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
810 curr-file thumb-name files count dired-buf beg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
811 (if arg
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
812 (setq files (list (dired-get-filename)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
813 (setq files (dired-get-marked-files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
814 (setq dired-buf (current-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
815 (with-current-buffer buf
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
816 (let ((inhibit-read-only t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
817 (if (not append)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
818 (erase-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
819 (goto-char (point-max)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
820 (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
821 (lambda (curr-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
822 (setq thumb-name (image-dired-thumb-name curr-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
823 (if (and (not (file-exists-p thumb-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
824 (not (= 0 (image-dired-create-thumb curr-file thumb-name))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
825 (message "Thumb could not be created for file %s" curr-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
826 (image-dired-insert-thumbnail thumb-name curr-file dired-buf)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
827 files))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
828 (cond ((eq 'dynamic image-dired-line-up-method)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
829 (image-dired-line-up-dynamic))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
830 ((eq 'fixed image-dired-line-up-method)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
831 (image-dired-line-up))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
832 ((eq 'interactive image-dired-line-up-method)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
833 (image-dired-line-up-interactive))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
834 ((eq 'none image-dired-line-up-method)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
835 nil)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
836 (t
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
837 (image-dired-line-up-dynamic))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
838 (if do-not-pop
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
839 (display-buffer image-dired-thumbnail-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
840 (pop-to-buffer image-dired-thumbnail-buffer))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
841
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
842 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
843 (defun image-dired-show-all-from-dir (dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
844 "Make a preview buffer for all images in DIR and display it.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
845 If the number of files in DIR matching `image-file-name-regexp'
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
846 exceeds `image-dired-show-all-from-dir-max-files', a warning will be
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
847 displayed."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
848 (interactive "DDir: ")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
849 (dired dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
850 (dired-mark-files-regexp (image-file-name-regexp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
851 (let ((files (dired-get-marked-files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
852 (if (or (<= (length files) image-dired-show-all-from-dir-max-files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
853 (and (> (length files) image-dired-show-all-from-dir-max-files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
854 (y-or-n-p
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
855 (format
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
856 "Directory contains more than %d image files. Proceed? "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
857 image-dired-show-all-from-dir-max-files))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
858 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
859 (image-dired-display-thumbs)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
860 (pop-to-buffer image-dired-thumbnail-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
861 (message "Cancelled."))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
862
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
863 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
864 (defalias 'image-dired 'image-dired-show-all-from-dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
865
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
866 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
867 (defalias 'tumme 'image-dired-show-all-from-dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
868
78183
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
869 (defun image-dired-sane-db-file ()
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
870 "Check if `image-dired-db-file' exists.
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
871 If not, try to create it (including any parent directories).
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
872 Signal error if there are problems creating it."
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
873 (or (file-exists-p image-dired-db-file)
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
874 (let (dir buf)
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
875 (unless (file-directory-p (setq dir (file-name-directory
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
876 image-dired-db-file)))
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
877 (make-directory dir t))
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
878 (with-current-buffer (setq buf (create-file-buffer
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
879 image-dired-db-file))
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
880 (write-file image-dired-db-file))
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
881 (kill-buffer buf)
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
882 (file-exists-p image-dired-db-file))
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
883 (error "Could not create %s" image-dired-db-file)))
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
884
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
885 (defun image-dired-write-tags (file-tags)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
886 "Write file tags to database.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
887 Write each file and tag in FILE-TAGS to the database. FILE-TAGS
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
888 is an alist in the following form:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
889 ((FILE . TAG) ... )"
78183
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
890 (image-dired-sane-db-file)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
891 (let (end file tag)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
892 (with-temp-file image-dired-db-file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
893 (insert-file-contents image-dired-db-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
894 (dolist (elt file-tags)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
895 (setq file (car elt)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
896 tag (cdr elt))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
897 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
898 (if (search-forward-regexp (format "^%s.*$" file) nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
899 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
900 (setq end (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
901 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
902 (when (not (search-forward (format ";%s" tag) end t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
903 (end-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
904 (insert (format ";%s" tag))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
905 (goto-char (point-max))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
906 (insert (format "\n%s;%s" file tag)))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
907
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
908 (defun image-dired-remove-tag (files tag)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
909 "For all FILES, remove TAG from the image database."
78183
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
910 (image-dired-sane-db-file)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
911 (save-excursion
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
912 (let (end buf start)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
913 (setq buf (find-file image-dired-db-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
914 (if (not (listp files))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
915 (if (stringp files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
916 (setq files (list files))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
917 (error "Files must be a string or a list of strings!")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
918 (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
919 (lambda (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
920 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
921 (when (search-forward-regexp
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
922 (format "^%s" file) nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
923 (end-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
924 (setq end (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
925 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
926 (when (search-forward-regexp (format "\\(;%s\\)" tag) end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
927 (delete-region (match-beginning 1) (match-end 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
928 ;; Check if file should still be in the database. If
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
929 ;; it has no tags or comments, it will be removed.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
930 (end-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
931 (setq end (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
932 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
933 (when (not (search-forward ";" end t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
934 (kill-line 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
935 ;; If on empty line at end of buffer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
936 (when (and (eobp)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
937 (looking-at "^$"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
938 (delete-backward-char 1))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
939 files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
940 (save-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
941 (kill-buffer buf))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
942
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
943 (defun image-dired-list-tags (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
944 "Read all tags for image FILE from the image database."
78183
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
945 (image-dired-sane-db-file)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
946 (save-excursion
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
947 (let (end buf (tags ""))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
948 (setq buf (find-file image-dired-db-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
949 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
950 (when (search-forward-regexp
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
951 (format "^%s" file) nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
952 (end-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
953 (setq end (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
954 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
955 (if (search-forward ";" end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
956 (if (search-forward "comment:" end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
957 (if (search-forward ";" end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
958 (setq tags (buffer-substring (point) end)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
959 (setq tags (buffer-substring (point) end)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
960 (kill-buffer buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
961 (split-string tags ";"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
962
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
963 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
964 (defun image-dired-tag-files (arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
965 "Tag marked file(s) in dired. With prefix ARG, tag file at point."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
966 (interactive "P")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
967 (let ((tag (read-string "Tags to add (separate tags with a semicolon): "))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
968 curr-file files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
969 (if arg
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
970 (setq files (list (dired-get-filename)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
971 (setq files (dired-get-marked-files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
972 (image-dired-write-tags
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
973 (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
974 (lambda (x)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
975 (cons x tag))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
976 files))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
977
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
978 (defun image-dired-tag-thumbnail ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
979 "Tag current thumbnail."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
980 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
981 (let ((tag (read-string "Tags to add (separate tags with a semicolon): ")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
982 (image-dired-write-tags (list (cons (image-dired-original-file-name) tag))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
983 (image-dired-update-property
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
984 'tags (image-dired-list-tags (image-dired-original-file-name))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
985
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
986 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
987 (defun image-dired-delete-tag (arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
988 "Remove tag for selected file(s).
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
989 With prefix argument ARG, remove tag from file at point."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
990 (interactive "P")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
991 (let ((tag (read-string "Tag to remove: "))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
992 files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
993 (if arg
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
994 (setq files (list (dired-get-filename)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
995 (setq files (dired-get-marked-files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
996 (image-dired-remove-tag files tag)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
997
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
998 (defun image-dired-tag-thumbnail-remove ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
999 "Remove tag from thumbnail."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1000 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1001 (let ((tag (read-string "Tag to remove: ")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1002 (image-dired-remove-tag (image-dired-original-file-name) tag))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1003 (image-dired-update-property
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1004 'tags (image-dired-list-tags (image-dired-original-file-name))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1005
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1006 (defun image-dired-original-file-name ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1007 "Get original file name for thumbnail or display image at point."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1008 (get-text-property (point) 'original-file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1009
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1010 (defun image-dired-associated-dired-buffer ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1011 "Get associated dired buffer at point."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1012 (get-text-property (point) 'associated-dired-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1013
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1014 (defun image-dired-get-buffer-window (buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1015 "Return window where buffer BUF is."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1016 (get-window-with-predicate
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1017 (lambda (window)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1018 (equal (window-buffer window) buf))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1019 nil t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1020
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1021 (defun image-dired-track-original-file ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1022 "Track the original file in the associated dired buffer.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1023 See documentation for `image-dired-toggle-movement-tracking'. Interactive
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1024 use only useful if `image-dired-track-movement' is nil."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1025 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1026 (let ((old-buf (current-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1027 (dired-buf (image-dired-associated-dired-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1028 (file-name (image-dired-original-file-name)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1029 (when (and (buffer-live-p dired-buf) file-name)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1030 (setq file-name (file-name-nondirectory file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1031 (set-buffer dired-buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1032 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1033 (if (not (search-forward file-name nil t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1034 (message "Could not track file")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1035 (dired-move-to-filename)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1036 (set-window-point
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1037 (image-dired-get-buffer-window dired-buf) (point)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1038 (set-buffer old-buf))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1039
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1040 (defun image-dired-toggle-movement-tracking ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1041 "Turn on and off `image-dired-track-movement'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1042 Tracking of the movements between thumbnail and dired buffer so that
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1043 they are \"mirrored\" in the dired buffer. When this is on, moving
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1044 around in the thumbnail or dired buffer will find the matching
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1045 position in the other buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1046 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1047 (setq image-dired-track-movement (not image-dired-track-movement))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1048 (message "Tracking %s" (if image-dired-track-movement "on" "off")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1049
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1050 (defun image-dired-track-thumbnail ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1051 "Track current dired file's thumb in `image-dired-thumbnail-buffer'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1052 This is almost the same as what `image-dired-track-original-file' does, but
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1053 the other way around."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1054 (let ((file (dired-get-filename))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1055 (old-buf (current-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1056 prop-val found)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1057 (when (get-buffer image-dired-thumbnail-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1058 (set-buffer image-dired-thumbnail-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1059 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1060 (while (and (not (eobp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1061 (not found))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1062 (if (and (setq prop-val
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1063 (get-text-property (point) 'original-file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1064 (string= prop-val file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1065 (setq found t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1066 (if (not found)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1067 (forward-char 1)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1068 (when found
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1069 (set-window-point
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1070 (image-dired-thumbnail-window) (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1071 (image-dired-display-thumb-properties))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1072 (set-buffer old-buf))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1073
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1074 (defun image-dired-dired-next-line (&optional arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1075 "Call `dired-next-line', then track thumbnail.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1076 This can safely replace `dired-next-line'. With prefix argument, move
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1077 ARG lines."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1078 (interactive "P")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1079 (dired-next-line (or arg 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1080 (if image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1081 (image-dired-track-thumbnail)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1082
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1083 (defun image-dired-dired-previous-line (&optional arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1084 "Call `dired-previous-line', then track thumbnail.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1085 This can safely replace `dired-previous-line'. With prefix argument,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1086 move ARG lines."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1087 (interactive "P")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1088 (dired-previous-line (or arg 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1089 (if image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1090 (image-dired-track-thumbnail)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1091
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1092 (defun image-dired-forward-image (&optional arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1093 "Move to next image and display properties.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1094 Optional prefix ARG says how many images to move; default is one
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1095 image."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1096 (interactive "p")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1097 (let (pos (steps (or arg 1)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1098 (dotimes (i steps)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1099 (if (and (not (eobp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1100 (save-excursion
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1101 (forward-char)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1102 (while (and (not (eobp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1103 (not (image-dired-image-at-point-p)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1104 (forward-char))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1105 (setq pos (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1106 (image-dired-image-at-point-p)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1107 (goto-char pos)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1108 (error "At last image"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1109 (when image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1110 (image-dired-track-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1111 (image-dired-display-thumb-properties))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1112
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1113 (defun image-dired-backward-image (&optional arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1114 "Move to previous image and display properties.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1115 Optional prefix ARG says how many images to move; default is one
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1116 image."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1117 (interactive "p")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1118 (let (pos (steps (or arg 1)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1119 (dotimes (i steps)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1120 (if (and (not (bobp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1121 (save-excursion
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1122 (backward-char)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1123 (while (and (not (bobp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1124 (not (image-dired-image-at-point-p)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1125 (backward-char))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1126 (setq pos (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1127 (image-dired-image-at-point-p)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1128 (goto-char pos)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1129 (error "At first image"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1130 (when image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1131 (image-dired-track-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1132 (image-dired-display-thumb-properties))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1133
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1134 (defun image-dired-next-line ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1135 "Move to next line and display properties."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1136 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1137 (next-line 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1138 ;; If we end up in an empty spot, back up to the next thumbnail.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1139 (if (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1140 (image-dired-backward-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1141 (if image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1142 (image-dired-track-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1143 (image-dired-display-thumb-properties))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1144
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1145
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1146 (defun image-dired-previous-line ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1147 "Move to previous line and display properties."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1148 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1149 (previous-line 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1150 ;; If we end up in an empty spot, back up to the next
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1151 ;; thumbnail. This should only happen if the user deleted a
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1152 ;; thumbnail and did not refresh, so it is not very common. But we
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1153 ;; can handle it in a good manner, so why not?
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1154 (if (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1155 (image-dired-backward-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1156 (if image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1157 (image-dired-track-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1158 (image-dired-display-thumb-properties))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1159
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1160 (defun image-dired-format-properties-string (buf file props comment)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1161 "Format display properties.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1162 BUF is the associated dired buffer, FILE is the original image file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1163 name, PROPS is a list of tags and COMMENT is the image files's
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1164 comment."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1165 (format-spec
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1166 image-dired-display-properties-format
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1167 (list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1168 (cons ?b (or buf ""))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1169 (cons ?f file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1170 (cons ?t (or (princ props) ""))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1171 (cons ?c (or comment "")))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1172
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1173 (defun image-dired-display-thumb-properties ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1174 "Display thumbnail properties in the echo area."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1175 (if (not (eobp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1176 (let ((file-name (file-name-nondirectory (image-dired-original-file-name)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1177 (dired-buf (buffer-name (image-dired-associated-dired-buffer)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1178 (props (mapconcat
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1179 'princ
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1180 (get-text-property (point) 'tags)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1181 ", "))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1182 (comment (get-text-property (point) 'comment)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1183 (if file-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1184 (message
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1185 (image-dired-format-properties-string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1186 dired-buf
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1187 file-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1188 props
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1189 comment))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1190
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1191 (defun image-dired-dired-file-marked-p ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1192 "Check whether file on current line is marked or not."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1193 (save-excursion
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1194 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1195 (not (looking-at "^ .*$"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1196
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1197 (defun image-dired-modify-mark-on-thumb-original-file (command)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1198 "Modify mark in dired buffer.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1199 This is quite ugly but I don't know how to implemented in a better
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1200 way. COMMAND is one of 'mark for marking file in dired, 'unmark for
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1201 unmarking file in dired or 'flag for flagging file for delete in
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1202 dired."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1203 (let ((file-name (image-dired-original-file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1204 (dired-buf (image-dired-associated-dired-buffer)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1205 (if (not (and dired-buf file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1206 (message "No image, or image with correct properties, at point.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1207 (with-current-buffer dired-buf
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1208 (message file-name)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1209 (setq file-name (file-name-nondirectory file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1210 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1211 (if (search-forward file-name nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1212 (cond ((eq command 'mark) (dired-mark 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1213 ((eq command 'unmark) (dired-unmark 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1214 ((eq command 'toggle)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1215 (if (image-dired-dired-file-marked-p)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1216 (dired-unmark 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1217 (dired-mark 1)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1218 ((eq command 'flag) (dired-flag-file-deletion 1))))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1219
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1220 (defun image-dired-mark-thumb-original-file ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1221 "Mark original image file in associated dired buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1222 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1223 (image-dired-modify-mark-on-thumb-original-file 'mark)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1224 (image-dired-forward-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1225
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1226 (defun image-dired-unmark-thumb-original-file ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1227 "Unmark original image file in associated dired buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1228 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1229 (image-dired-modify-mark-on-thumb-original-file 'unmark)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1230 (image-dired-forward-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1231
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1232 (defun image-dired-flag-thumb-original-file ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1233 "Flag original image file for deletion in associated dired buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1234 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1235 (image-dired-modify-mark-on-thumb-original-file 'flag)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1236 (image-dired-forward-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1237
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1238 (defun image-dired-toggle-mark-thumb-original-file ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1239 "Toggle mark on original image file in associated dired buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1240 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1241 (image-dired-modify-mark-on-thumb-original-file 'toggle))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1242
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1243 (defun image-dired-jump-original-dired-buffer ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1244 "Jump to the dired buffer associated with the current image file.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1245 You probably want to use this together with
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1246 `image-dired-track-original-file'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1247 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1248 (let ((buf (image-dired-associated-dired-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1249 window frame)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1250 (setq window (image-dired-get-buffer-window buf))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1251 (if window
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1252 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1253 (if (not (equal (selected-frame) (setq frame (window-frame window))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1254 (select-frame-set-input-focus frame))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1255 (select-window window))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1256 (message "Associated dired buffer not visible"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1257
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1258 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1259 (defun image-dired-jump-thumbnail-buffer ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1260 "Jump to thumbnail buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1261 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1262 (let ((window (image-dired-thumbnail-window))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1263 frame)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1264 (if window
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1265 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1266 (if (not (equal (selected-frame) (setq frame (window-frame window))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1267 (select-frame-set-input-focus frame))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1268 (select-window window))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1269 (message "Thumbnail buffer not visible"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1270
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1271 (defvar image-dired-thumbnail-mode-map (make-sparse-keymap)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1272 "Keymap for `image-dired-thumbnail-mode'.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1273
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1274 (defvar image-dired-thumbnail-mode-line-up-map (make-sparse-keymap)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1275 "Keymap for line-up commands in `image-dired-thumbnail-mode'.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1276
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1277 (defvar image-dired-thumbnail-mode-tag-map (make-sparse-keymap)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1278 "Keymap for tag commands in `image-dired-thumbnail-mode'.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1279
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1280 (defun image-dired-define-thumbnail-mode-keymap ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1281 "Define keymap for `image-dired-thumbnail-mode'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1282
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1283 ;; Keys
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1284 (define-key image-dired-thumbnail-mode-map [right] 'image-dired-forward-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1285 (define-key image-dired-thumbnail-mode-map [left] 'image-dired-backward-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1286 (define-key image-dired-thumbnail-mode-map [up] 'image-dired-previous-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1287 (define-key image-dired-thumbnail-mode-map [down] 'image-dired-next-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1288 (define-key image-dired-thumbnail-mode-map "\C-f" 'image-dired-forward-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1289 (define-key image-dired-thumbnail-mode-map "\C-b" 'image-dired-backward-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1290 (define-key image-dired-thumbnail-mode-map "\C-p" 'image-dired-previous-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1291 (define-key image-dired-thumbnail-mode-map "\C-n" 'image-dired-next-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1292
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1293 (define-key image-dired-thumbnail-mode-map "d" 'image-dired-flag-thumb-original-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1294 (define-key image-dired-thumbnail-mode-map [delete]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1295 'image-dired-flag-thumb-original-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1296 (define-key image-dired-thumbnail-mode-map "m" 'image-dired-mark-thumb-original-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1297 (define-key image-dired-thumbnail-mode-map "u" 'image-dired-unmark-thumb-original-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1298 (define-key image-dired-thumbnail-mode-map "." 'image-dired-track-original-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1299 (define-key image-dired-thumbnail-mode-map [tab] 'image-dired-jump-original-dired-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1300
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1301 ;; add line-up map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1302 (define-key image-dired-thumbnail-mode-map "g" image-dired-thumbnail-mode-line-up-map)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1303
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1304 ;; map it to "g" so that the user can press it more quickly
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1305 (define-key image-dired-thumbnail-mode-line-up-map "g" 'image-dired-line-up-dynamic)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1306 ;; "f" for "fixed" number of thumbs per row
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1307 (define-key image-dired-thumbnail-mode-line-up-map "f" 'image-dired-line-up)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1308 ;; "i" for "interactive"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1309 (define-key image-dired-thumbnail-mode-line-up-map "i" 'image-dired-line-up-interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1310
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1311 ;; add tag map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1312 (define-key image-dired-thumbnail-mode-map "t" image-dired-thumbnail-mode-tag-map)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1313
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1314 ;; map it to "t" so that the user can press it more quickly
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1315 (define-key image-dired-thumbnail-mode-tag-map "t" 'image-dired-tag-thumbnail)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1316 ;; "r" for "remove"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1317 (define-key image-dired-thumbnail-mode-tag-map "r" 'image-dired-tag-thumbnail-remove)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1318
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1319 (define-key image-dired-thumbnail-mode-map "\C-m"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1320 'image-dired-display-thumbnail-original-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1321 (define-key image-dired-thumbnail-mode-map [C-return]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1322 'image-dired-thumbnail-display-external)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1323
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1324 (define-key image-dired-thumbnail-mode-map "l" 'image-dired-rotate-thumbnail-left)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1325 (define-key image-dired-thumbnail-mode-map "r" 'image-dired-rotate-thumbnail-right)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1326
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1327 (define-key image-dired-thumbnail-mode-map "L" 'image-dired-rotate-original-left)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1328 (define-key image-dired-thumbnail-mode-map "R" 'image-dired-rotate-original-right)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1329
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1330 (define-key image-dired-thumbnail-mode-map "D"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1331 'image-dired-thumbnail-set-image-description)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1332
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1333 (define-key image-dired-thumbnail-mode-map "\C-d" 'image-dired-delete-char)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1334 (define-key image-dired-thumbnail-mode-map " "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1335 'image-dired-display-next-thumbnail-original)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1336 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1337 (kbd "DEL") 'image-dired-display-previous-thumbnail-original)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1338 (define-key image-dired-thumbnail-mode-map "c" 'image-dired-comment-thumbnail)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1339 (define-key image-dired-thumbnail-mode-map "q" 'image-dired-kill-buffer-and-window)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1340
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1341 ;; Mouse
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1342 (define-key image-dired-thumbnail-mode-map [mouse-2] 'image-dired-mouse-display-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1343 (define-key image-dired-thumbnail-mode-map [mouse-1] 'image-dired-mouse-select-thumbnail)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1344
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1345 ;; Seems I must first set C-down-mouse-1 to undefined, or else it
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1346 ;; will trigger the buffer menu. If I try to instead bind
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1347 ;; C-down-mouse-1 to `image-dired-mouse-toggle-mark', I get a message
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1348 ;; about C-mouse-1 not being defined afterwards. Annoying, but I
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1349 ;; probably do not completely understand mouse events.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1350
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1351 (define-key image-dired-thumbnail-mode-map [C-down-mouse-1] 'undefined)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1352 (define-key image-dired-thumbnail-mode-map [C-mouse-1] 'image-dired-mouse-toggle-mark)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1353
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1354 ;; Menu
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1355 (define-key image-dired-thumbnail-mode-map [menu-bar image-dired]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1356 (cons "Image-Dired" (make-sparse-keymap "Image-Dired")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1357
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1358 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1359 [menu-bar image-dired image-dired-kill-buffer-and-window]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1360 '("Quit" . image-dired-kill-buffer-and-window))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1361
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1362 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1363 [menu-bar image-dired image-dired-delete-char]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1364 '("Delete thumbnail from buffer" . image-dired-delete-char))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1365
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1366 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1367 [menu-bar image-dired image-dired-tag-thumbnail-remove]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1368 '("Remove tag from thumbnail" . image-dired-tag-thumbnail-remove))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1369
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1370 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1371 [menu-bar image-dired image-dired-tag-thumbnail]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1372 '("Tag thumbnail" . image-dired-tag-thumbnail))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1373
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1374 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1375 [menu-bar image-dired image-dired-comment-thumbnail]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1376 '("Comment thumbnail" . image-dired-comment-thumbnail))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1377
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1378 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1379 [menu-bar image-dired image-dired-refresh-thumb]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1380 '("Refresh thumb" . image-dired-refresh-thumb))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1381 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1382 [menu-bar image-dired image-dired-line-up-dynamic]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1383 '("Dynamic line up" . image-dired-line-up-dynamic))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1384 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1385 [menu-bar image-dired image-dired-line-up]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1386 '("Line up thumbnails" . image-dired-line-up))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1387
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1388 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1389 [menu-bar image-dired image-dired-rotate-thumbnail-left]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1390 '("Rotate thumbnail left" . image-dired-rotate-thumbnail-left))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1391 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1392 [menu-bar image-dired image-dired-rotate-thumbnail-right]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1393 '("Rotate thumbnail right" . image-dired-rotate-thumbnail-right))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1394
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1395 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1396 [menu-bar image-dired image-dired-rotate-original-left]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1397 '("Rotate original left" . image-dired-rotate-original-left))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1398 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1399 [menu-bar image-dired image-dired-rotate-original-right]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1400 '("Rotate original right" . image-dired-rotate-original-right))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1401
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1402 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1403 [menu-bar image-dired image-dired-toggle-movement-tracking]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1404 '("Toggle movement tracking on/off" . image-dired-toggle-movement-tracking))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1406 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1407 [menu-bar image-dired image-dired-jump-original-dired-buffer]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1408 '("Jump to dired buffer" . image-dired-jump-original-dired-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1409 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1410 [menu-bar image-dired image-dired-track-original-file]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1411 '("Track original" . image-dired-track-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1412
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1413 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1414 [menu-bar image-dired image-dired-flag-thumb-original-file]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1415 '("Flag original for deletion" . image-dired-flag-thumb-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1416 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1417 [menu-bar image-dired image-dired-unmark-thumb-original-file]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1418 '("Unmark original" . image-dired-unmark-thumb-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1419 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1420 [menu-bar image-dired image-dired-mark-thumb-original-file]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1421 '("Mark original" . image-dired-mark-thumb-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1422
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1423 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1424 [menu-bar image-dired image-dired-thumbnail-display-external]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1425 '("Display in external viewer" . image-dired-thumbnail-display-external))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1426 (define-key image-dired-thumbnail-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1427 [menu-bar image-dired image-dired-display-thumbnail-original-image]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1428 '("Display image" . image-dired-display-thumbnail-original-image)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1429
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1430 (defvar image-dired-display-image-mode-map (make-sparse-keymap)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1431 "Keymap for `image-dired-display-image-mode'.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1432
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1433 (defun image-dired-define-display-image-mode-keymap ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1434 "Define keymap for `image-dired-display-image-mode'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1435
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1436 ;; Keys
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1437 (define-key image-dired-display-image-mode-map "q" 'image-dired-kill-buffer-and-window)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1438
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1439 (define-key image-dired-display-image-mode-map "f"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1440 'image-dired-display-current-image-full)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1441
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1442 (define-key image-dired-display-image-mode-map "s"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1443 'image-dired-display-current-image-sized)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1444
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1445 ;; Menu
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1446 (define-key image-dired-display-image-mode-map [menu-bar image-dired]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1447 (cons "Image-Dired" (make-sparse-keymap "Image-Dired")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1448
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1449 (define-key image-dired-display-image-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1450 [menu-bar image-dired image-dired-kill-buffer-and-window]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1451 '("Quit" . image-dired-kill-buffer-and-window))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1452
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1453 (define-key image-dired-display-image-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1454 [menu-bar image-dired image-dired-display-current-image-sized]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1455 '("Display original, sized to fit" . image-dired-display-current-image-sized))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1456
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1457 (define-key image-dired-display-image-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1458 [menu-bar image-dired image-dired-display-current-image-full]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1459 '("Display original, full size" . image-dired-display-current-image-full))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1460
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1461 )
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1462
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1463 (defun image-dired-display-current-image-full ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1464 "Display current image in full size."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1465 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1466 (let ((file (image-dired-original-file-name)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1467 (if file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1468 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1469 (image-dired-display-image file t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1470 (message "Full size image displayed"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1471 (error "No original file name at point"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1472
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1473 (defun image-dired-display-current-image-sized ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1474 "Display current image in sized to fit window dimensions."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1475 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1476 (let ((file (image-dired-original-file-name)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1477 (if file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1478 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1479 (image-dired-display-image file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1480 (message "Full size image displayed"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1481 (error "No original file name at point"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1482
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1483 (define-derived-mode image-dired-thumbnail-mode
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1484 fundamental-mode "image-dired-thumbnail"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1485 "Browse and manipulate thumbnail images using dired.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1486 Use `image-dired-dired' and `image-dired-setup-dired-keybindings' to get a
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1487 nice setup to start with."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1488 (image-dired-define-thumbnail-mode-keymap)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1489 (message "image-dired-thumbnail-mode enabled"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1490
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1491 (define-derived-mode image-dired-display-image-mode
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1492 fundamental-mode "image-dired-image-display"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1493 "Mode for displaying and manipulating original image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1494 Resized or in full-size."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1495 (image-dired-define-display-image-mode-keymap)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1496 (message "image-dired-display-image-mode enabled"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1497
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1498 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1499 (defun image-dired-setup-dired-keybindings ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1500 "Setup easy-to-use keybindings for the commands to be used in dired mode.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1501 Note that n, p and <down> and <up> will be hijacked and bound to
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1502 `image-dired-dired-x-line'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1503 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1504
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1505 ;; Hijack previous and next line movement. Let C-p and C-b be
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1506 ;; though...
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1507
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1508 (define-key dired-mode-map "p" 'image-dired-dired-previous-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1509 (define-key dired-mode-map "n" 'image-dired-dired-next-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1510 (define-key dired-mode-map [up] 'image-dired-dired-previous-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1511 (define-key dired-mode-map [down] 'image-dired-dired-next-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1512
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1513 (define-key dired-mode-map (kbd "C-S-n") 'image-dired-next-line-and-display)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1514 (define-key dired-mode-map (kbd "C-S-p") 'image-dired-previous-line-and-display)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1515 (define-key dired-mode-map (kbd "C-S-m") 'image-dired-mark-and-display-next)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1516
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1517 (define-key dired-mode-map "\C-td" 'image-dired-display-thumbs)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1518 (define-key dired-mode-map "\C-tt" 'image-dired-tag-files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1519 (define-key dired-mode-map "\C-tr" 'image-dired-delete-tag)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1520 (define-key dired-mode-map [tab] 'image-dired-jump-thumbnail-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1521 (define-key dired-mode-map "\C-ti" 'image-dired-dired-display-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1522 (define-key dired-mode-map "\C-tx" 'image-dired-dired-display-external)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1523 (define-key dired-mode-map "\C-ta" 'image-dired-display-thumbs-append)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1524 (define-key dired-mode-map "\C-t." 'image-dired-display-thumb)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1525 (define-key dired-mode-map "\C-tc" 'image-dired-dired-comment-files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1526 (define-key dired-mode-map "\C-tf" 'image-dired-mark-tagged-files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1527
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1528 ;; Menu for dired
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1529 (define-key dired-mode-map [menu-bar image-dired]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1530 (cons "Image-Dired" (make-sparse-keymap "Image-Dired")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1531
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1532 (define-key dired-mode-map [menu-bar image-dired image-dired-copy-with-exif-file-name]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1533 '("Copy with EXIF file name" . image-dired-copy-with-exif-file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1534
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1535 (define-key dired-mode-map [menu-bar image-dired image-dired-dired-comment-files]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1536 '("Comment files" . image-dired-dired-comment-files))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1537
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1538 (define-key dired-mode-map [menu-bar image-dired image-dired-mark-tagged-files]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1539 '("Mark tagged files" . image-dired-mark-tagged-files))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1540
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1541 (define-key dired-mode-map [menu-bar image-dired image-dired-delete-tag]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1542 '("Remove tag from files" . image-dired-delete-tag))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1543
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1544 (define-key dired-mode-map [menu-bar image-dired image-dired-tag-files]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1545 '("Tag files" . image-dired-tag-files))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1546
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1547 (define-key dired-mode-map [menu-bar image-dired image-dired-jump-thumbnail-buffer]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1548 '("Jump to thumbnail buffer" . image-dired-jump-thumbnail-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1549
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1550 (define-key dired-mode-map [menu-bar image-dired image-dired-toggle-movement-tracking]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1551 '("Toggle movement tracking" . image-dired-toggle-movement-tracking))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1552
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1553 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1554 [menu-bar image-dired image-dired-toggle-append-browsing]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1555 '("Toggle append browsing" . image-dired-toggle-append-browsing))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1556
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1557 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1558 [menu-bar image-dired image-dired-toggle-disp-props]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1559 '("Toggle display properties" . image-dired-toggle-dired-display-properties))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1560
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1561 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1562 [menu-bar image-dired image-dired-dired-display-external]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1563 '("Display in external viewer" . image-dired-dired-display-external))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1564 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1565 [menu-bar image-dired image-dired-dired-display-image]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1566 '("Display image" . image-dired-dired-display-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1567 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1568 [menu-bar image-dired image-dired-display-thumb]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1569 '("Display this thumbnail" . image-dired-display-thumb))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1570 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1571 [menu-bar image-dired image-dired-display-thumbs-append]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1572 '("Display thumbnails append" . image-dired-display-thumbs-append))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1573 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1574 [menu-bar image-dired image-dired-display-thumbs]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1575 '("Display thumbnails" . image-dired-display-thumbs))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1576
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1577 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1578 [menu-bar image-dired image-dired-create-thumbs]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1579 '("Create thumbnails for marked files" . image-dired-create-thumbs))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1580
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1581 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1582 [menu-bar image-dired image-dired-mark-and-display-next]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1583 '("Mark and display next" . image-dired-mark-and-display-next))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1584 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1585 [menu-bar image-dired image-dired-previous-line-and-display]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1586 '("Display thumb for previous file" . image-dired-previous-line-and-display))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1587 (define-key dired-mode-map
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1588 [menu-bar image-dired image-dired-next-line-and-display]
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1589 '("Display thumb for next file" . image-dired-next-line-and-display)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1590
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1591 (defun image-dired-create-thumbs (&optional arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1592 "Create thumbnail images for all marked files in dired.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1593 With prefix argument ARG, create thumbnails even if they already exist
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1594 \(i.e. use this to refresh your thumbnails)."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1595 (interactive "P")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1596 (let (curr-file thumb-name files count)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1597 (setq files (dired-get-marked-files))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1598 (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1599 (lambda (curr-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1600 (setq thumb-name (image-dired-thumb-name curr-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1601 ;; If the user overrides the exist check, we must clear the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1602 ;; image cache so that if the user wants to display the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1603 ;; thumnail, it is not fetched from cache.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1604 (if arg
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1605 (clear-image-cache))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1606 (if (or (not (file-exists-p thumb-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1607 arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1608 (if (not (= 0 (image-dired-create-thumb curr-file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1609 (image-dired-thumb-name curr-file))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1610 (error "Thumb could not be created"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1611 files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1612
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1613 (defvar image-dired-slideshow-timer nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1614 "Slideshow timer.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1615
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1616 (defvar image-dired-slideshow-count 0
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1617 "Keeping track on number of images in slideshow.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1618
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1619 (defvar image-dired-slideshow-times 0
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1620 "Number of pictures to display in slideshow.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1621
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1622 (defun image-dired-slideshow-step ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1623 "Step to next file, if `image-dired-slideshow-times' has not been reached."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1624 (if (< image-dired-slideshow-count image-dired-slideshow-times)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1625 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1626 (message "%s" (1+ image-dired-slideshow-count))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1627 (setq image-dired-slideshow-count (1+ image-dired-slideshow-count))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1628 (image-dired-next-line-and-display))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1629 (image-dired-slideshow-stop)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1630
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1631 (defun image-dired-slideshow-start ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1632 "Start slideshow.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1633 Ask user for number of images to show and the delay in between."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1634 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1635 (setq image-dired-slideshow-count 0)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1636 (setq image-dired-slideshow-times (string-to-number (read-string "How many: ")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1637 (let ((repeat (string-to-number
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1638 (read-string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1639 "Delay, in seconds. Decimals are accepted : " "1"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1640 (setq image-dired-slideshow-timer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1641 (run-with-timer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1642 0 repeat
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1643 'image-dired-slideshow-step))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1644
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1645 (defun image-dired-slideshow-stop ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1646 "Cancel slideshow."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1647 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1648 (cancel-timer image-dired-slideshow-timer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1649
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1650 (defun image-dired-delete-char ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1651 "Remove current thumbnail from thumbnail buffer and line up."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1652 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1653 (let ((inhibit-read-only t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1654 (delete-char 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1655 (if (looking-at " ")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1656 (delete-char 1))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1657
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1658 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1659 (defun image-dired-display-thumbs-append ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1660 "Append thumbnails to `image-dired-thumbnail-buffer'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1661 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1662 (image-dired-display-thumbs nil t t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1663
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1664 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1665 (defun image-dired-display-thumb ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1666 "Shorthand for `image-dired-display-thumbs' with prefix argument."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1667 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1668 (image-dired-display-thumbs t nil t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1669
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1670 (defun image-dired-line-up ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1671 "Line up thumbnails according to `image-dired-thumbs-per-row'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1672 See also `image-dired-line-up-dynamic'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1673 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1674 (let ((inhibit-read-only t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1675 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1676 (while (and (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1677 (not (eobp)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1678 (delete-char 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1679 (while (not (eobp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1680 (forward-char)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1681 (while (and (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1682 (not (eobp)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1683 (delete-char 1)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1684 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1685 (let ((count 0))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1686 (while (not (eobp))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1687 (forward-char)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1688 (if (= image-dired-thumbs-per-row 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1689 (insert "\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1690 (insert " ")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1691 (setq count (1+ count))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1692 (when (and (= count (- image-dired-thumbs-per-row 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1693 (not (eobp)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1694 (forward-char)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1695 (insert "\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1696 (setq count 0)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1697 (goto-char (point-min))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1698
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1699 (defun image-dired-line-up-dynamic ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1700 "Line up thumbnails images dynamically.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1701 Calculate how many thumbnails fit."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1702 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1703 (let* ((char-width (frame-char-width))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1704 (width (image-dired-window-width-pixels (image-dired-thumbnail-window)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1705 (image-dired-thumbs-per-row
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1706 (/ width
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1707 (+ (* 2 image-dired-thumb-relief)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1708 (* 2 image-dired-thumb-margin)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1709 image-dired-thumb-width char-width))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1710 (image-dired-line-up)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1711
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1712 (defun image-dired-line-up-interactive ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1713 "Line up thumbnails interactively.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1714 Ask user how many thumbnails should be displayed per row."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1715 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1716 (let ((image-dired-thumbs-per-row
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1717 (string-to-number (read-string "How many thumbs per row: "))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1718 (if (not (> image-dired-thumbs-per-row 0))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1719 (message "Number must be greater than 0")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1720 (image-dired-line-up))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1721
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1722 (defun image-dired-thumbnail-display-external ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1723 "Display original image for thumbnail at point using external viewer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1724 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1725 (let ((file (image-dired-original-file-name)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1726 (if (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1727 (message "No thumbnail at point")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1728 (if (not file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1729 (message "No original file name found")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1730 (call-process shell-file-name nil nil nil shell-command-switch
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1731 (format "%s \"%s\"" image-dired-external-viewer file))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1732
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1733 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1734 (defun image-dired-dired-display-external ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1735 "Display file at point using an external viewer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1736 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1737 (let ((file (dired-get-filename)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1738 (call-process shell-file-name nil nil nil shell-command-switch
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1739 (format "%s \"%s\"" image-dired-external-viewer file))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1740
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1741 (defun image-dired-window-width-pixels (window)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1742 "Calculate WINDOW width in pixels."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1743 (* (window-width window) (frame-char-width)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1744
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1745 (defun image-dired-window-height-pixels (window)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1746 "Calculate WINDOW height in pixels."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1747 ;; Note: The mode-line consumes one line
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1748 (* (- (window-height window) 1) (frame-char-height)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1749
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1750 (defun image-dired-display-window ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1751 "Return window where `image-dired-display-image-buffer' is visible."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1752 (get-window-with-predicate
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1753 (lambda (window)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1754 (equal (buffer-name (window-buffer window)) image-dired-display-image-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1755 nil t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1756
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1757 (defun image-dired-thumbnail-window ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1758 "Return window where `image-dired-thumbnail-buffer' is visible."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1759 (get-window-with-predicate
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1760 (lambda (window)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1761 (equal (buffer-name (window-buffer window)) image-dired-thumbnail-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1762 nil t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1763
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1764 (defun image-dired-associated-dired-buffer-window ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1765 "Return window where associated dired buffer is visible."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1766 (let (buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1767 (if (image-dired-image-at-point-p)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1768 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1769 (setq buf (image-dired-associated-dired-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1770 (get-window-with-predicate
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1771 (lambda (window)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1772 (equal (window-buffer window) buf))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1773 (error "No thumbnail image at point"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1774
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1775 (defun image-dired-display-window-width ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1776 "Return width, in pixels, of image-dired's image display window."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1777 (- (image-dired-window-width-pixels (image-dired-display-window))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1778 image-dired-display-window-width-correction))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1779
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1780 (defun image-dired-display-window-height ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1781 "Return height, in pixels, of image-dired's image display window."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1782 (- (image-dired-window-height-pixels (image-dired-display-window))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1783 image-dired-display-window-height-correction))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1784
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1785 (defun image-dired-display-image (file &optional original-size)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1786 "Display image FILE in image buffer.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1787 Use this when you want to display the image, semi sized, in a new
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1788 window. The image is sized to fit the display window (using a
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1789 temporary file, don't worry). Because of this, it will not be as
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1790 quick as opening it directly, but on most modern systems it
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1791 should feel snappy enough.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1792
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1793 If optional argument ORIGINAL-SIZE is non-nil, display image in its
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1794 original size."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1795 (let ((new-file (expand-file-name image-dired-temp-image-file))
77548
8c5c8dcbbcea Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents: 77405
diff changeset
1796 width height command ret
8c5c8dcbbcea Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents: 77405
diff changeset
1797 (image-type 'jpeg))
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1798 (setq file (expand-file-name file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1799 (if (not original-size)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1800 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1801 (setq width (image-dired-display-window-width))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1802 (setq height (image-dired-display-window-height))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1803 (setq command
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1804 (format-spec
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1805 image-dired-cmd-create-temp-image-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1806 (list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1807 (cons ?p image-dired-cmd-create-temp-image-program)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1808 (cons ?w width)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1809 (cons ?h height)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1810 (cons ?f file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1811 (cons ?t new-file))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1812 (setq ret (call-process shell-file-name nil nil nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1813 shell-command-switch command))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1814 (if (not (= 0 ret))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1815 (error "Could not resize image")))
77548
8c5c8dcbbcea Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents: 77405
diff changeset
1816 (setq image-type (image-type-from-file-name file))
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1817 (copy-file file new-file t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1818 (with-current-buffer (image-dired-create-display-image-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1819 (let ((inhibit-read-only t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1820 (erase-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1821 (clear-image-cache)
77548
8c5c8dcbbcea Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents: 77405
diff changeset
1822 (image-dired-insert-image image-dired-temp-image-file image-type 0 0)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1823 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1824 (image-dired-update-property 'original-file-name file)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1825
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1826 (defun image-dired-display-thumbnail-original-image (&optional arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1827 "Display current thumbnail's original image in display buffer.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1828 See documentation for `image-dired-display-image' for more information.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1829 With prefix argument ARG, display image in its original size."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1830 (interactive "P")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1831 (let ((file (image-dired-original-file-name)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1832 (if (not (string-equal major-mode "image-dired-thumbnail-mode"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1833 (message "Not in image-dired-thumbnail-mode")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1834 (if (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1835 (message "No thumbnail at point")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1836 (if (not file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1837 (message "No original file name found")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1838 (image-dired-create-display-image-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1839 (display-buffer image-dired-display-image-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1840 (image-dired-display-image file arg))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1841
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1842
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1843 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1844 (defun image-dired-dired-display-image (&optional arg)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1845 "Display current image file.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1846 See documentation for `image-dired-display-image' for more information.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1847 With prefix argument ARG, display image in its original size."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1848 (interactive "P")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1849 (image-dired-create-display-image-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1850 (display-buffer image-dired-display-image-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1851 (image-dired-display-image (dired-get-filename) arg))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1852
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1853 (defun image-dired-image-at-point-p ()
78964
7a23b4f8846e (image-dired-image-at-point-p): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 78236
diff changeset
1854 "Return true if there is an image-dired thumbnail at point."
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1855 (get-text-property (point) 'image-dired-thumbnail))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1856
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1857 (defun image-dired-rotate-thumbnail (degrees)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1858 "Rotate thumbnail DEGREES degrees."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1859 (if (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1860 (message "No thumbnail at point")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1861 (let ((file (image-dired-thumb-name (image-dired-original-file-name)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1862 command)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1863 (setq command (format-spec
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1864 image-dired-cmd-rotate-thumbnail-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1865 (list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1866 (cons ?p image-dired-cmd-rotate-thumbnail-program)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1867 (cons ?d degrees)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1868 (cons ?t (expand-file-name file)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1869 (call-process shell-file-name nil nil nil shell-command-switch command)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1870 ;; Clear the cache to refresh image. I wish I could just refresh
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1871 ;; the current file but I do not know how to do that. Yet...
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1872 (clear-image-cache))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1873
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1874 (defun image-dired-rotate-thumbnail-left ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1875 "Rotate thumbnail left (counter clockwise) 90 degrees.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1876 The result of the rotation is displayed in the image display area
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1877 and a confirmation is needed before the original image files is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1878 overwritten. This confirmation can be turned off using
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1879 `image-dired-rotate-original-ask-before-overwrite'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1880 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1881 (image-dired-rotate-thumbnail "270"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1882
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1883 (defun image-dired-rotate-thumbnail-right ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1884 "Rotate thumbnail counter right (clockwise) 90 degrees.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1885 The result of the rotation is displayed in the image display area
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1886 and a confirmation is needed before the original image files is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1887 overwritten. This confirmation can be turned off using
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1888 `image-dired-rotate-original-ask-before-overwrite'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1889 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1890 (image-dired-rotate-thumbnail "90"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1891
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1892 (defun image-dired-refresh-thumb ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1893 "Force creation of new image for current thumbnail."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1894 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1895 (let ((file (image-dired-original-file-name)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1896 (clear-image-cache)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1897 (image-dired-create-thumb file (image-dired-thumb-name file))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1898
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1899 (defun image-dired-rotate-original (degrees)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1900 "Rotate original image DEGREES degrees."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1901 (if (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1902 (message "No image at point")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1903 (let ((file (image-dired-original-file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1904 command temp-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1905 (if (not (string-match "\.[jJ][pP[eE]?[gG]$" file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1906 (error "Only JPEG images can be rotated!"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1907 (setq command (format-spec
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1908 image-dired-cmd-rotate-original-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1909 (list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1910 (cons ?p image-dired-cmd-rotate-original-program)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1911 (cons ?d degrees)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1912 (cons ?o (expand-file-name file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1913 (cons ?t image-dired-temp-rotate-image-file))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1914 (if (not (= 0 (call-process shell-file-name nil nil nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1915 shell-command-switch command)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1916 (error "Could not rotate image")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1917 (image-dired-display-image image-dired-temp-rotate-image-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1918 (if (or (and image-dired-rotate-original-ask-before-overwrite
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1919 (y-or-n-p
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1920 "Rotate to temp file OK. Overwrite original image? "))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1921 (not image-dired-rotate-original-ask-before-overwrite))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1922 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1923 (copy-file image-dired-temp-rotate-image-file file t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1924 (image-dired-refresh-thumb))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1925 (image-dired-display-image file))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1926
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1927 (defun image-dired-rotate-original-left ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1928 "Rotate original image left (counter clockwise) 90 degrees."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1929 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1930 (image-dired-rotate-original "270"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1931
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1932 (defun image-dired-rotate-original-right ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1933 "Rotate original image right (clockwise) 90 degrees."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1934 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1935 (image-dired-rotate-original "90"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1936
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1937 (defun image-dired-get-exif-file-name (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1938 "Use the image's EXIF information to return a unique file name.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1939 The file name should be unique as long as you do not take more than
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1940 one picture per second. The original file name is suffixed at the end
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1941 for traceability. The format of the returned file name is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1942 YYYY_MM_DD_HH_MM_DD_ORIG_FILE_NAME.jpg. Used from
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1943 `image-dired-copy-with-exif-file-name'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1944 (let (data no-exif-data-found)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1945 (if (not (string-match "\.[Jj][Pp][Ee]?[Gg]$" (expand-file-name file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1946 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1947 (setq no-exif-data-found t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1948 (setq data
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1949 (format-time-string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1950 "%Y:%m:%d %H:%M:%S"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1951 (nth 5 (file-attributes (expand-file-name file))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1952 (setq data (image-dired-get-exif-data (expand-file-name file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1953 "DateTimeOriginal")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1954 (while (string-match "[ :]" data)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1955 (setq data (replace-match "_" nil nil data)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1956 (format "%s%s%s" data
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1957 (if no-exif-data-found
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1958 "_noexif_"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1959 "_")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1960 (file-name-nondirectory file))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1961
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1962 (defun image-dired-thumbnail-set-image-description ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1963 "Set the ImageDescription EXIF tag for the original image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1964 If the image already has a value for this tag, it is used as the
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1965 default value at the prompt."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1966 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1967 (if (not (image-dired-image-at-point-p))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1968 (message "No thumbnail at point")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1969 (let* ((file (image-dired-original-file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1970 (old-value (image-dired-get-exif-data file "ImageDescription")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1971 (if (eq 0
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1972 (image-dired-set-exif-data file "ImageDescription"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1973 (read-string "Value of ImageDescription: "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1974 old-value)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1975 (message "Successfully wrote ImageDescription tag.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1976 (error "Could not write ImageDescription tag")))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1977
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1978 (defun image-dired-set-exif-data (file tag-name tag-value)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1979 "In FILE, set EXIF tag TAG-NAME to value TAG-VALUE."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1980 (let (command)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1981 (setq command (format-spec
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1982 image-dired-cmd-write-exif-data-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1983 (list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1984 (cons ?p image-dired-cmd-write-exif-data-program)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1985 (cons ?f (expand-file-name file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1986 (cons ?t tag-name)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1987 (cons ?v tag-value))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1988 (call-process shell-file-name nil nil nil shell-command-switch command)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1989
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1990 (defun image-dired-get-exif-data (file tag-name)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1991 "From FILE, return EXIF tag TAG-NAME."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1992 (let ((buf (get-buffer-create "*image-dired-get-exif-data*"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1993 command tag-value)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1994 (setq command (format-spec
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1995 image-dired-cmd-read-exif-data-options
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1996 (list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1997 (cons ?p image-dired-cmd-read-exif-data-program)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1998 (cons ?f file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
1999 (cons ?t tag-name))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2000 (with-current-buffer buf
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2001 (delete-region (point-min) (point-max))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2002 (if (not (eq (call-process shell-file-name nil t nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2003 shell-command-switch command) 0))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2004 (error "Could not get EXIF tag")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2005 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2006 ;; Clean buffer from newlines and carriage returns before
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2007 ;; getting final info
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2008 (while (search-forward-regexp "[\n\r]" nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2009 (replace-match "" nil t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2010 (setq tag-value (buffer-substring (point-min) (point-max)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2011 tag-value))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2012
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2013 (defun image-dired-copy-with-exif-file-name ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2014 "Copy file with unique name to main image directory.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2015 Copy current or all marked files in dired to a new file in your
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2016 main image directory, using a file name generated by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2017 `image-dired-get-exif-file-name'. A typical usage for this if when
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2018 copying images from a digital camera into the image directory.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2019
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2020 Typically, you would open up the folder with the incoming
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2021 digital images, mark the files to be copied, and execute this
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2022 function. The result is a couple of new files in
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2023 `image-dired-main-image-directory' called
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2024 2005_05_08_12_52_00_dscn0319.jpg,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2025 2005_05_08_14_27_45_dscn0320.jpg etc."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2026 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2027 (let (new-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2028 (files (dired-get-marked-files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2029 (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2030 (lambda (curr-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2031 (setq new-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2032 (format "%s/%s"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2033 (file-name-as-directory
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2034 (expand-file-name image-dired-main-image-directory))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2035 (image-dired-get-exif-file-name curr-file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2036 (message "Copying %s to %s" curr-file new-name)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2037 (copy-file curr-file new-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2038 files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2039
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2040 (defun image-dired-display-next-thumbnail-original ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2041 "In thubnail buffer, move to next thumbnail and display the image."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2042 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2043 (image-dired-forward-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2044 (image-dired-display-thumbnail-original-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2045
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2046 (defun image-dired-display-previous-thumbnail-original ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2047 "Move to previous thumbnail and display image."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2048 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2049 (image-dired-backward-image)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2050 (image-dired-display-thumbnail-original-image))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2051
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2052 (defun image-dired-write-comments (file-comments)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2053 "Write file comments to database.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2054 Write file comments to one or more files. FILE-COMMENTS is an alist on
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2055 the following form:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2056 ((FILE . COMMENT) ... )"
78183
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
2057 (image-dired-sane-db-file)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2058 (let (end comment-beg-pos comment-end-pos file comment)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2059 (with-temp-file image-dired-db-file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2060 (insert-file-contents image-dired-db-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2061 (dolist (elt file-comments)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2062 (setq file (car elt)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2063 comment (cdr elt))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2064 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2065 (if (search-forward-regexp (format "^%s.*$" file) nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2066 (progn
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2067 (setq end (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2068 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2069 ;; Delete old comment, if any
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2070 (when (search-forward ";comment:" end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2071 (setq comment-beg-pos (match-beginning 0))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2072 ;; Any tags after the comment?
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2073 (if (search-forward ";" end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2074 (setq comment-end-pos (- (point) 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2075 (setq comment-end-pos end))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2076 ;; Delete comment tag and comment
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2077 (delete-region comment-beg-pos comment-end-pos))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2078 ;; Insert new comment
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2079 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2080 (unless (search-forward ";" end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2081 (end-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2082 (insert ";"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2083 (insert (format "comment:%s;" comment)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2084 ;; File does not exist in database - add it.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2085 (goto-char (point-max))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2086 (insert (format "\n%s;comment:%s" file comment)))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2087
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2088 (defun image-dired-update-property (prop value)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2089 "Update text property PROP with value VALUE at point."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2090 (let ((inhibit-read-only t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2091 (put-text-property
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2092 (point) (1+ (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2093 prop
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2094 value)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2095
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2096 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2097 (defun image-dired-dired-comment-files ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2098 "Add comment to current or marked files in dired."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2099 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2100 (let ((comment (image-dired-read-comment)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2101 (image-dired-write-comments
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2102 (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2103 (lambda (curr-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2104 (cons curr-file comment))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2105 (dired-get-marked-files)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2106
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2107 (defun image-dired-comment-thumbnail ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2108 "Add comment to current thumbnail in thumbnail buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2109 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2110 (let* ((file (image-dired-original-file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2111 (comment (image-dired-read-comment file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2112 (image-dired-write-comments (list (cons file comment)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2113 (image-dired-update-property 'comment comment))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2114 (image-dired-display-thumb-properties))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2115
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2116 (defun image-dired-read-comment (&optional file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2117 "Read comment for an image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2118 Read comment for an image, optionally using old comment from FILE
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2119 as initial value."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2120 (let ((comment
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2121 (read-string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2122 "Comment: "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2123 (if file (image-dired-get-comment file)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2124 comment))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2125
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2126 (defun image-dired-get-comment (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2127 "Get comment for file FILE."
78183
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
2128 (image-dired-sane-db-file)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2129 (save-excursion
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2130 (let (end buf comment-beg-pos comment-end-pos comment)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2131 (setq buf (find-file image-dired-db-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2132 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2133 (when (search-forward-regexp
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2134 (format "^%s" file) nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2135 (end-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2136 (setq end (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2137 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2138 (cond ((search-forward ";comment:" end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2139 (setq comment-beg-pos (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2140 (if (search-forward ";" end t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2141 (setq comment-end-pos (- (point) 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2142 (setq comment-end-pos end))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2143 (setq comment (buffer-substring
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2144 comment-beg-pos comment-end-pos)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2145 (kill-buffer buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2146 comment)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2147
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2148 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2149 (defun image-dired-mark-tagged-files ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2150 "Use regexp to mark files with matching tag.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2151 A `tag' is a keyword, a piece of meta data, associated with an
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2152 image file and stored in image-dired's database file. This command
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2153 lets you input a regexp and this will be matched against all tags
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2154 on all image files in the database file. The files that have a
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2155 matching tags will be marked in the dired buffer."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2156 (interactive)
78183
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
2157 (image-dired-sane-db-file)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2158 (let ((tag (read-string "Mark tagged files (regexp): "))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2159 (hits 0)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2160 files buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2161 (save-excursion
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2162 (setq buf (find-file image-dired-db-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2163 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2164 ;; Collect matches
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2165 (while (search-forward-regexp
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2166 (concat "\\(^[^;\n]+\\);.*" tag ".*$") nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2167 (setq files (append (list (match-string 1)) files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2168 (kill-buffer buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2169 ;; Mark files
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2170 (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2171 ;; I tried using `dired-mark-files-regexp' but it was
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2172 ;; waaaay to slow.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2173 (lambda (curr-file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2174 ;; Don't bother about hits found in other directories than
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2175 ;; the current one.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2176 (when (string= (file-name-as-directory
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2177 (expand-file-name default-directory))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2178 (file-name-as-directory
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2179 (file-name-directory curr-file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2180 (setq curr-file (file-name-nondirectory curr-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2181 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2182 (when (search-forward-regexp (format "\\s %s$" curr-file) nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2183 (setq hits (+ hits 1))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2184 (dired-mark 1))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2185 files))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2186 (message "%d files with matching tag marked." hits)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2187
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2188 (defun image-dired-mouse-display-image (event)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2189 "Use mouse EVENT, call `image-dired-display-image' to display image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2190 Track this in associated dired buffer if `image-dired-track-movement' is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2191 non-nil."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2192 (interactive "e")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2193 (let (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2194 (mouse-set-point event)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2195 (goto-char (posn-point (event-end event)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2196 (setq file (image-dired-original-file-name))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2197 (if image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2198 (image-dired-track-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2199 (image-dired-create-display-image-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2200 (display-buffer image-dired-display-image-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2201 (image-dired-display-image file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2202
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2203 (defun image-dired-mouse-select-thumbnail (event)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2204 "Use mouse EVENT to select thumbnail image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2205 Track this in associated dired buffer if `image-dired-track-movement' is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2206 non-nil."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2207 (interactive "e")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2208 (let (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2209 (mouse-set-point event)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2210 (goto-char (posn-point (event-end event)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2211 (if image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2212 (image-dired-track-original-file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2213 (image-dired-display-thumb-properties))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2214
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2215 (defun image-dired-mouse-toggle-mark (event)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2216 "Use mouse EVENT to toggle dired mark for thumbnail.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2217 Track this in associated dired buffer if `image-dired-track-movement' is
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2218 non-nil."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2219 (interactive "e")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2220 (let (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2221 (mouse-set-point event)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2222 (goto-char (posn-point (event-end event)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2223 (if image-dired-track-movement
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2224 (image-dired-track-original-file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2225 (image-dired-toggle-mark-thumb-original-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2226
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2227 (defun image-dired-dired-display-properties ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2228 "Display properties for dired file in the echo area."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2229 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2230 (let* ((file (dired-get-filename))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2231 (file-name (file-name-nondirectory file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2232 (dired-buf (buffer-name (current-buffer)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2233 (props (mapconcat
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2234 'princ
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2235 (image-dired-list-tags file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2236 ", "))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2237 (comment (image-dired-get-comment file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2238 (if file-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2239 (message
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2240 (image-dired-format-properties-string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2241 dired-buf
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2242 file-name
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2243 props
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2244 comment)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2245
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2246 (defvar image-dired-tag-file-list nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2247 "List to store tag-file structure.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2248
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2249 (defvar image-dired-file-tag-list nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2250 "List to store file-tag structure.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2251
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2252 (defvar image-dired-file-comment-list nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2253 "List to store file comments.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2254
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2255 (defun image-dired-add-to-tag-file-list (tag file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2256 "Add relation between TAG and FILE."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2257 (let (curr)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2258 (if image-dired-tag-file-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2259 (if (setq curr (assoc tag image-dired-tag-file-list))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2260 (if (not (member file curr))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2261 (setcdr curr (cons file (cdr curr))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2262 (setcdr image-dired-tag-file-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2263 (cons (list tag file) (cdr image-dired-tag-file-list))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2264 (setq image-dired-tag-file-list (list (list tag file))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2265
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2266 (defun image-dired-add-to-tag-file-lists (tag file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2267 "Helper function used from `image-dired-create-gallery-lists'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2268
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2269 Add TAG to FILE in one list and FILE to TAG in the other.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2270
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2271 Lisp structures look like the following:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2272
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2273 image-dired-file-tag-list:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2274
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2275 ((\"filename1\" \"tag1\" \"tag2\" \"tag3\" ...)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2276 (\"filename2\" \"tag1\" \"tag2\" \"tag3\" ...)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2277 ...)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2278
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2279 image-dired-tag-file-list:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2280
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2281 ((\"tag1\" \"filename1\" \"filename2\" \"filename3\" ...)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2282 (\"tag2\" \"filename1\" \"filename2\" \"filename3\" ...)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2283 ...)"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2284 ;; Add tag to file list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2285 (let (curr)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2286 (if image-dired-file-tag-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2287 (if (setq curr (assoc file image-dired-file-tag-list))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2288 (setcdr curr (cons tag (cdr curr)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2289 (setcdr image-dired-file-tag-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2290 (cons (list file tag) (cdr image-dired-file-tag-list))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2291 (setq image-dired-file-tag-list (list (list file tag))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2292 ;; Add file to tag list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2293 (if image-dired-tag-file-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2294 (if (setq curr (assoc tag image-dired-tag-file-list))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2295 (if (not (member file curr))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2296 (setcdr curr (cons file (cdr curr))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2297 (setcdr image-dired-tag-file-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2298 (cons (list tag file) (cdr image-dired-tag-file-list))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2299 (setq image-dired-tag-file-list (list (list tag file))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2300
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2301 (defun image-dired-add-to-file-comment-list (file comment)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2302 "Helper function used from `image-dired-create-gallery-lists'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2303
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2304 For FILE, add COMMENT to list.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2305
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2306 Lisp structure looks like the following:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2307
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2308 image-dired-file-comment-list:
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2309
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2310 ((\"filename1\" . \"comment1\")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2311 (\"filename2\" . \"comment2\")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2312 ...)"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2313 (if image-dired-file-comment-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2314 (if (not (assoc file image-dired-file-comment-list))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2315 (setcdr image-dired-file-comment-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2316 (cons (cons file comment)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2317 (cdr image-dired-file-comment-list))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2318 (setq image-dired-file-comment-list (list (cons file comment)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2319
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2320 (defun image-dired-create-gallery-lists ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2321 "Create temporary lists used by `image-dired-gallery-generate'."
78183
e82750b21f0c (image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 77585
diff changeset
2322 (image-dired-sane-db-file)
77405
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2323 (let ((buf (find-file image-dired-db-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2324 end beg file row-tags)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2325 (setq image-dired-tag-file-list nil)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2326 (setq image-dired-file-tag-list nil)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2327 (setq image-dired-file-comment-list nil)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2328 (goto-char (point-min))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2329 (while (search-forward-regexp "^." nil t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2330 (end-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2331 (setq end (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2332 (beginning-of-line)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2333 (setq beg (point))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2334 (if (not (search-forward ";" end nil))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2335 (error "Something is really wrong, check format of database"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2336 (setq row-tags (split-string
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2337 (buffer-substring beg end) ";"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2338 (setq file (car row-tags))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2339 (mapc
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2340 (lambda (x)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2341 (if (not (string-match "^comment:\\(.*\\)" x))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2342 (image-dired-add-to-tag-file-lists x file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2343 (image-dired-add-to-file-comment-list file (match-string 1 x))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2344 (cdr row-tags)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2345 (kill-buffer buf))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2346 ;; Sort tag-file list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2347 (setq image-dired-tag-file-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2348 (sort image-dired-tag-file-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2349 (lambda (x y)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2350 (string< (car x) (car y))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2351
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2352 (defun image-dired-hidden-p (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2353 "Return t if image FILE has a \"hidden\" tag."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2354 (let (hidden)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2355 (mapc
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2356 (lambda (tag)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2357 (if (member tag image-dired-gallery-hidden-tags)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2358 (setq hidden t)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2359 (cdr (assoc file image-dired-file-tag-list)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2360 hidden))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2361
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2362 (defun image-dired-gallery-generate ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2363 "Generate gallery pages.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2364 First we create a couple of Lisp structures from the database to make
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2365 it easier to generate, then HTML-files are created in
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2366 `image-dired-gallery-dir'"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2367 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2368 (if (eq 'per-directory image-dired-thumbnail-storage)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2369 (error "Currently, gallery generation is not supported \
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2370 when using per-directory thumbnail file storage"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2371 (image-dired-create-gallery-lists)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2372 (let ((tags image-dired-tag-file-list)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2373 count curr tag index-buf tag-buf
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2374 comment file-tags tag-link tag-link-list)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2375 ;; Make sure gallery root exist
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2376 (if (file-exists-p image-dired-gallery-dir)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2377 (if (not (file-directory-p image-dired-gallery-dir))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2378 (error "Variable image-dired-gallery-dir is not a directory"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2379 (make-directory image-dired-gallery-dir))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2380 ;; Open index file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2381 (setq index-buf (find-file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2382 (format "%s/index.html" image-dired-gallery-dir)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2383 (erase-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2384 (insert "<html>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2385 (insert " <body>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2386 (insert " <h2>Image-Dired Gallery</h2>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2387 (insert (format "<p>\n Gallery generated %s\n <p>\n"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2388 (current-time-string)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2389 (insert " <h3>Tag index</h3>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2390 (setq count 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2391 ;; Pre-generate list of all tag links
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2392 (mapc
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2393 (lambda (curr)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2394 (setq tag (car curr))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2395 (when (not (member tag image-dired-gallery-hidden-tags))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2396 (setq tag-link (format "<a href=\"%d.html\">%s</a>" count tag))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2397 (if tag-link-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2398 (setq tag-link-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2399 (append tag-link-list (list (cons tag tag-link))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2400 (setq tag-link-list (list (cons tag tag-link))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2401 (setq count (1+ count))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2402 tags)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2403 (setq count 1)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2404 ;; Main loop where we generated thumbnail pages per tag
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2405 (mapc
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2406 (lambda (curr)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2407 (setq tag (car curr))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2408 ;; Don't display hidden tags
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2409 (when (not (member tag image-dired-gallery-hidden-tags))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2410 ;; Insert link to tag page in index
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2411 (insert (format " %s<br>\n" (cdr (assoc tag tag-link-list))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2412 ;; Open per-tag file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2413 (setq tag-buf (find-file
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2414 (format "%s/%s.html" image-dired-gallery-dir count)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2415 (erase-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2416 (insert "<html>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2417 (insert " <body>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2418 (insert " <p><a href=\"index.html\">Index</a></p>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2419 (insert (format " <h2>Images with tag &quot;%s&quot;</h2>" tag))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2420 ;; Main loop for files per tag page
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2421 (mapc
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2422 (lambda (file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2423 (when (not (image-dired-hidden-p file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2424 ;; Insert thumbnail with link to full image
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2425 (insert
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2426 (format "<a href=\"%s/%s\"><img src=\"%s/%s\"%s></a>\n"
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2427 image-dired-gallery-image-root-url
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2428 (file-name-nondirectory file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2429 image-dired-gallery-thumb-image-root-url
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2430 (file-name-nondirectory (image-dired-thumb-name file)) file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2431 ;; Insert comment, if any
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2432 (if (setq comment (cdr (assoc file image-dired-file-comment-list)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2433 (insert (format "<br>\n%s<br>\n" comment))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2434 (insert "<br>\n"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2435 ;; Insert links to other tags, if any
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2436 (when (> (length
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2437 (setq file-tags (assoc file image-dired-file-tag-list))) 2)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2438 (insert "[ ")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2439 (mapc
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2440 (lambda (extra-tag)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2441 ;; Only insert if not file name or the main tag
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2442 (if (and (not (equal extra-tag tag))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2443 (not (equal extra-tag file)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2444 (insert
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2445 (format "%s " (cdr (assoc extra-tag tag-link-list))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2446 file-tags)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2447 (insert "]<br>\n"))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2448 (cdr curr))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2449 (insert " <p><a href=\"index.html\">Index</a></p>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2450 (insert " </body>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2451 (insert "</html>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2452 (save-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2453 (kill-buffer tag-buf)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2454 (setq count (1+ count))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2455 tags)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2456 (insert " </body>\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2457 (insert "</html>")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2458 (save-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2459 (kill-buffer index-buf)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2460
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2461 (defun image-dired-kill-buffer-and-window ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2462 "Kill the current buffer and, if possible, also the window."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2463 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2464 (let ((buffer (current-buffer)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2465 (condition-case nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2466 (delete-window (selected-window))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2467 (error nil))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2468 (kill-buffer buffer)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2469
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2470 (defvar image-dired-widget-list nil
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2471 "List to keep track of meta data in edit buffer.")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2472
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2473 ;;;###autoload
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2474 (defun image-dired-dired-edit-comment-and-tags ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2475 "Edit comment and tags of current or marked image files.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2476 Edit comment and tags for all marked image files in an
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2477 easy-to-use form."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2478 (interactive)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2479 (setq image-dired-widget-list nil)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2480 ;; Setup buffer.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2481 (let ((files (dired-get-marked-files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2482 (switch-to-buffer "*Image-Dired Edit Meta Data*")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2483 (kill-all-local-variables)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2484 (make-local-variable 'widget-example-repeat)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2485 (let ((inhibit-read-only t))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2486 (erase-buffer))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2487 (remove-overlays)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2488 ;; Some help for the user.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2489 (widget-insert
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2490 "\nEdit comments and tags for each image. Separate multiple tags
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2491 with a comma. Move forward between fields using TAB or RET.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2492 Move to the previous field using backtab (S-TAB). Save by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2493 activating the Save button at the bottom of the form or cancel
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2494 the operation by activating the Cancel button.\n\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2495 ;; Here comes all images and a comment and tag field for each
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2496 ;; image.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2497 (let (thumb-file img comment-widget tag-widget)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2498
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2499 (dolist (file files)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2500
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2501 (setq thumb-file (image-dired-thumb-name file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2502 img (create-image thumb-file))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2503
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2504 (insert-image img)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2505 (widget-insert "\n\nComment: ")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2506 (setq comment-widget
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2507 (widget-create 'editable-field
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2508 :size 60
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2509 :format "%v "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2510 :value (or (image-dired-get-comment file) "")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2511 (widget-insert "\nTags: ")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2512 (setq tag-widget
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2513 (widget-create 'editable-field
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2514 :size 60
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2515 :format "%v "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2516 :value (or (mapconcat
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2517 (lambda (tag)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2518 tag)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2519 (image-dired-list-tags file)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2520 ",") "")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2521 ;; Save information in all widgets so that we can use it when
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2522 ;; the user saves the form.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2523 (setq image-dired-widget-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2524 (append image-dired-widget-list
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2525 (list (list file comment-widget tag-widget))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2526 (widget-insert "\n\n")))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2527
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2528 ;; Footer with Save and Cancel button.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2529 (widget-insert "\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2530 (widget-create 'push-button
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2531 :notify
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2532 (lambda (&rest ignore)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2533 (image-dired-save-information-from-widgets)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2534 (bury-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2535 (message "Done."))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2536 "Save")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2537 (widget-insert " ")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2538 (widget-create 'push-button
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2539 :notify
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2540 (lambda (&rest ignore)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2541 (bury-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2542 (message "Operation canceled."))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2543 "Cancel")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2544 (widget-insert "\n")
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2545 (use-local-map widget-keymap)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2546 (widget-setup)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2547 ;; Jump to the first widget.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2548 (widget-forward 1)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2549
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2550 (defun image-dired-save-information-from-widgets ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2551 "Save information found in `image-dired-widget-list'.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2552 Use the information in `image-dired-widget-list' to save comments and
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2553 tags to their respective image file. Internal function used by
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2554 `image-dired-dired-edit-comment-and-tags'."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2555 (let (file comment tag-string tag-list lst)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2556 (image-dired-write-comments
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2557 (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2558 (lambda (widget)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2559 (setq file (car widget)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2560 comment (widget-value (cadr widget)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2561 (cons file comment))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2562 image-dired-widget-list))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2563 (image-dired-write-tags
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2564 (dolist (widget image-dired-widget-list lst)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2565 (setq file (car widget)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2566 tag-string (widget-value (car (cddr widget)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2567 tag-list (split-string tag-string ","))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2568 (dolist (tag tag-list)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2569 (push (cons file tag) lst))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2570
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2571 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2572 ;;;;;;;;; TEST-SECTION ;;;;;;;;;;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2573 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2574
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2575 ;; (defvar image-dired-dir-max-size 12300000)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2576
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2577 ;; (defun image-dired-test-clean-old-files ()
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2578 ;; "Clean `image-dired-dir' from old thumbnail files.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2579 ;; \"Oldness\" measured using last access time. If the total size of all
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2580 ;; thumbnail files in `image-dired-dir' is larger than 'image-dired-dir-max-size',
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2581 ;; old files are deleted until the max size is reached."
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2582 ;; (let* ((files
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2583 ;; (sort
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2584 ;; (mapcar
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2585 ;; (lambda (f)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2586 ;; (let ((fattribs (file-attributes f)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2587 ;; ;; Get last access time and file size
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2588 ;; `(,(nth 4 fattribs) ,(nth 7 fattribs) ,f)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2589 ;; (directory-files (image-dired-dir) t ".+\.thumb\..+$"))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2590 ;; ;; Sort function. Compare time between two files.
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2591 ;; '(lambda (l1 l2)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2592 ;; (time-less-p (car l1) (car l2)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2593 ;; (dirsize (apply '+ (mapcar (lambda (x) (cadr x)) files))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2594 ;; (while (> dirsize image-dired-dir-max-size)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2595 ;; (y-or-n-p
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2596 ;; (format "Size of thumbnail directory: %d, delete old file %s? "
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2597 ;; dirsize (cadr (cdar files))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2598 ;; (delete-file (cadr (cdar files)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2599 ;; (setq dirsize (- dirsize (car (cdar files))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2600 ;; (setq files (cdr files)))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2601
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2602 ;;;;;;;;;;;;;;;;;;;;;;,
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2603
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2604 ;; (defun dired-speedbar-buttons (dired-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2605 ;; (when (and (boundp 'image-dired-use-speedbar)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2606 ;; image-dired-use-speedbar)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2607 ;; (let ((filename (with-current-buffer dired-buffer
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2608 ;; (dired-get-filename))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2609 ;; (when (and (not (string-equal filename (buffer-string)))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2610 ;; (string-match (image-file-name-regexp) filename))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2611 ;; (erase-buffer)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2612 ;; (insert (propertize
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2613 ;; filename
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2614 ;; 'display
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2615 ;; (image-dired-get-thumbnail-image filename)))))))
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2616
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2617 ;; (setq image-dired-use-speedbar t)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2618
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2619 (provide 'image-dired)
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2620
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2621 ;; arch-tag: 9d11411d-331f-4380-8b44-8adfe3a0343e
7b2ac92c7dd7 Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff changeset
2622 ;;; image-dired.el ends here