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