Mercurial > emacs
annotate lisp/image-dired.el @ 79656:b3ebc6fbb476
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 29 Dec 2007 19:26:14 +0000 |
parents | 7a23b4f8846e |
children | 73661ddc7ac7 |
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 "%s"</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 |