Mercurial > emacs
annotate lisp/image-dired.el @ 109692:58882317bf04
* PROBLEMS: Mention problem with Cygwin 1.5.19.
author | Ken Brown <kbrown@cornell.edu> |
---|---|
date | Tue, 27 Jul 2010 15:50:01 -0400 |
parents | ed16fdd2685a |
children | d835100c3e8b f773f82f2c63 |
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 ;; |
106815 | 3 ;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
77405
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 |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94268
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
77405
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 |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94268
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94268
diff
changeset
|
14 ;; (at your option) any later version. |
77405
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 |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94268
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
23 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
24 ;;; Commentary: |
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 ;; BACKGROUND |
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 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 ;; 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
|
30 ;; 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
|
31 ;; 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
|
32 ;; 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
|
33 ;; 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
|
34 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
35 ;; 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
|
36 ;; `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
|
37 ;; 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
|
38 ;; 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
|
39 ;; 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
|
40 ;; 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
|
41 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 ;; 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
|
43 ;; 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
|
44 ;; 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
|
45 ;; 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
|
46 ;; 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
|
47 ;; 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
|
48 ;; 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
|
49 ;; code from there though... :) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 ;; `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
|
52 ;; 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
|
53 ;; ~/.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
|
54 ;; 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
|
55 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 ;; 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
|
57 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 ;; PREREQUISITES |
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 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 ;; * 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
|
63 ;; 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
|
64 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 ;; * 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
|
66 ;; needed. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 ;; * 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
|
69 ;; 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
|
70 ;; 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
|
71 ;; 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
|
72 ;; 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
|
73 ;; "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
|
74 ;; `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
|
75 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 ;; USAGE |
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 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 ;; 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
|
81 ;; 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
|
82 ;; Thumbnails RET'. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 ;; 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
|
85 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 ;; 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
|
87 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 ;; LIMITATIONS |
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 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 ;; * 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
|
92 ;; 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
|
93 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 ;; * 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
|
95 ;; 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
|
96 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 ;; TODO |
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 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 ;; * 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
|
102 ;; storage. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 ;; * 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
|
105 ;; EXIF data. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 ;; * 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
|
108 ;; error message. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 ;; * 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
|
111 ;; files. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 ;; * 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
|
114 ;; for thumbnail directory. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 ;; * 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
|
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 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
|
119 ;; "image fit" might be enough) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
121 ;; * 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
|
122 ;; monochrome etc). |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
123 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 ;; * Asynchronous creation of thumbnails. |
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 ;; * 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
|
127 ;; 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
|
128 ;; 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
|
129 ;; 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
|
130 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 ;; * 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
|
132 ;; 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
|
133 ;; 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
|
134 ;; 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
|
135 ;; `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
|
136 ;; 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
|
137 ;; `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
|
138 ;; `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
|
139 ;; 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
|
140 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 ;; * 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
|
142 ;; 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
|
143 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 ;; * 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
|
145 ;; less ugly. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 ;; * 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
|
148 ;; 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
|
149 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 ;; * More/better documentation |
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 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 ;;; Code: |
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 (require 'dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 (require 'format-spec) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 (require 'widget) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 (eval-when-compile |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
160 (require 'wid-edit)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 (defgroup image-dired nil |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 "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
|
164 :prefix "image-dired-" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
165 :group 'multimedia) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
167 (defcustom image-dired-dir (locate-user-emacs-file "image-dired/") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
168 "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
|
169 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
170 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
172 (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
|
173 "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
|
174 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
|
175 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
|
176 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
|
177 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
|
178 \".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
|
179 \"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
|
180 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
|
181 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
|
182 :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
|
183 (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
|
184 (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
|
185 (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
|
186 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
187 |
81347
2a989ff22a03
(image-dired-dir): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
77585
diff
changeset
|
188 (defcustom image-dired-db-file |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
189 (locate-user-emacs-file "image-dired/.image-dired_db") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
190 "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
|
191 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
192 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
193 |
81347
2a989ff22a03
(image-dired-dir): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
77585
diff
changeset
|
194 (defcustom image-dired-temp-image-file |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
195 (locate-user-emacs-file "image-dired/.image-dired_temp") |
77405
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 |
81347
2a989ff22a03
(image-dired-dir): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
77585
diff
changeset
|
200 (defcustom image-dired-gallery-dir |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
201 (locate-user-emacs-file "image-dired/.image-dired_gallery") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
202 "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
|
203 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
|
204 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
|
205 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
206 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
207 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 (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
|
209 "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
|
210 "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
|
211 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
|
212 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
|
213 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
214 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
216 (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
|
217 "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
|
218 "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
|
219 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
|
220 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
|
221 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
222 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
223 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
224 (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
|
225 "convert" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
226 "Executable used to create thumbnail. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
227 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
|
228 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
229 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
230 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
231 (defcustom image-dired-cmd-create-thumbnail-options |
96822
522e28ddd67f
(image-dired-cmd-create-thumbnail-options)
Juri Linkov <juri@jurta.org>
parents:
95841
diff
changeset
|
232 "%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
|
233 "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
|
234 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
|
235 `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
|
236 `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
|
237 %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
|
238 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
|
239 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
240 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
241 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
242 (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
|
243 "convert" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
244 "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
|
245 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
|
246 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
247 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
248 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
249 (defcustom image-dired-cmd-create-temp-image-options |
96822
522e28ddd67f
(image-dired-cmd-create-thumbnail-options)
Juri Linkov <juri@jurta.org>
parents:
95841
diff
changeset
|
250 "%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
|
251 "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
|
252 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
|
253 `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
|
254 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
|
255 %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
|
256 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
|
257 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
258 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
259 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
260 (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
|
261 "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
|
262 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
|
263 :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
|
264 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
265 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
266 (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
|
267 "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
|
268 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
|
269 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
|
270 :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
|
271 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
272 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
273 (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
|
274 (concat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
275 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
|
276 "-size %wx%h \"%f\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
277 (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
|
278 (concat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
279 "-set \"Thumb::MTime\" \"%m\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
280 "-set \"Thumb::URI\" \"file://%f\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
281 "-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
|
282 "-set \"Software\" \"" (emacs-version) "\" ")) |
96822
522e28ddd67f
(image-dired-cmd-create-thumbnail-options)
Juri Linkov <juri@jurta.org>
parents:
95841
diff
changeset
|
283 "-thumbnail \"%wx%h>\" png:\"%t\"" |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
284 (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
|
285 (concat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
286 " ; " 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
|
287 (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
|
288 " ; mv %q %t"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
289 (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
|
290 (concat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
291 (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
|
292 " ; cp %t %q") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
293 " ; " 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
|
294 "-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
|
295 "-text b \"Software\" \"" (emacs-version) "\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
296 ;; "-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
|
297 ;; "-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
|
298 ;; "-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
|
299 "-text b \"Thumb::MTime\" \"%m\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
300 ;; "-text b \"Thumb::Size\" \"%b\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
301 "-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
|
302 "%q %t" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
303 " ; rm %q"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
304 "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
|
305 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
306 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
307 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
308 (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
|
309 "mogrify" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
310 "Executable used to rotate thumbnail. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
311 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
|
312 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
313 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
314 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
315 (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
|
316 "%p -rotate %d \"%t\"" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
317 "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
|
318 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
|
319 `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
|
320 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
|
321 \(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
|
322 of the thumbnail file." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
323 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
324 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
325 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
326 (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
|
327 "jpegtran" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
328 "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
|
329 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
|
330 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
331 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
332 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
333 (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
|
334 "%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
|
335 "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
|
336 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
|
337 `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
|
338 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
|
339 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
|
340 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
|
341 `image-dired-temp-image-file'." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
342 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
343 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
344 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
345 (defcustom image-dired-temp-rotate-image-file |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
346 (locate-user-emacs-file "image-dired/.image-dired_rotate_temp") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
347 "Temporary file for rotate operations." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
348 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
349 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
350 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
351 (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
|
352 "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
|
353 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
|
354 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
|
355 :type 'boolean |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
356 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
357 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
358 (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
|
359 "exiftool" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
360 "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
|
361 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
|
362 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
363 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
364 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
365 (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
|
366 "%p -%t=\"%v\" \"%f\"" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
367 "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
|
368 Available options are %p which is replaced by |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
369 `image-dired-cmd-write-exif-data-program', %f which is replaced by |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
370 the image file name, %t which is replaced by the tag name and %v |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
371 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
|
372 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
373 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
374 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
375 (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
|
376 "exiftool" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
377 "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
|
378 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
|
379 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
380 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
381 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
382 (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
|
383 "%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
|
384 "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
|
385 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
|
386 `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
|
387 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
|
388 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
389 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
390 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
391 (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
|
392 (list "private" "hidden" "pending") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
393 "List of \"hidden\" tags. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
394 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
|
395 :type '(repeat string) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
396 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
397 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
398 (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
|
399 "Size of thumbnails, in pixels. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
400 This is the default size for both `image-dired-thumb-width' |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
401 and `image-dired-thumb-height'." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
402 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
403 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
404 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
405 (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
|
406 "Width of thumbnails, in pixels." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
407 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
408 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
409 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
410 (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
|
411 "Height of thumbnails, in pixels." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
412 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
413 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
414 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
415 (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
|
416 "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
|
417 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
418 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
419 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
420 (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
|
421 "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
|
422 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
|
423 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
424 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
425 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
426 (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
|
427 "Default method for line-up of thumbnails in thumbnail buffer. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
428 Used by `image-dired-display-thumbs' and other functions that needs |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
429 to line-up thumbnails. Dynamic means to use the available width of |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
430 the window containing the thumbnail buffer, Fixed means to use |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
431 `image-dired-thumbs-per-row', Interactive is for asking the user, |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
432 and No line-up means that no automatic line-up will be done." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
433 :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
|
434 (const :tag "Dynamic" dynamic) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
435 (const :tag "Fixed" fixed) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
436 (const :tag "Interactive" interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
437 (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
|
438 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
439 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
440 (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
|
441 "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
|
442 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
443 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
444 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
445 (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
|
446 "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
|
447 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
|
448 completely fit)." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
449 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
450 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
451 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
452 (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
|
453 "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
|
454 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
|
455 completely fit)." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
456 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
457 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
458 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
459 (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
|
460 "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
|
461 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
|
462 `image-dired-toggle-movement-tracking'." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
463 :type 'boolean |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
464 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
465 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
466 (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
|
467 "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
|
468 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
|
469 `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
|
470 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
|
471 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
|
472 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
|
473 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
|
474 :type 'boolean |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
475 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
476 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
477 (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
|
478 "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
|
479 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
|
480 `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
|
481 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
|
482 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
|
483 :type 'boolean |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
484 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
485 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
486 (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
|
487 "Display format for thumbnail properties. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
488 %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
|
489 \(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
|
490 with the comment." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
491 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
492 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
493 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
494 (defcustom image-dired-external-viewer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
495 ;; 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
|
496 ;; dired-view-command-alist. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
497 (cond ((executable-find "display")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
498 ((executable-find "xli")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
499 ((executable-find "qiv") "qiv -t")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
500 "Name of external viewer. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
501 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
|
502 `image-dired-thumbnail-mode'." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
503 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
504 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
505 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
506 (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
|
507 "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
|
508 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
|
509 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
510 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
511 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
512 (defcustom image-dired-show-all-from-dir-max-files 50 |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
513 "Maximum number of files to show using `image-dired-show-all-from-dir' |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
514 before warning the user." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
515 :type 'integer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
516 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
517 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
518 (defun image-dired-dir () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
519 "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
|
520 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
|
521 (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
|
522 (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
|
523 (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
|
524 (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
|
525 (message "Creating thumbnails directory")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
526 image-dired-dir)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
527 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
528 (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
|
529 "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
|
530 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
531 (let ((i `(image :type ,type |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
532 :file ,file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
533 :relief ,relief |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
534 :margin ,margin))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
535 (insert-image i))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
536 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
537 (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
|
538 "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
|
539 (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
|
540 (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
|
541 (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
|
542 (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
|
543 (<= (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
|
544 (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
|
545 (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
|
546 (create-image thumb-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
547 ;; (list 'image :type 'jpeg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
548 ;; :file thumb-file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
549 ;; :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
|
550 )) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
551 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
552 (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
|
553 associated-dired-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
554 "Insert thumbnail image FILE. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
555 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
|
556 (let (beg end) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
557 (setq beg (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
558 (image-dired-insert-image file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
559 ;; 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
|
560 (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
|
561 'png 'jpeg) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
562 image-dired-thumb-relief |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
563 image-dired-thumb-margin) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
564 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
565 (add-text-properties |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
566 beg end |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
567 (list 'image-dired-thumbnail t |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
568 '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
|
569 '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
|
570 '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
|
571 'mouse-face 'highlight |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
572 '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
|
573 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
574 (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
|
575 "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
|
576 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
|
577 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
|
578 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
|
579 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
|
580 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
|
581 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
|
582 (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
|
583 (expand-file-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
584 (concat "~/.thumbnails/normal/" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
585 (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
|
586 ((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
|
587 (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
|
588 (md5-hash |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
589 ;; 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
|
590 ;; 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
|
591 ;; "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
|
592 ;; be used here. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
593 (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
|
594 (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
|
595 (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
|
596 (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
|
597 (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
|
598 (file-name-extension f)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
599 ((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
|
600 (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
|
601 (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
|
602 (file-name-directory f) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
603 (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
|
604 (file-name-extension f)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
605 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
606 (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
|
607 "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
|
608 (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
|
609 (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
|
610 (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
|
611 original-file))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
612 (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
|
613 thumbnail-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
614 (command |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
615 (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
616 (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
|
617 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
|
618 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
|
619 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
620 (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
|
621 (cons ?w width) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
622 (cons ?h height) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
623 (cons ?m modif-time) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
624 (cons ?f original-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
625 (cons ?q thumbnail-nq8-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
626 (cons ?t thumbnail-file)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
627 thumbnail-dir) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
628 (when (not (file-exists-p |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
629 (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
|
630 (message "Creating thumbnail directory.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
631 (make-directory thumbnail-dir)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
632 (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
|
633 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
634 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
635 (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
|
636 "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
|
637 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
638 (dired-map-over-marks |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
639 (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
|
640 (image-file (dired-get-filename)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
641 (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
|
642 overlay) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
643 ;; 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
|
644 (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
|
645 ;; 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
|
646 (overlays-in (point) (1+ (point))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
647 (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
|
648 (setq |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
649 overlay |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
650 (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
|
651 (overlays-in (point) (1+ (point))))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
652 (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
|
653 (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
|
654 nil) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
655 (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
|
656 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
657 (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
|
658 "Relocate existing thumbnail overlays in dired buffer after reverting. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
659 Move them to their corresponding files if they still exist. |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
660 Otherwise, delete overlays." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
661 (mapc (lambda (overlay) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
662 (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
|
663 (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
|
664 (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
|
665 (if image-pos |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
666 (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
|
667 (delete-overlay overlay))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
668 (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
|
669 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
670 (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
|
671 "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
|
672 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
673 (dired-next-line 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
674 (image-dired-display-thumbs |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
675 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
|
676 (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
|
677 (image-dired-dired-display-properties))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
678 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
679 (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
|
680 "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
|
681 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
682 (dired-previous-line 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
683 (image-dired-display-thumbs |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
684 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
|
685 (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
|
686 (image-dired-dired-display-properties))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
687 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
688 (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
|
689 "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
|
690 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
691 (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
|
692 (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
|
693 (message "Append browsing %s." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
694 (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
|
695 "on" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
696 "off"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
697 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
698 (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
|
699 "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
|
700 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
701 (dired-mark 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
702 (image-dired-display-thumbs |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
703 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
|
704 (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
|
705 (image-dired-dired-display-properties))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
706 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
707 (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
|
708 "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
|
709 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
710 (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
|
711 (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
|
712 (message "Dired display properties %s." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
713 (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
|
714 "on" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
715 "off"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
716 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
717 (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
|
718 "Image-Dired's thumbnail buffer.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
719 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
720 (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
|
721 "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
|
722 (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
|
723 (with-current-buffer buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
724 (setq buffer-read-only t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
725 (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
|
726 (image-dired-thumbnail-mode))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
727 buf)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
728 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
729 (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
|
730 "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
|
731 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
732 (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
|
733 "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
|
734 (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
|
735 (with-current-buffer buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
736 (setq buffer-read-only t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
737 (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
|
738 (image-dired-display-image-mode))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
739 buf)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
740 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
741 (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
|
742 "Saved window configuration.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
743 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
744 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
745 (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
|
746 "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
|
747 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
748 Convenience command that: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
749 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
750 - Opens dired in folder DIR |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
751 - 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
|
752 - Set `truncate-lines' to t |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
753 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
754 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
|
755 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
|
756 \\[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
|
757 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
758 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
|
759 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
760 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
|
761 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
|
762 (interactive "DDirectory: \nP") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
763 (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
|
764 (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
|
765 (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
|
766 (current-window-configuration)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
767 (dired dir) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
768 (delete-other-windows) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
769 (when (not arg) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
770 (split-window-horizontally) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
771 (setq truncate-lines t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
772 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
773 (other-window 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
774 (switch-to-buffer buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
775 (split-window-vertically) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
776 (other-window 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
777 (switch-to-buffer buf2) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
778 (other-window -2))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
779 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
780 (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
|
781 "Restore window configuration. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
782 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
|
783 `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
|
784 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
785 (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
|
786 (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
|
787 (message "No saved window configuration"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
788 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
789 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
790 (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
|
791 "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
|
792 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
|
793 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
|
794 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
|
795 another one). |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
796 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
797 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
|
798 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
|
799 `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
|
800 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
801 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
|
802 instead of erasing it first. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
803 |
107517
ed16fdd2685a
Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
804 Optional argument DO-NOT-POP controls if `pop-to-buffer' should be |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
805 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
|
806 `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
|
807 `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
|
808 `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
|
809 thumbnail buffer to be selected." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
810 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
811 (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
|
812 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
|
813 (if arg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
814 (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
|
815 (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
|
816 (setq dired-buf (current-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
817 (with-current-buffer buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
818 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
819 (if (not append) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
820 (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
821 (goto-char (point-max))) |
84874
e971b563a3eb
(image-dired-display-thumbs, image-dired-remove-tag,
Juanma Barranquero <lekktu@gmail.com>
parents:
82140
diff
changeset
|
822 (mapc |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
823 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
824 (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
|
825 (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
|
826 (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
|
827 (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
|
828 (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
|
829 files)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
830 (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
|
831 (image-dired-line-up-dynamic)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
832 ((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
|
833 (image-dired-line-up)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
834 ((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
|
835 (image-dired-line-up-interactive)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
836 ((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
|
837 nil) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
838 (t |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
839 (image-dired-line-up-dynamic)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
840 (if do-not-pop |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
841 (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
|
842 (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
|
843 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
844 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
845 (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
|
846 "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
|
847 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
|
848 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
|
849 displayed." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
850 (interactive "DDir: ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
851 (dired dir) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
852 (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
|
853 (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
|
854 (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
|
855 (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
|
856 (y-or-n-p |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
857 (format |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
858 "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
|
859 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
|
860 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
861 (image-dired-display-thumbs) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
862 (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
|
863 (message "Cancelled.")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
864 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
865 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
866 (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
|
867 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
868 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
869 (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
|
870 |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
871 (defun image-dired-sane-db-file () |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
872 "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
|
873 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
|
874 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
|
875 (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
|
876 (let (dir buf) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
877 (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
|
878 image-dired-db-file))) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
879 (make-directory dir t)) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
880 (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
|
881 image-dired-db-file)) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
882 (write-file image-dired-db-file)) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
883 (kill-buffer buf) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
884 (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
|
885 (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
|
886 |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
887 (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
|
888 "Write file tags to database. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
889 Write each file and tag in FILE-TAGS to the database. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
890 FILE-TAGS is an alist in the following form: |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
891 ((FILE . TAG) ... )" |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
892 (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
|
893 (let (end file tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
894 (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
|
895 (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
|
896 (dolist (elt file-tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
897 (setq file (car elt) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
898 tag (cdr elt)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
899 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
900 (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
|
901 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
902 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
903 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
904 (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
|
905 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
906 (insert (format ";%s" tag)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
907 (goto-char (point-max)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
908 (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
|
909 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
910 (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
|
911 "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
|
912 (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
|
913 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
914 (let (end buf start) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
915 (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
|
916 (if (not (listp files)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
917 (if (stringp files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
918 (setq files (list files)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
919 (error "Files must be a string or a list of strings!"))) |
84874
e971b563a3eb
(image-dired-display-thumbs, image-dired-remove-tag,
Juanma Barranquero <lekktu@gmail.com>
parents:
82140
diff
changeset
|
920 (mapc |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
921 (lambda (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
922 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
923 (when (search-forward-regexp |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
924 (format "^%s" file) nil t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
925 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
926 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
927 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
928 (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
|
929 (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
|
930 ;; 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
|
931 ;; 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
|
932 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
933 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
934 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
935 (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
|
936 (kill-line 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
937 ;; 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
|
938 (when (and (eobp) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
939 (looking-at "^$")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
940 (delete-backward-char 1)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
941 files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
942 (save-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
943 (kill-buffer buf)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
944 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
945 (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
|
946 "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
|
947 (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
|
948 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
949 (let (end buf (tags "")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
950 (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
|
951 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
952 (when (search-forward-regexp |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
953 (format "^%s" file) nil t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
954 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
955 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
956 (beginning-of-line) |
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 (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
|
959 (if (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
960 (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
|
961 (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
|
962 (kill-buffer buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
963 (split-string tags ";")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
964 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
965 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
966 (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
|
967 "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
|
968 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
969 (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
|
970 curr-file files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
971 (if arg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
972 (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
|
973 (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
|
974 (image-dired-write-tags |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
975 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
976 (lambda (x) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
977 (cons x tag)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
978 files)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
979 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
980 (defun image-dired-tag-thumbnail () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
981 "Tag current thumbnail." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
982 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
983 (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
|
984 (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
|
985 (image-dired-update-property |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
986 '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
|
987 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
988 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
989 (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
|
990 "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
|
991 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
|
992 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
993 (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
|
994 files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
995 (if arg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
996 (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
|
997 (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
|
998 (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
|
999 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1000 (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
|
1001 "Remove tag from thumbnail." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1002 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1003 (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
|
1004 (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
|
1005 (image-dired-update-property |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1006 '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
|
1007 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1008 (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
|
1009 "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
|
1010 (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
|
1011 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1012 (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
|
1013 "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
|
1014 (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
|
1015 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1016 (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
|
1017 "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
|
1018 (get-window-with-predicate |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1019 (lambda (window) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1020 (equal (window-buffer window) buf)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1021 nil t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1022 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1023 (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
|
1024 "Track the original file in the associated dired buffer. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1025 See documentation for `image-dired-toggle-movement-tracking'. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1026 Interactive use only useful if `image-dired-track-movement' is nil." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1027 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1028 (let ((old-buf (current-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1029 (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
|
1030 (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
|
1031 (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
|
1032 (set-buffer dired-buf) |
94268
4cca1963bd37
(image-dired-track-original-file)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
1033 (if (not (dired-goto-file file-name)) |
77405
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 (set-window-point |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1036 (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
|
1037 (set-buffer old-buf)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1038 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1039 (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
|
1040 "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
|
1041 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
|
1042 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
|
1043 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
|
1044 position in the other buffer." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1045 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1046 (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
|
1047 (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
|
1048 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1049 (defun image-dired-track-thumbnail () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1050 "Track current dired file's thumb in `image-dired-thumbnail-buffer'. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1051 This is almost the same as what `image-dired-track-original-file' does, |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1052 but the other way around." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1053 (let ((file (dired-get-filename)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1054 (old-buf (current-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1055 prop-val found) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1056 (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
|
1057 (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
|
1058 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1059 (while (and (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1060 (not found)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1061 (if (and (setq prop-val |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1062 (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
|
1063 (string= prop-val file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1064 (setq found t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1065 (if (not found) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1066 (forward-char 1))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1067 (when found |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1068 (set-window-point |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1069 (image-dired-thumbnail-window) (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1070 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1071 (set-buffer old-buf)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1072 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1073 (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
|
1074 "Call `dired-next-line', then track thumbnail. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1075 This can safely replace `dired-next-line'. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1076 With prefix argument, move ARG lines." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1077 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1078 (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
|
1079 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1080 (image-dired-track-thumbnail))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1081 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1082 (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
|
1083 "Call `dired-previous-line', then track thumbnail. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1084 This can safely replace `dired-previous-line'. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1085 With prefix argument, move ARG lines." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1086 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1087 (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
|
1088 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1089 (image-dired-track-thumbnail))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1090 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1091 (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
|
1092 "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
|
1093 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
|
1094 image." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1095 (interactive "p") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1096 (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
|
1097 (dotimes (i steps) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1098 (if (and (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1099 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1100 (forward-char) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1101 (while (and (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1102 (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
|
1103 (forward-char)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1104 (setq pos (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1105 (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
|
1106 (goto-char pos) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1107 (error "At last image")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1108 (when image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1109 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1110 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1111 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1112 (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
|
1113 "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
|
1114 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
|
1115 image." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1116 (interactive "p") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1117 (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
|
1118 (dotimes (i steps) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1119 (if (and (not (bobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1120 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1121 (backward-char) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1122 (while (and (not (bobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1123 (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
|
1124 (backward-char)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1125 (setq pos (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1126 (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
|
1127 (goto-char pos) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1128 (error "At first image")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1129 (when image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1130 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1131 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1132 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1133 (defun image-dired-next-line () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1134 "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
|
1135 (interactive) |
85478
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85037
diff
changeset
|
1136 (forward-line 1) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1137 ;; 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
|
1138 (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
|
1139 (image-dired-backward-image)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1140 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1141 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1142 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1143 |
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 (defun image-dired-previous-line () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1146 "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
|
1147 (interactive) |
85478
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85037
diff
changeset
|
1148 (forward-line -1) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1149 ;; 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
|
1150 ;; 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
|
1151 ;; 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
|
1152 ;; 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
|
1153 (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
|
1154 (image-dired-backward-image)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1155 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1156 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1157 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1158 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1159 (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
|
1160 "Format display properties. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1161 BUF is the associated dired buffer, FILE is the original image file |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1162 name, PROPS is a list of tags and COMMENT is the image file's |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1163 comment." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1164 (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1165 image-dired-display-properties-format |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1166 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1167 (cons ?b (or buf "")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1168 (cons ?f file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1169 (cons ?t (or (princ props) "")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1170 (cons ?c (or comment ""))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1171 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1172 (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
|
1173 "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
|
1174 (if (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1175 (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
|
1176 (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
|
1177 (props (mapconcat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1178 'princ |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1179 (get-text-property (point) 'tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1180 ", ")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1181 (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
|
1182 (if file-name |
87096
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85478
diff
changeset
|
1183 (message "%s" |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1184 (image-dired-format-properties-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1185 dired-buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1186 file-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1187 props |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1188 comment)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1189 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1190 (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
|
1191 "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
|
1192 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1193 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1194 (not (looking-at "^ .*$")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1195 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1196 (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
|
1197 "Modify mark in dired buffer. |
94268
4cca1963bd37
(image-dired-track-original-file)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
1198 COMMAND is one of 'mark for marking file in dired, 'unmark for |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1199 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
|
1200 dired." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1201 (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
|
1202 (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
|
1203 (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
|
1204 (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
|
1205 (with-current-buffer dired-buf |
87096
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85478
diff
changeset
|
1206 (message "%s" file-name) |
94268
4cca1963bd37
(image-dired-track-original-file)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
1207 (if (dired-goto-file file-name) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1208 (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
|
1209 ((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
|
1210 ((eq command 'toggle) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1211 (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
|
1212 (dired-unmark 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1213 (dired-mark 1))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1214 ((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
|
1215 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1216 (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
|
1217 "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
|
1218 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1219 (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
|
1220 (image-dired-forward-image)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1221 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1222 (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
|
1223 "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
|
1224 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1225 (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
|
1226 (image-dired-forward-image)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1227 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1228 (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
|
1229 "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
|
1230 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1231 (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
|
1232 (image-dired-forward-image)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1233 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1234 (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
|
1235 "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
|
1236 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1237 (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
|
1238 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1239 (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
|
1240 "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
|
1241 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
|
1242 `image-dired-track-original-file'." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1243 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1244 (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
|
1245 window frame) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1246 (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
|
1247 (if window |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1248 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1249 (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
|
1250 (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
|
1251 (select-window window)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1252 (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
|
1253 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1254 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1255 (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
|
1256 "Jump to thumbnail buffer." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1257 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1258 (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
|
1259 frame) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1260 (if window |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1261 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1262 (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
|
1263 (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
|
1264 (select-window window)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1265 (message "Thumbnail buffer not visible")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1266 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1267 (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
|
1268 "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
|
1269 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1270 (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
|
1271 "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
|
1272 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1273 (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
|
1274 "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
|
1275 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1276 (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
|
1277 "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
|
1278 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1279 ;; Keys |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1280 (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
|
1281 (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
|
1282 (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
|
1283 (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
|
1284 (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
|
1285 (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
|
1286 (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
|
1287 (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
|
1288 |
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 "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
|
1290 (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
|
1291 '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
|
1292 (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
|
1293 (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
|
1294 (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
|
1295 (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
|
1296 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1297 ;; add line-up map |
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 "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
|
1299 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1300 ;; 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
|
1301 (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
|
1302 ;; "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
|
1303 (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
|
1304 ;; "i" for "interactive" |
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 "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
|
1306 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1307 ;; add tag map |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1308 (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
|
1309 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1310 ;; 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
|
1311 (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
|
1312 ;; "r" for "remove" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1313 (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
|
1314 |
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-map "\C-m" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1316 '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
|
1317 (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
|
1318 'image-dired-thumbnail-display-external) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1319 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1320 (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
|
1321 (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
|
1322 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1323 (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
|
1324 (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
|
1325 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1326 (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
|
1327 '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
|
1328 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1329 (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
|
1330 (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
|
1331 '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
|
1332 (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
|
1333 (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
|
1334 (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
|
1335 (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
|
1336 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1337 ;; Mouse |
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 [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
|
1339 (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
|
1340 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1341 ;; 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
|
1342 ;; 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
|
1343 ;; 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
|
1344 ;; 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
|
1345 ;; 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
|
1346 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1347 (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
|
1348 (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
|
1349 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1350 ;; Menu |
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 [menu-bar image-dired] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1352 (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
|
1353 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1354 (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
|
1355 [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
|
1356 '("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
|
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-delete-char] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1360 '("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
|
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-tag-thumbnail-remove] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1364 '("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
|
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] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1368 '("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
|
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-comment-thumbnail] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1372 '("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
|
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-refresh-thumb] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1376 '("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
|
1377 (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
|
1378 [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
|
1379 '("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
|
1380 (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
|
1381 [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
|
1382 '("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
|
1383 |
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-rotate-thumbnail-left] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1386 '("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
|
1387 (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
|
1388 [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
|
1389 '("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
|
1390 |
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-original-left] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1393 '("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
|
1394 (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
|
1395 [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
|
1396 '("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
|
1397 |
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-toggle-movement-tracking] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1400 '("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
|
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-jump-original-dired-buffer] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1404 '("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
|
1405 (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
|
1406 [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
|
1407 '("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
|
1408 |
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-flag-thumb-original-file] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1411 '("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
|
1412 (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
|
1413 [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
|
1414 '("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
|
1415 (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
|
1416 [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
|
1417 '("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
|
1418 |
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-thumbnail-display-external] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1421 '("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
|
1422 (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
|
1423 [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
|
1424 '("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
|
1425 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1426 (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
|
1427 "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
|
1428 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1429 (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
|
1430 "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
|
1431 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1432 ;; Keys |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1433 (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
|
1434 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1435 (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
|
1436 '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
|
1437 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1438 (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
|
1439 '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
|
1440 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1441 ;; Menu |
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 [menu-bar image-dired] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1443 (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
|
1444 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1445 (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
|
1446 [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
|
1447 '("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
|
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-display-current-image-sized] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1451 '("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
|
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-full] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1455 '("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
|
1456 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1457 ) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1458 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1459 (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
|
1460 "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
|
1461 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1462 (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
|
1463 (if file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1464 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1465 (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
|
1466 (message "Full size image displayed")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1467 (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
|
1468 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1469 (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
|
1470 "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
|
1471 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1472 (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
|
1473 (if file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1474 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1475 (image-dired-display-image file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1476 (message "Full size image displayed")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1477 (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
|
1478 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1479 (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
|
1480 fundamental-mode "image-dired-thumbnail" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1481 "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
|
1482 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
|
1483 nice setup to start with." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1484 (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
|
1485 (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
|
1486 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1487 (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
|
1488 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
|
1489 "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
|
1490 Resized or in full-size." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1491 (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
|
1492 (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
|
1493 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1494 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1495 (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
|
1496 "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
|
1497 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
|
1498 `image-dired-dired-x-line'." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1499 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1500 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1501 ;; 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
|
1502 ;; though... |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1503 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1504 (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
|
1505 (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
|
1506 (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
|
1507 (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
|
1508 |
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 (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
|
1510 (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
|
1511 (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
|
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 "\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
|
1514 (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
|
1515 (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
|
1516 (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
|
1517 (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
|
1518 (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
|
1519 (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
|
1520 (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
|
1521 (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
|
1522 (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
|
1523 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1524 ;; Menu for dired |
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 [menu-bar image-dired] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1526 (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
|
1527 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1528 (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
|
1529 '("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
|
1530 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1531 (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
|
1532 '("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
|
1533 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1534 (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
|
1535 '("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
|
1536 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1537 (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
|
1538 '("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
|
1539 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1540 (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
|
1541 '("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
|
1542 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1543 (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
|
1544 '("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
|
1545 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1546 (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
|
1547 '("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
|
1548 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1549 (define-key dired-mode-map |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1550 [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
|
1551 '("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
|
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-disp-props] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1555 '("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
|
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-dired-display-external] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1559 '("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
|
1560 (define-key dired-mode-map |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1561 [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
|
1562 '("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
|
1563 (define-key dired-mode-map |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1564 [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
|
1565 '("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
|
1566 (define-key dired-mode-map |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1567 [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
|
1568 '("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
|
1569 (define-key dired-mode-map |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1570 [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
|
1571 '("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
|
1572 |
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-create-thumbs] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1575 '("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
|
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-mark-and-display-next] |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1579 '("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
|
1580 (define-key dired-mode-map |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1581 [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
|
1582 '("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
|
1583 (define-key dired-mode-map |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1584 [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
|
1585 '("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
|
1586 |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
1587 (declare-function clear-image-cache "image.c" (&optional filter)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
1588 |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1589 (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
|
1590 "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
|
1591 With prefix argument ARG, create thumbnails even if they already exist |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1592 \(i.e. use this to refresh your thumbnails)." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1593 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1594 (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
|
1595 (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
|
1596 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1597 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1598 (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
|
1599 ;; 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
|
1600 ;; 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
|
1601 ;; 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
|
1602 (if arg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1603 (clear-image-cache)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1604 (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
|
1605 arg) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1606 (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
|
1607 (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
|
1608 (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
|
1609 files))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1610 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1611 (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
|
1612 "Slideshow timer.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1613 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1614 (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
|
1615 "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
|
1616 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1617 (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
|
1618 "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
|
1619 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1620 (defun image-dired-slideshow-step () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1621 "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
|
1622 (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
|
1623 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1624 (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
|
1625 (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
|
1626 (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
|
1627 (image-dired-slideshow-stop))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1628 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1629 (defun image-dired-slideshow-start () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1630 "Start slideshow. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1631 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
|
1632 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1633 (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
|
1634 (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
|
1635 (let ((repeat (string-to-number |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1636 (read-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1637 "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
|
1638 (setq image-dired-slideshow-timer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1639 (run-with-timer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1640 0 repeat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1641 'image-dired-slideshow-step)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1642 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1643 (defun image-dired-slideshow-stop () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1644 "Cancel slideshow." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1645 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1646 (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
|
1647 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1648 (defun image-dired-delete-char () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1649 "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
|
1650 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1651 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1652 (delete-char 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1653 (if (looking-at " ") |
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 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1656 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1657 (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
|
1658 "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
|
1659 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1660 (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
|
1661 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1662 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1663 (defun image-dired-display-thumb () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1664 "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
|
1665 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1666 (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
|
1667 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1668 (defun image-dired-line-up () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1669 "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
|
1670 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
|
1671 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1672 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1673 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1674 (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
|
1675 (not (eobp))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1676 (delete-char 1)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1677 (while (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1678 (forward-char) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1679 (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
|
1680 (not (eobp))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1681 (delete-char 1))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1682 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1683 (let ((count 0)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1684 (while (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1685 (forward-char) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1686 (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
|
1687 (insert "\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1688 (insert " ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1689 (setq count (1+ count)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1690 (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
|
1691 (not (eobp))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1692 (forward-char) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1693 (insert "\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1694 (setq count 0))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1695 (goto-char (point-min)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1696 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1697 (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
|
1698 "Line up thumbnails images dynamically. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1699 Calculate how many thumbnails fit." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1700 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1701 (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
|
1702 (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
|
1703 (image-dired-thumbs-per-row |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1704 (/ width |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1705 (+ (* 2 image-dired-thumb-relief) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1706 (* 2 image-dired-thumb-margin) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1707 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
|
1708 (image-dired-line-up))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1709 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1710 (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
|
1711 "Line up thumbnails interactively. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1712 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
|
1713 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1714 (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
|
1715 (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
|
1716 (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
|
1717 (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
|
1718 (image-dired-line-up)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1719 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1720 (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
|
1721 "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
|
1722 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1723 (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
|
1724 (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
|
1725 (message "No thumbnail at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1726 (if (not file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1727 (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
|
1728 (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
|
1729 (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
|
1730 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1731 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1732 (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
|
1733 "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
|
1734 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1735 (let ((file (dired-get-filename))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1736 (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
|
1737 (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
|
1738 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1739 (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
|
1740 "Calculate WINDOW width in pixels." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1741 (* (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
|
1742 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1743 (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
|
1744 "Calculate WINDOW height in pixels." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1745 ;; 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
|
1746 (* (- (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
|
1747 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1748 (defun image-dired-display-window () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1749 "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
|
1750 (get-window-with-predicate |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1751 (lambda (window) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1752 (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
|
1753 nil t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1754 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1755 (defun image-dired-thumbnail-window () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1756 "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
|
1757 (get-window-with-predicate |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1758 (lambda (window) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1759 (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
|
1760 nil t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1761 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1762 (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
|
1763 "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
|
1764 (let (buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1765 (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
|
1766 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1767 (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
|
1768 (get-window-with-predicate |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1769 (lambda (window) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1770 (equal (window-buffer window) buf)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1771 (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
|
1772 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1773 (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
|
1774 "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
|
1775 (- (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
|
1776 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
|
1777 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1778 (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
|
1779 "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
|
1780 (- (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
|
1781 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
|
1782 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1783 (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
|
1784 "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
|
1785 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
|
1786 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
|
1787 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
|
1788 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
|
1789 should feel snappy enough. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1790 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1791 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
|
1792 original size." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1793 (let ((new-file (expand-file-name image-dired-temp-image-file)) |
77488
27c929c72d08
Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents:
77405
diff
changeset
|
1794 width height command ret |
27c929c72d08
Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents:
77405
diff
changeset
|
1795 (image-type 'jpeg)) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1796 (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
|
1797 (if (not original-size) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1798 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1799 (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
|
1800 (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
|
1801 (setq command |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1802 (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1803 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
|
1804 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1805 (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
|
1806 (cons ?w width) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1807 (cons ?h height) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1808 (cons ?f file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1809 (cons ?t new-file)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1810 (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
|
1811 shell-command-switch command)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1812 (if (not (= 0 ret)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1813 (error "Could not resize image"))) |
77488
27c929c72d08
Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents:
77405
diff
changeset
|
1814 (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
|
1815 (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
|
1816 (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
|
1817 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1818 (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1819 (clear-image-cache) |
77488
27c929c72d08
Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents:
77405
diff
changeset
|
1820 (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
|
1821 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1822 (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
|
1823 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1824 (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
|
1825 "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
|
1826 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
|
1827 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
|
1828 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1829 (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
|
1830 (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
|
1831 (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
|
1832 (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
|
1833 (message "No thumbnail at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1834 (if (not file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1835 (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
|
1836 (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
|
1837 (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
|
1838 (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
|
1839 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1840 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1841 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1842 (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
|
1843 "Display current image file. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1844 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
|
1845 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
|
1846 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1847 (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
|
1848 (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
|
1849 (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
|
1850 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1851 (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
|
1852 "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
|
1853 (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
|
1854 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1855 (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
|
1856 "Rotate thumbnail DEGREES degrees." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1857 (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
|
1858 (message "No thumbnail at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1859 (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
|
1860 command) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1861 (setq command (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1862 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
|
1863 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1864 (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
|
1865 (cons ?d degrees) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1866 (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
|
1867 (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
|
1868 ;; 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
|
1869 ;; 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
|
1870 (clear-image-cache)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1871 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1872 (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
|
1873 "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
|
1874 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
|
1875 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
|
1876 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
|
1877 `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
|
1878 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1879 (image-dired-rotate-thumbnail "270")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1880 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1881 (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
|
1882 "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
|
1883 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
|
1884 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
|
1885 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
|
1886 `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
|
1887 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1888 (image-dired-rotate-thumbnail "90")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1889 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1890 (defun image-dired-refresh-thumb () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1891 "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
|
1892 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1893 (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
|
1894 (clear-image-cache) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1895 (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
|
1896 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1897 (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
|
1898 "Rotate original image DEGREES degrees." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1899 (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
|
1900 (message "No image at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1901 (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
|
1902 command temp-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1903 (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
|
1904 (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
|
1905 (setq command (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1906 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
|
1907 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1908 (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
|
1909 (cons ?d degrees) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1910 (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
|
1911 (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
|
1912 (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
|
1913 shell-command-switch command))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1914 (error "Could not rotate image") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1915 (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
|
1916 (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
|
1917 (y-or-n-p |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1918 "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
|
1919 (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
|
1920 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1921 (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
|
1922 (image-dired-refresh-thumb)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1923 (image-dired-display-image file)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1924 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1925 (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
|
1926 "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
|
1927 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1928 (image-dired-rotate-original "270")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1929 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1930 (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
|
1931 "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
|
1932 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1933 (image-dired-rotate-original "90")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1934 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1935 (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
|
1936 "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
|
1937 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
|
1938 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
|
1939 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
|
1940 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
|
1941 `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
|
1942 (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
|
1943 (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
|
1944 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1945 (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
|
1946 (setq data |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1947 (format-time-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1948 "%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
|
1949 (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
|
1950 (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
|
1951 "DateTimeOriginal"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1952 (while (string-match "[ :]" data) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1953 (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
|
1954 (format "%s%s%s" data |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1955 (if no-exif-data-found |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1956 "_noexif_" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1957 "_") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1958 (file-name-nondirectory file)))) |
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 (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
|
1961 "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
|
1962 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
|
1963 default value at the prompt." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1964 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1965 (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
|
1966 (message "No thumbnail at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1967 (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
|
1968 (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
|
1969 (if (eq 0 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1970 (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
|
1971 (read-string "Value of ImageDescription: " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1972 old-value))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1973 (message "Successfully wrote ImageDescription tag.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1974 (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
|
1975 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1976 (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
|
1977 "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
|
1978 (let (command) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1979 (setq command (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1980 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
|
1981 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1982 (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
|
1983 (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
|
1984 (cons ?t tag-name) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1985 (cons ?v tag-value)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1986 (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
|
1987 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1988 (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
|
1989 "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
|
1990 (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
|
1991 command tag-value) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1992 (setq command (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1993 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
|
1994 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1995 (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
|
1996 (cons ?f file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1997 (cons ?t tag-name)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1998 (with-current-buffer buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1999 (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
|
2000 (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
|
2001 shell-command-switch command) 0)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2002 (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
|
2003 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2004 ;; 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
|
2005 ;; getting final info |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2006 (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
|
2007 (replace-match "" nil t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2008 (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
|
2009 tag-value)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2010 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2011 (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
|
2012 "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
|
2013 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
|
2014 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
|
2015 `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
|
2016 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
|
2017 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2018 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
|
2019 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
|
2020 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
|
2021 `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
|
2022 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
|
2023 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
|
2024 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2025 (let (new-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2026 (files (dired-get-marked-files))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2027 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2028 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2029 (setq new-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2030 (format "%s/%s" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2031 (file-name-as-directory |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2032 (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
|
2033 (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
|
2034 (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
|
2035 (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
|
2036 files))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2037 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2038 (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
|
2039 "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
|
2040 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2041 (image-dired-forward-image) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2042 (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
|
2043 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2044 (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
|
2045 "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
|
2046 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2047 (image-dired-backward-image) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2048 (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
|
2049 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2050 (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
|
2051 "Write file comments to database. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
2052 Write file comments to one or more files. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
2053 FILE-COMMENTS is an alist on the following form: |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2054 ((FILE . COMMENT) ... )" |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
2055 (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
|
2056 (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
|
2057 (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
|
2058 (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
|
2059 (dolist (elt file-comments) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2060 (setq file (car elt) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2061 comment (cdr elt)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2062 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2063 (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
|
2064 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2065 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2066 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2067 ;; Delete old comment, if any |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2068 (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
|
2069 (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
|
2070 ;; Any tags after the comment? |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2071 (if (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2072 (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
|
2073 (setq comment-end-pos end)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2074 ;; Delete comment tag and comment |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2075 (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
|
2076 ;; Insert new comment |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2077 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2078 (unless (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2079 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2080 (insert ";")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2081 (insert (format "comment:%s;" comment))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2082 ;; 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
|
2083 (goto-char (point-max)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2084 (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
|
2085 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2086 (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
|
2087 "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
|
2088 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2089 (put-text-property |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2090 (point) (1+ (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2091 prop |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2092 value))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2093 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2094 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2095 (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
|
2096 "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
|
2097 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2098 (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
|
2099 (image-dired-write-comments |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2100 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2101 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2102 (cons curr-file comment)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2103 (dired-get-marked-files))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2104 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2105 (defun image-dired-comment-thumbnail () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2106 "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
|
2107 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2108 (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
|
2109 (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
|
2110 (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
|
2111 (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
|
2112 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2113 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2114 (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
|
2115 "Read comment for an image. |
107517
ed16fdd2685a
Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
2116 Optionally use old comment from FILE as initial value." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2117 (let ((comment |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2118 (read-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2119 "Comment: " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2120 (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
|
2121 comment)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2122 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2123 (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
|
2124 "Get comment for file FILE." |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
2125 (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
|
2126 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2127 (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
|
2128 (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
|
2129 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2130 (when (search-forward-regexp |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2131 (format "^%s" file) nil t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2132 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2133 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2134 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2135 (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
|
2136 (setq comment-beg-pos (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2137 (if (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2138 (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
|
2139 (setq comment-end-pos end)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2140 (setq comment (buffer-substring |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2141 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
|
2142 (kill-buffer buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2143 comment))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2144 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2145 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2146 (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
|
2147 "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
|
2148 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
|
2149 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
|
2150 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
|
2151 on all image files in the database file. The files that have a |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
2152 matching tag will be marked in the dired buffer." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2153 (interactive) |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
2154 (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
|
2155 (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
|
2156 (hits 0) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2157 files buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2158 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2159 (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
|
2160 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2161 ;; Collect matches |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2162 (while (search-forward-regexp |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2163 (concat "\\(^[^;\n]+\\);.*" tag ".*$") nil t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2164 (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
|
2165 (kill-buffer buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2166 ;; Mark files |
84874
e971b563a3eb
(image-dired-display-thumbs, image-dired-remove-tag,
Juanma Barranquero <lekktu@gmail.com>
parents:
82140
diff
changeset
|
2167 (mapc |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2168 ;; 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
|
2169 ;; waaaay to slow. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2170 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2171 ;; 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
|
2172 ;; the current one. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2173 (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
|
2174 (expand-file-name default-directory)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2175 (file-name-as-directory |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2176 (file-name-directory curr-file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2177 (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
|
2178 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2179 (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
|
2180 (setq hits (+ hits 1)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2181 (dired-mark 1)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2182 files)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2183 (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
|
2184 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2185 (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
|
2186 "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
|
2187 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
|
2188 non-nil." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2189 (interactive "e") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2190 (let (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2191 (mouse-set-point event) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2192 (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
|
2193 (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
|
2194 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2195 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2196 (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
|
2197 (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
|
2198 (image-dired-display-image file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2199 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2200 (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
|
2201 "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
|
2202 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
|
2203 non-nil." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2204 (interactive "e") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2205 (let (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2206 (mouse-set-point event) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2207 (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
|
2208 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2209 (image-dired-track-original-file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2210 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2211 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2212 (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
|
2213 "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
|
2214 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
|
2215 non-nil." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2216 (interactive "e") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2217 (let (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2218 (mouse-set-point event) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2219 (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
|
2220 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2221 (image-dired-track-original-file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2222 (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
|
2223 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2224 (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
|
2225 "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
|
2226 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2227 (let* ((file (dired-get-filename)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2228 (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
|
2229 (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
|
2230 (props (mapconcat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2231 'princ |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2232 (image-dired-list-tags file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2233 ", ")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2234 (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
|
2235 (if file-name |
87096
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85478
diff
changeset
|
2236 (message "%s" |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2237 (image-dired-format-properties-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2238 dired-buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2239 file-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2240 props |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2241 comment))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2242 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2243 (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
|
2244 "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
|
2245 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2246 (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
|
2247 "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
|
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-comment-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 comments.") |
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 (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
|
2253 "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
|
2254 (let (curr) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2255 (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
|
2256 (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
|
2257 (if (not (member file curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2258 (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
|
2259 (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
|
2260 (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
|
2261 (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
|
2262 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2263 (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
|
2264 "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
|
2265 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2266 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
|
2267 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2268 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
|
2269 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2270 image-dired-file-tag-list: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2271 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2272 ((\"filename1\" \"tag1\" \"tag2\" \"tag3\" ...) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2273 (\"filename2\" \"tag1\" \"tag2\" \"tag3\" ...) |
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 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2276 image-dired-tag-file-list: |
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 ((\"tag1\" \"filename1\" \"filename2\" \"filename3\" ...) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2279 (\"tag2\" \"filename1\" \"filename2\" \"filename3\" ...) |
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 ;; Add tag to file list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2282 (let (curr) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2283 (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
|
2284 (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
|
2285 (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
|
2286 (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
|
2287 (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
|
2288 (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
|
2289 ;; Add file to tag list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2290 (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
|
2291 (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
|
2292 (if (not (member file curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2293 (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
|
2294 (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
|
2295 (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
|
2296 (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
|
2297 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2298 (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
|
2299 "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
|
2300 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2301 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
|
2302 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2303 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
|
2304 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2305 image-dired-file-comment-list: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2306 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2307 ((\"filename1\" . \"comment1\") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2308 (\"filename2\" . \"comment2\") |
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 (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
|
2311 (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
|
2312 (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
|
2313 (cons (cons file comment) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2314 (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
|
2315 (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
|
2316 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2317 (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
|
2318 "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
|
2319 (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
|
2320 (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
|
2321 end beg file row-tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2322 (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
|
2323 (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
|
2324 (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
|
2325 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2326 (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
|
2327 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2328 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2329 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2330 (setq beg (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2331 (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
|
2332 (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
|
2333 (setq row-tags (split-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2334 (buffer-substring beg end) ";")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2335 (setq file (car row-tags)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2336 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2337 (lambda (x) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2338 (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
|
2339 (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
|
2340 (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
|
2341 (cdr row-tags))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2342 (kill-buffer buf)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2343 ;; Sort tag-file list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2344 (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
|
2345 (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
|
2346 (lambda (x y) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2347 (string< (car x) (car y)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2348 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2349 (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
|
2350 "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
|
2351 (let (hidden) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2352 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2353 (lambda (tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2354 (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
|
2355 (setq hidden t))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2356 (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
|
2357 hidden)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2358 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2359 (defun image-dired-gallery-generate () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2360 "Generate gallery pages. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2361 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
|
2362 it easier to generate, then HTML-files are created in |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
2363 `image-dired-gallery-dir'." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2364 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2365 (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
|
2366 (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
|
2367 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
|
2368 (image-dired-create-gallery-lists) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2369 (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
|
2370 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
|
2371 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
|
2372 ;; Make sure gallery root exist |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2373 (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
|
2374 (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
|
2375 (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
|
2376 (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
|
2377 ;; Open index file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2378 (setq index-buf (find-file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2379 (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
|
2380 (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2381 (insert "<html>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2382 (insert " <body>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2383 (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
|
2384 (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
|
2385 (current-time-string))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2386 (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
|
2387 (setq count 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2388 ;; 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
|
2389 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2390 (lambda (curr) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2391 (setq tag (car curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2392 (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
|
2393 (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
|
2394 (if tag-link-list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2395 (setq tag-link-list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2396 (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
|
2397 (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
|
2398 (setq count (1+ count)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2399 tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2400 (setq count 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2401 ;; 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
|
2402 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2403 (lambda (curr) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2404 (setq tag (car curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2405 ;; Don't display hidden tags |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2406 (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
|
2407 ;; 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
|
2408 (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
|
2409 ;; Open per-tag file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2410 (setq tag-buf (find-file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2411 (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
|
2412 (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2413 (insert "<html>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2414 (insert " <body>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2415 (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
|
2416 (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
|
2417 ;; 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
|
2418 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2419 (lambda (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2420 (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
|
2421 ;; 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
|
2422 (insert |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2423 (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
|
2424 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
|
2425 (file-name-nondirectory file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2426 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
|
2427 (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
|
2428 ;; Insert comment, if any |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2429 (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
|
2430 (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
|
2431 (insert "<br>\n")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2432 ;; 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
|
2433 (when (> (length |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2434 (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
|
2435 (insert "[ ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2436 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2437 (lambda (extra-tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2438 ;; 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
|
2439 (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
|
2440 (not (equal extra-tag file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2441 (insert |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2442 (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
|
2443 file-tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2444 (insert "]<br>\n")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2445 (cdr curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2446 (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
|
2447 (insert " </body>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2448 (insert "</html>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2449 (save-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2450 (kill-buffer tag-buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2451 (setq count (1+ count)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2452 tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2453 (insert " </body>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2454 (insert "</html>") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2455 (save-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2456 (kill-buffer index-buf))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2457 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2458 (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
|
2459 "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
|
2460 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2461 (let ((buffer (current-buffer))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2462 (condition-case nil |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2463 (delete-window (selected-window)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2464 (error nil)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2465 (kill-buffer buffer))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2466 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2467 (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
|
2468 "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
|
2469 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2470 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2471 (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
|
2472 "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
|
2473 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
|
2474 easy-to-use form." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2475 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2476 (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
|
2477 ;; Setup buffer. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2478 (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
|
2479 (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
|
2480 (kill-all-local-variables) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2481 (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
|
2482 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2483 (erase-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2484 (remove-overlays) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2485 ;; Some help for the user. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2486 (widget-insert |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2487 "\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
|
2488 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
|
2489 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
|
2490 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
|
2491 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
|
2492 ;; 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
|
2493 ;; image. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2494 (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
|
2495 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2496 (dolist (file files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2497 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2498 (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
|
2499 img (create-image thumb-file)) |
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 (insert-image img) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2502 (widget-insert "\n\nComment: ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2503 (setq comment-widget |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2504 (widget-create 'editable-field |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2505 :size 60 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2506 :format "%v " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2507 :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
|
2508 (widget-insert "\nTags: ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2509 (setq tag-widget |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2510 (widget-create 'editable-field |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2511 :size 60 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2512 :format "%v " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2513 :value (or (mapconcat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2514 (lambda (tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2515 tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2516 (image-dired-list-tags file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2517 ",") ""))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2518 ;; 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
|
2519 ;; the user saves the form. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2520 (setq image-dired-widget-list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2521 (append image-dired-widget-list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2522 (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
|
2523 (widget-insert "\n\n"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2524 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2525 ;; 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
|
2526 (widget-insert "\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2527 (widget-create 'push-button |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2528 :notify |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2529 (lambda (&rest ignore) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2530 (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
|
2531 (bury-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2532 (message "Done.")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2533 "Save") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2534 (widget-insert " ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2535 (widget-create 'push-button |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2536 :notify |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2537 (lambda (&rest ignore) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2538 (bury-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2539 (message "Operation canceled.")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2540 "Cancel") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2541 (widget-insert "\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2542 (use-local-map widget-keymap) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2543 (widget-setup) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2544 ;; Jump to the first widget. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2545 (widget-forward 1))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2546 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2547 (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
|
2548 "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
|
2549 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
|
2550 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
|
2551 `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
|
2552 (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
|
2553 (image-dired-write-comments |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2554 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2555 (lambda (widget) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2556 (setq file (car widget) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2557 comment (widget-value (cadr widget))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2558 (cons file comment)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2559 image-dired-widget-list)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2560 (image-dired-write-tags |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2561 (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
|
2562 (setq file (car widget) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2563 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
|
2564 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
|
2565 (dolist (tag tag-list) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2566 (push (cons file tag) lst)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2567 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2568 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2569 ;;;;;;;;; TEST-SECTION ;;;;;;;;;;; |
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 ;; (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
|
2573 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2574 ;; (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
|
2575 ;; "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
|
2576 ;; \"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
|
2577 ;; 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
|
2578 ;; 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
|
2579 ;; (let* ((files |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2580 ;; (sort |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2581 ;; (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2582 ;; (lambda (f) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2583 ;; (let ((fattribs (file-attributes f))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2584 ;; ;; 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
|
2585 ;; `(,(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
|
2586 ;; (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
|
2587 ;; ;; 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
|
2588 ;; '(lambda (l1 l2) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2589 ;; (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
|
2590 ;; (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
|
2591 ;; (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
|
2592 ;; (y-or-n-p |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2593 ;; (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
|
2594 ;; dirsize (cadr (cdar files)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2595 ;; (delete-file (cadr (cdar files))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2596 ;; (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
|
2597 ;; (setq files (cdr files))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2598 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2599 ;;;;;;;;;;;;;;;;;;;;;;, |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2600 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2601 ;; (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
|
2602 ;; (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
|
2603 ;; image-dired-use-speedbar) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2604 ;; (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
|
2605 ;; (dired-get-filename)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2606 ;; (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
|
2607 ;; (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
|
2608 ;; (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2609 ;; (insert (propertize |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2610 ;; filename |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2611 ;; 'display |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2612 ;; (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
|
2613 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2614 ;; (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
|
2615 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2616 (provide 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2617 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2618 ;; 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
|
2619 ;;; image-dired.el ends here |