Mercurial > emacs
annotate lisp/image-dired.el @ 110679:400dd9dfdb7b
Give up on using gnutls-cli for starttls.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 01 Oct 2010 12:56:44 +0000 |
parents | 55d24c1aa4ec |
children | c00190a8c8ef |
rev | line source |
---|---|
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1 ;;; image-dired.el --- use dired to browse and manipulate your images |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2 ;; |
106815 | 3 ;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
4 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
5 ;; Version: 0.4.11 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
6 ;; Keywords: multimedia |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
7 ;; Author: Mathias Dahl <mathias.rem0veth1s.dahl@gmail.com> |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
8 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
10 |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94268
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94268
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94268
diff
changeset
|
14 ;; (at your option) any later version. |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
15 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
20 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94268
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
23 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
24 ;;; Commentary: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
25 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
26 ;; BACKGROUND |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
27 ;; ========== |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
28 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
29 ;; I needed a program to browse, organize and tag my pictures. I got |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
30 ;; tired of the old gallery program I used as it did not allow |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
31 ;; multi-file operations easily. Also, it put things out of my |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
32 ;; control. Image viewing programs I tested did not allow multi-file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
33 ;; operations or did not do what I wanted it to. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
34 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
35 ;; So, I got the idea to use the wonderful functionality of Emacs and |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
36 ;; `dired' to do it. It would allow me to do almost anything I wanted, |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
37 ;; which is basically just to browse all my pictures in an easy way, |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
38 ;; letting me manipulate and tag them in various ways. `dired' already |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
39 ;; provide all the file handling and navigation facilities; I only |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
40 ;; needed to add some functions to display the images. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
41 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
42 ;; I briefly tried out thumbs.el, and although it seemed more |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
43 ;; powerful than this package, it did not work the way I wanted to. It |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
44 ;; was too slow to created thumbnails of all files in a directory (I |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
45 ;; currently keep all my 2000+ images in the same directory) and |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
46 ;; browsing the thumbnail buffer was slow too. image-dired.el will not |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
47 ;; create thumbnails until they are needed and the browsing is done |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
48 ;; quickly and easily in dired. I copied a great deal of ideas and |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
49 ;; code from there though... :) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
50 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
51 ;; `image-dired' stores the thumbnail files in `image-dired-dir' |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
52 ;; using the file name format ORIGNAME.thumb.ORIGEXT. For example |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
53 ;; ~/.emacs.d/image-dired/myimage01.thumb.jpg. The "database" is for |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
54 ;; now just a plain text file with the following format: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
55 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
56 ;; file-name-non-directory;comment:comment-text;tag1;tag2;tag3;...;tagN |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
57 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
58 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
59 ;; PREREQUISITES |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
60 ;; ============= |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
61 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
62 ;; * The ImageMagick package. Currently, `convert' and `mogrify' are |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
63 ;; used. Find it here: http://www.imagemagick.org. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
64 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
65 ;; * For non-lossy rotation of JPEG images, the JpegTRAN program is |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
66 ;; needed. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
67 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
68 ;; * For `image-dired-get-exif-data' and `image-dired-write-exif-data' to work, |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
69 ;; the command line tool `exiftool' is needed. It can be found here: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
70 ;; http://www.sno.phy.queensu.ca/~phil/exiftool/. These two functions |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
71 ;; are, among other things, used for writing comments to image files |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
72 ;; using `image-dired-thumbnail-set-image-description' and to create |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
73 ;; "unique" file names using `image-dired-get-exif-file-name' (used by |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
74 ;; `image-dired-copy-with-exif-file-name'). |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
75 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
76 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
77 ;; USAGE |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
78 ;; ===== |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
79 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
80 ;; This information has been moved to the manual. Type `C-h r' to open |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
81 ;; the Emacs manual and go to the node Thumbnails by typing `g |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
82 ;; Thumbnails RET'. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
83 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
84 ;; Quickstart: M-x image-dired RET DIRNAME RET |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
85 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
86 ;; where DIRNAME is a directory containing image files. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
87 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
88 ;; LIMITATIONS |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
89 ;; =========== |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
90 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
91 ;; * Supports all image formats that Emacs and convert supports, but |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
92 ;; the thumbnails are hard-coded to JPEG format. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
93 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
94 ;; * WARNING: The "database" format used might be changed so keep a |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
95 ;; backup of `image-dired-db-file' when testing new versions. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
96 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
97 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
98 ;; TODO |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
99 ;; ==== |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
100 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
101 ;; * Support gallery creation when using per-directory thumbnail |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
102 ;; storage. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
103 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
104 ;; * Some sort of auto-rotate function based on rotate info in the |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
105 ;; EXIF data. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
106 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
107 ;; * Check if exiftool exist before trying to call it to give a better |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
108 ;; error message. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
109 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
110 ;; * Investigate if it is possible to also write the tags to the image |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
111 ;; files. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
112 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
113 ;; * From thumbs.el: Add an option for clean-up/max-size functionality |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
114 ;; for thumbnail directory. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
115 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
116 ;; * From thumbs.el: Add setroot function. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
117 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
118 ;; * From thumbs.el: Add image resizing, if useful (image-dired's automatic |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
119 ;; "image fit" might be enough) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
120 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
121 ;; * From thumbs.el: Add the "modify" commands (emboss, negate, |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
122 ;; monochrome etc). |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
123 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
124 ;; * Asynchronous creation of thumbnails. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
125 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
126 ;; * Add `image-dired-display-thumbs-ring' and functions to cycle that. Find |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
127 ;; out which is best, saving old batch just before inserting new, or |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
128 ;; saving the current batch in the ring when inserting it. Adding it |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
129 ;; probably needs rewriting `image-dired-display-thumbs' to be more general. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
130 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
131 ;; * Find some way of toggling on and off really nice keybindings in |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
132 ;; dired (for example, using C-n or <down> instead of C-S-n). Richard |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
133 ;; suggested that we could keep C-t as prefix for image-dired commands |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
134 ;; as it is currently not used in dired. He also suggested that |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
135 ;; `dired-next-line' and `dired-previous-line' figure out if |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
136 ;; image-dired is enabled in the current buffer and, if it is, call |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
137 ;; `image-dired-dired-next-line' and |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
138 ;; `image-dired-dired-previous-line', respectively. Update: This is |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
139 ;; partly done; some bindings have now been added to dired. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
140 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
141 ;; * Enhanced gallery creation with basic CSS-support and pagination |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
142 ;; of tag pages with many pictures. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
143 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
144 ;; * Rewrite `image-dired-modify-mark-on-thumb-original-file' to be |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
145 ;; less ugly. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
146 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
147 ;; * In some way keep track of buffers and windows and stuff so that |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
148 ;; it works as the user expects. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
149 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
150 ;; * More/better documentation |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
151 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
152 ;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
153 ;;; Code: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
154 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
155 (require 'dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
156 (require 'format-spec) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
157 (require 'widget) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
158 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
159 (eval-when-compile |
108780
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
160 (require 'cl) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
161 (require 'wid-edit)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
162 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
163 (defgroup image-dired nil |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
164 "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
|
165 :prefix "image-dired-" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
166 :group 'multimedia) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
167 |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
168 (defcustom image-dired-dir (locate-user-emacs-file "image-dired/") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
169 "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
|
170 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
171 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
172 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
173 (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
|
174 "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
|
175 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
|
176 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
|
177 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
|
178 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
|
179 \".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
|
180 \"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
|
181 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
|
182 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
|
183 :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
|
184 (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
|
185 (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
|
186 (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
|
187 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
188 |
81347
2a989ff22a03
(image-dired-dir): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
77585
diff
changeset
|
189 (defcustom image-dired-db-file |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
190 (locate-user-emacs-file "image-dired/.image-dired_db") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
191 "Database file where file names and their associated tags are stored." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
192 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
193 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
194 |
81347
2a989ff22a03
(image-dired-dir): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
77585
diff
changeset
|
195 (defcustom image-dired-temp-image-file |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
196 (locate-user-emacs-file "image-dired/.image-dired_temp") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
197 "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
|
198 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
199 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
200 |
81347
2a989ff22a03
(image-dired-dir): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
77585
diff
changeset
|
201 (defcustom image-dired-gallery-dir |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
202 (locate-user-emacs-file "image-dired/.image-dired_gallery") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
203 "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
|
204 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
|
205 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
|
206 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
207 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
208 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
209 (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
|
210 "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
|
211 "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
|
212 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
|
213 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
|
214 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
215 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
216 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
217 (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
|
218 "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
|
219 "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
|
220 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
|
221 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
|
222 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
223 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
224 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
225 (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
|
226 "convert" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
227 "Executable used to create thumbnail. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
228 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
|
229 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
230 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
231 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
232 (defcustom image-dired-cmd-create-thumbnail-options |
96822
522e28ddd67f
(image-dired-cmd-create-thumbnail-options)
Juri Linkov <juri@jurta.org>
parents:
95841
diff
changeset
|
233 "%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
|
234 "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
|
235 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
|
236 `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
|
237 `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
|
238 %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
|
239 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
|
240 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
241 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
242 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
243 (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
|
244 "convert" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
245 "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
|
246 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
|
247 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
248 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
249 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
250 (defcustom image-dired-cmd-create-temp-image-options |
96822
522e28ddd67f
(image-dired-cmd-create-thumbnail-options)
Juri Linkov <juri@jurta.org>
parents:
95841
diff
changeset
|
251 "%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
|
252 "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
|
253 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
|
254 `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
|
255 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
|
256 %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
|
257 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
|
258 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
259 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
260 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
261 (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
|
262 "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
|
263 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
|
264 :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
|
265 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
266 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
267 (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
|
268 "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
|
269 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
|
270 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
|
271 :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
|
272 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
273 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
274 (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
|
275 (concat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
276 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
|
277 "-size %wx%h \"%f\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
278 (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
|
279 (concat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
280 "-set \"Thumb::MTime\" \"%m\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
281 "-set \"Thumb::URI\" \"file://%f\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
282 "-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
|
283 "-set \"Software\" \"" (emacs-version) "\" ")) |
96822
522e28ddd67f
(image-dired-cmd-create-thumbnail-options)
Juri Linkov <juri@jurta.org>
parents:
95841
diff
changeset
|
284 "-thumbnail \"%wx%h>\" png:\"%t\"" |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
285 (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
|
286 (concat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
287 " ; " 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
|
288 (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
|
289 " ; mv %q %t"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
290 (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
|
291 (concat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
292 (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
|
293 " ; cp %t %q") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
294 " ; " 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
|
295 "-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
|
296 "-text b \"Software\" \"" (emacs-version) "\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
297 ;; "-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
|
298 ;; "-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
|
299 ;; "-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
|
300 "-text b \"Thumb::MTime\" \"%m\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
301 ;; "-text b \"Thumb::Size\" \"%b\" " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
302 "-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
|
303 "%q %t" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
304 " ; rm %q"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
305 "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
|
306 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
307 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
308 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
309 (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
|
310 "mogrify" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
311 "Executable used to rotate thumbnail. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
312 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
|
313 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
314 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
315 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
316 (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
|
317 "%p -rotate %d \"%t\"" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
318 "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
|
319 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
|
320 `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
|
321 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
|
322 \(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
|
323 of the thumbnail file." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
324 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
325 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
326 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
327 (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
|
328 "jpegtran" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
329 "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
|
330 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
|
331 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
332 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
333 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
334 (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
|
335 "%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
|
336 "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
|
337 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
|
338 `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
|
339 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
|
340 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
|
341 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
|
342 `image-dired-temp-image-file'." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
343 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
344 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
345 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
346 (defcustom image-dired-temp-rotate-image-file |
99106
814d2d823dd7
New function `locate-user-emacs-file'.
Juanma Barranquero <lekktu@gmail.com>
parents:
96822
diff
changeset
|
347 (locate-user-emacs-file "image-dired/.image-dired_rotate_temp") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
348 "Temporary file for rotate operations." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
349 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
350 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
351 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
352 (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
|
353 "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
|
354 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
|
355 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
|
356 :type 'boolean |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
357 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
358 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
359 (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
|
360 "exiftool" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
361 "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
|
362 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
|
363 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
364 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
365 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
366 (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
|
367 "%p -%t=\"%v\" \"%f\"" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
368 "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
|
369 Available options are %p which is replaced by |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
370 `image-dired-cmd-write-exif-data-program', %f which is replaced by |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
371 the image file name, %t which is replaced by the tag name and %v |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
372 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
|
373 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
374 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
375 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
376 (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
|
377 "exiftool" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
378 "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
|
379 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
|
380 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
381 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
382 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
383 (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
|
384 "%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
|
385 "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
|
386 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
|
387 `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
|
388 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
|
389 :type 'string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
390 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
391 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
392 (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
|
393 (list "private" "hidden" "pending") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
394 "List of \"hidden\" tags. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
395 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
|
396 :type '(repeat string) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
397 :group 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
398 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
399 (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
|
400 "Size of thumbnails, in pixels. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
401 This is the default size for both `image-dired-thumb-width' |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
402 and `image-dired-thumb-height'." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
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. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
429 Used by `image-dired-display-thumbs' and other functions that needs |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
430 to line-up thumbnails. Dynamic means to use the available width of |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
431 the window containing the thumbnail buffer, Fixed means to use |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
432 `image-dired-thumbs-per-row', Interactive is for asking the user, |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
433 and No line-up means that no automatic line-up will be done." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
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 |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
514 "Maximum number of files to show using `image-dired-show-all-from-dir' |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
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 |
108780
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
636 (defun image-dired-dired-toggle-marked-thumbs (&optional arg) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
637 "Toggle thumbnails in front of file names in the dired buffer. |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
638 If no marked file could be found, insert or hide thumbnails on the |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
639 current line. ARG, if non-nil, specifies the files to use instead |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
640 of the marked files. If ARG is an integer, use the next ARG (or |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
641 previous -ARG, if ARG<0) files." |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
642 (interactive "P") |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
643 (dired-map-over-marks |
108780
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
644 (let* ((image-pos (dired-move-to-filename)) |
108819
55d24c1aa4ec
* image-dired.el (image-dired-dired-toggle-marked-thumbs):
Juri Linkov <juri@jurta.org>
parents:
108780
diff
changeset
|
645 (image-file (dired-get-filename nil t)) |
108780
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
646 thumb-file |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
647 overlay) |
108780
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
648 (when (and image-file (string-match-p (image-file-name-regexp) image-file)) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
649 (setq thumb-file (image-dired-get-thumbnail-image image-file)) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
650 ;; If image is not already added, then add it. |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
651 (let ((cur-ov (overlays-in (point) (1+ (point))))) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
652 (if cur-ov |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
653 (delete-overlay (car cur-ov)) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
654 (put-image thumb-file image-pos) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
655 (setq overlay (loop for o in (overlays-in (point) (1+ (point))) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
656 when (overlay-get o 'put-image) collect o into ov |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
657 finally return (car ov))) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
658 (overlay-put overlay 'image-file image-file) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
659 (overlay-put overlay 'thumb-file thumb-file))))) |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
660 arg ; Show or hide image on ARG next files. |
eccb3cdf5081
* dired.el (dired-mode-map): Rebind "\C-t\C-t" from
Juri Linkov <juri@jurta.org>
parents:
108765
diff
changeset
|
661 'show-progress) ; Update dired display after each image is updated. |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
662 (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
|
663 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
664 (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
|
665 "Relocate existing thumbnail overlays in dired buffer after reverting. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
666 Move them to their corresponding files if they still exist. |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
667 Otherwise, delete overlays." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
668 (mapc (lambda (overlay) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
669 (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
|
670 (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
|
671 (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
|
672 (if image-pos |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
673 (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
|
674 (delete-overlay overlay))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
675 (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
|
676 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
677 (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
|
678 "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
|
679 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
680 (dired-next-line 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
681 (image-dired-display-thumbs |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
682 t (or image-dired-append-when-browsing nil) t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
683 (if image-dired-dired-disp-props |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
684 (image-dired-dired-display-properties))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
685 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
686 (defun image-dired-previous-line-and-display () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
687 "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
|
688 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
689 (dired-previous-line 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
690 (image-dired-display-thumbs |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
691 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
|
692 (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
|
693 (image-dired-dired-display-properties))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
694 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
695 (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
|
696 "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
|
697 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
698 (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
|
699 (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
|
700 (message "Append browsing %s." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
701 (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
|
702 "on" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
703 "off"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
704 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
705 (defun image-dired-mark-and-display-next () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
706 "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
|
707 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
708 (dired-mark 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
709 (image-dired-display-thumbs |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
710 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
|
711 (if image-dired-dired-disp-props |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
712 (image-dired-dired-display-properties))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
713 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
714 (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
|
715 "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
|
716 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
717 (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
|
718 (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
|
719 (message "Dired display properties %s." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
720 (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
|
721 "on" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
722 "off"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
723 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
724 (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
|
725 "Image-Dired's thumbnail buffer.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
726 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
727 (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
|
728 "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
|
729 (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
|
730 (with-current-buffer buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
731 (setq buffer-read-only t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
732 (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
|
733 (image-dired-thumbnail-mode))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
734 buf)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
735 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
736 (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
|
737 "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
|
738 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
739 (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
|
740 "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
|
741 (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
|
742 (with-current-buffer buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
743 (setq buffer-read-only t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
744 (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
|
745 (image-dired-display-image-mode))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
746 buf)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
747 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
748 (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
|
749 "Saved window configuration.") |
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 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
752 (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
|
753 "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
|
754 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
755 Convenience command that: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
756 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
757 - Opens dired in folder DIR |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
758 - 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
|
759 - Set `truncate-lines' to t |
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 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
|
762 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
|
763 \\[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
|
764 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
765 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
|
766 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
767 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
|
768 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
|
769 (interactive "DDirectory: \nP") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
770 (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
|
771 (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
|
772 (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
|
773 (current-window-configuration)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
774 (dired dir) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
775 (delete-other-windows) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
776 (when (not arg) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
777 (split-window-horizontally) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
778 (setq truncate-lines t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
779 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
780 (other-window 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
781 (switch-to-buffer buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
782 (split-window-vertically) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
783 (other-window 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
784 (switch-to-buffer buf2) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
785 (other-window -2))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
786 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
787 (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
|
788 "Restore window configuration. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
789 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
|
790 `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
|
791 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
792 (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
|
793 (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
|
794 (message "No saved window configuration"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
795 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
796 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
797 (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
|
798 "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
|
799 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
|
800 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
|
801 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
|
802 another one). |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
803 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
804 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
|
805 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
|
806 `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
|
807 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
808 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
|
809 instead of erasing it first. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
810 |
107517
ed16fdd2685a
Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
811 Optional argument DO-NOT-POP controls if `pop-to-buffer' should be |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
812 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
|
813 `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
|
814 `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
|
815 `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
|
816 thumbnail buffer to be selected." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
817 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
818 (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
|
819 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
|
820 (if arg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
821 (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
|
822 (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
|
823 (setq dired-buf (current-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
824 (with-current-buffer buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
825 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
826 (if (not append) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
827 (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
828 (goto-char (point-max))) |
84874
e971b563a3eb
(image-dired-display-thumbs, image-dired-remove-tag,
Juanma Barranquero <lekktu@gmail.com>
parents:
82140
diff
changeset
|
829 (mapc |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
830 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
831 (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
|
832 (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
|
833 (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
|
834 (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
|
835 (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
|
836 files)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
837 (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
|
838 (image-dired-line-up-dynamic)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
839 ((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
|
840 (image-dired-line-up)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
841 ((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
|
842 (image-dired-line-up-interactive)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
843 ((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
|
844 nil) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
845 (t |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
846 (image-dired-line-up-dynamic)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
847 (if do-not-pop |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
848 (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
|
849 (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
|
850 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
851 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
852 (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
|
853 "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
|
854 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
|
855 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
|
856 displayed." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
857 (interactive "DDir: ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
858 (dired dir) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
859 (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
|
860 (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
|
861 (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
|
862 (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
|
863 (y-or-n-p |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
864 (format |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
865 "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
|
866 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
|
867 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
868 (image-dired-display-thumbs) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
869 (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
|
870 (message "Cancelled.")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
871 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
872 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
873 (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
|
874 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
875 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
876 (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
|
877 |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
878 (defun image-dired-sane-db-file () |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
879 "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
|
880 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
|
881 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
|
882 (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
|
883 (let (dir buf) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
884 (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
|
885 image-dired-db-file))) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
886 (make-directory dir t)) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
887 (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
|
888 image-dired-db-file)) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
889 (write-file image-dired-db-file)) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
890 (kill-buffer buf) |
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
891 (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
|
892 (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
|
893 |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
894 (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
|
895 "Write file tags to database. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
896 Write each file and tag in FILE-TAGS to the database. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
897 FILE-TAGS is an alist in the following form: |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
898 ((FILE . TAG) ... )" |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
899 (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
|
900 (let (end file tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
901 (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
|
902 (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
|
903 (dolist (elt file-tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
904 (setq file (car elt) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
905 tag (cdr elt)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
906 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
907 (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
|
908 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
909 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
910 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
911 (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
|
912 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
913 (insert (format ";%s" tag)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
914 (goto-char (point-max)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
915 (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
|
916 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
917 (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
|
918 "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
|
919 (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
|
920 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
921 (let (end buf start) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
922 (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
|
923 (if (not (listp files)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
924 (if (stringp files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
925 (setq files (list files)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
926 (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
|
927 (mapc |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
928 (lambda (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
929 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
930 (when (search-forward-regexp |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
931 (format "^%s" file) nil t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
932 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
933 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
934 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
935 (when (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
|
936 (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
|
937 ;; 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
|
938 ;; 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
|
939 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
940 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
941 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
942 (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
|
943 (kill-line 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
944 ;; 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
|
945 (when (and (eobp) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
946 (looking-at "^$")) |
108765
d835100c3e8b
Replace Lisp calls to delete-backward-char by delete-char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
107517
diff
changeset
|
947 (delete-char -1)))))) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
948 files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
949 (save-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
950 (kill-buffer buf)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
951 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
952 (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
|
953 "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
|
954 (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
|
955 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
956 (let (end buf (tags "")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
957 (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
|
958 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
959 (when (search-forward-regexp |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
960 (format "^%s" file) nil t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
961 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
962 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
963 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
964 (if (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
965 (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
|
966 (if (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
967 (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
|
968 (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
|
969 (kill-buffer buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
970 (split-string tags ";")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
971 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
972 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
973 (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
|
974 "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
|
975 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
976 (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
|
977 curr-file files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
978 (if arg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
979 (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
|
980 (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
|
981 (image-dired-write-tags |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
982 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
983 (lambda (x) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
984 (cons x tag)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
985 files)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
986 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
987 (defun image-dired-tag-thumbnail () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
988 "Tag current thumbnail." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
989 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
990 (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
|
991 (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
|
992 (image-dired-update-property |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
993 '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
|
994 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
995 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
996 (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
|
997 "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
|
998 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
|
999 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1000 (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
|
1001 files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1002 (if arg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1003 (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
|
1004 (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
|
1005 (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
|
1006 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1007 (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
|
1008 "Remove tag from thumbnail." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1009 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1010 (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
|
1011 (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
|
1012 (image-dired-update-property |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1013 '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
|
1014 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1015 (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
|
1016 "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
|
1017 (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
|
1018 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1019 (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
|
1020 "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
|
1021 (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
|
1022 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1023 (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
|
1024 "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
|
1025 (get-window-with-predicate |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1026 (lambda (window) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1027 (equal (window-buffer window) buf)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1028 nil t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1029 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1030 (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
|
1031 "Track the original file in the associated dired buffer. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1032 See documentation for `image-dired-toggle-movement-tracking'. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1033 Interactive use only useful if `image-dired-track-movement' is nil." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1034 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1035 (let ((old-buf (current-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1036 (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
|
1037 (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
|
1038 (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
|
1039 (set-buffer dired-buf) |
94268
4cca1963bd37
(image-dired-track-original-file)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
1040 (if (not (dired-goto-file file-name)) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1041 (message "Could not track file") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1042 (set-window-point |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1043 (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
|
1044 (set-buffer old-buf)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1045 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1046 (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
|
1047 "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
|
1048 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
|
1049 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
|
1050 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
|
1051 position in the other buffer." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1052 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1053 (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
|
1054 (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
|
1055 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1056 (defun image-dired-track-thumbnail () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1057 "Track current dired file's thumb in `image-dired-thumbnail-buffer'. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1058 This is almost the same as what `image-dired-track-original-file' does, |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1059 but the other way around." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1060 (let ((file (dired-get-filename)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1061 (old-buf (current-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1062 prop-val found) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1063 (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
|
1064 (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
|
1065 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1066 (while (and (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1067 (not found)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1068 (if (and (setq prop-val |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1069 (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
|
1070 (string= prop-val file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1071 (setq found t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1072 (if (not found) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1073 (forward-char 1))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1074 (when found |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1075 (set-window-point |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1076 (image-dired-thumbnail-window) (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1077 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1078 (set-buffer old-buf)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1079 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1080 (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
|
1081 "Call `dired-next-line', then track thumbnail. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1082 This can safely replace `dired-next-line'. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1083 With prefix argument, move ARG lines." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1084 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1085 (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
|
1086 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1087 (image-dired-track-thumbnail))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1088 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1089 (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
|
1090 "Call `dired-previous-line', then track thumbnail. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1091 This can safely replace `dired-previous-line'. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1092 With prefix argument, move ARG lines." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1093 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1094 (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
|
1095 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1096 (image-dired-track-thumbnail))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1097 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1098 (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
|
1099 "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
|
1100 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
|
1101 image." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1102 (interactive "p") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1103 (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
|
1104 (dotimes (i steps) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1105 (if (and (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1106 (save-excursion |
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 (while (and (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1109 (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
|
1110 (forward-char)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1111 (setq pos (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1112 (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
|
1113 (goto-char pos) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1114 (error "At last image")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1115 (when image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1116 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1117 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1118 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1119 (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
|
1120 "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
|
1121 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
|
1122 image." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1123 (interactive "p") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1124 (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
|
1125 (dotimes (i steps) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1126 (if (and (not (bobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1127 (save-excursion |
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 (while (and (not (bobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1130 (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
|
1131 (backward-char)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1132 (setq pos (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1133 (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
|
1134 (goto-char pos) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1135 (error "At first image")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1136 (when image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1137 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1138 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1139 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1140 (defun image-dired-next-line () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1141 "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
|
1142 (interactive) |
85478
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85037
diff
changeset
|
1143 (forward-line 1) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1144 ;; 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
|
1145 (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
|
1146 (image-dired-backward-image)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1147 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1148 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1149 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1150 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1151 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1152 (defun image-dired-previous-line () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1153 "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
|
1154 (interactive) |
85478
786d3a985758
* term/x-win.el (x-gtk-stock-map, icon-map-list)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
85037
diff
changeset
|
1155 (forward-line -1) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1156 ;; 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
|
1157 ;; 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
|
1158 ;; 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
|
1159 ;; 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
|
1160 (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
|
1161 (image-dired-backward-image)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1162 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1163 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1164 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1165 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1166 (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
|
1167 "Format display properties. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1168 BUF is the associated dired buffer, FILE is the original image file |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1169 name, PROPS is a list of tags and COMMENT is the image file's |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1170 comment." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1171 (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1172 image-dired-display-properties-format |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1173 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1174 (cons ?b (or buf "")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1175 (cons ?f file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1176 (cons ?t (or (princ props) "")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1177 (cons ?c (or comment ""))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1178 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1179 (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
|
1180 "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
|
1181 (if (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1182 (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
|
1183 (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
|
1184 (props (mapconcat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1185 'princ |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1186 (get-text-property (point) 'tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1187 ", ")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1188 (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
|
1189 (if file-name |
87096
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85478
diff
changeset
|
1190 (message "%s" |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1191 (image-dired-format-properties-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1192 dired-buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1193 file-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1194 props |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1195 comment)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1196 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1197 (defun image-dired-dired-file-marked-p () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1198 "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
|
1199 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1200 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1201 (not (looking-at "^ .*$")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1202 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1203 (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
|
1204 "Modify mark in dired buffer. |
94268
4cca1963bd37
(image-dired-track-original-file)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
1205 COMMAND is one of 'mark for marking file in dired, 'unmark for |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1206 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
|
1207 dired." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1208 (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
|
1209 (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
|
1210 (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
|
1211 (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
|
1212 (with-current-buffer dired-buf |
87096
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85478
diff
changeset
|
1213 (message "%s" file-name) |
94268
4cca1963bd37
(image-dired-track-original-file)
Juri Linkov <juri@jurta.org>
parents:
87649
diff
changeset
|
1214 (if (dired-goto-file file-name) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
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 |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
1594 (declare-function clear-image-cache "image.c" (&optional filter)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
1595 |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1596 (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
|
1597 "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
|
1598 With prefix argument ARG, create thumbnails even if they already exist |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
1599 \(i.e. use this to refresh your thumbnails)." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1600 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1601 (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
|
1602 (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
|
1603 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1604 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1605 (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
|
1606 ;; 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
|
1607 ;; 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
|
1608 ;; 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
|
1609 (if arg |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1610 (clear-image-cache)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1611 (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
|
1612 arg) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1613 (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
|
1614 (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
|
1615 (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
|
1616 files))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1617 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1618 (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
|
1619 "Slideshow timer.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1620 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1621 (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
|
1622 "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
|
1623 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1624 (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
|
1625 "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
|
1626 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1627 (defun image-dired-slideshow-step () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1628 "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
|
1629 (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
|
1630 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1631 (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
|
1632 (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
|
1633 (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
|
1634 (image-dired-slideshow-stop))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1635 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1636 (defun image-dired-slideshow-start () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1637 "Start slideshow. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1638 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
|
1639 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1640 (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
|
1641 (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
|
1642 (let ((repeat (string-to-number |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1643 (read-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1644 "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
|
1645 (setq image-dired-slideshow-timer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1646 (run-with-timer |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1647 0 repeat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1648 'image-dired-slideshow-step)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1649 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1650 (defun image-dired-slideshow-stop () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1651 "Cancel slideshow." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1652 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1653 (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
|
1654 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1655 (defun image-dired-delete-char () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1656 "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
|
1657 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1658 (let ((inhibit-read-only t)) |
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 (if (looking-at " ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1661 (delete-char 1)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1662 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1663 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1664 (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
|
1665 "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
|
1666 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1667 (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
|
1668 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1669 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1670 (defun image-dired-display-thumb () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1671 "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
|
1672 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1673 (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
|
1674 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1675 (defun image-dired-line-up () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1676 "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
|
1677 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
|
1678 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1679 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1680 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1681 (while (and (not (image-dired-image-at-point-p)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1682 (not (eobp))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1683 (delete-char 1)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1684 (while (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1685 (forward-char) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1686 (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
|
1687 (not (eobp))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1688 (delete-char 1))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1689 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1690 (let ((count 0)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1691 (while (not (eobp)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1692 (forward-char) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1693 (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
|
1694 (insert "\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1695 (insert " ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1696 (setq count (1+ count)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1697 (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
|
1698 (not (eobp))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1699 (forward-char) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1700 (insert "\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1701 (setq count 0))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1702 (goto-char (point-min)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1703 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1704 (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
|
1705 "Line up thumbnails images dynamically. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1706 Calculate how many thumbnails fit." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1707 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1708 (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
|
1709 (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
|
1710 (image-dired-thumbs-per-row |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1711 (/ width |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1712 (+ (* 2 image-dired-thumb-relief) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1713 (* 2 image-dired-thumb-margin) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1714 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
|
1715 (image-dired-line-up))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1716 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1717 (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
|
1718 "Line up thumbnails interactively. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1719 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
|
1720 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1721 (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
|
1722 (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
|
1723 (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
|
1724 (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
|
1725 (image-dired-line-up)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1726 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1727 (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
|
1728 "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
|
1729 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1730 (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
|
1731 (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
|
1732 (message "No thumbnail at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1733 (if (not file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1734 (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
|
1735 (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
|
1736 (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
|
1737 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1738 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1739 (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
|
1740 "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
|
1741 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1742 (let ((file (dired-get-filename))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1743 (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
|
1744 (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
|
1745 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1746 (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
|
1747 "Calculate WINDOW width in pixels." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1748 (* (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
|
1749 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1750 (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
|
1751 "Calculate WINDOW height in pixels." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1752 ;; 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
|
1753 (* (- (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
|
1754 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1755 (defun image-dired-display-window () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1756 "Return window where `image-dired-display-image-buffer' is visible." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1757 (get-window-with-predicate |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1758 (lambda (window) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1759 (equal (buffer-name (window-buffer window)) image-dired-display-image-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1760 nil t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1761 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1762 (defun image-dired-thumbnail-window () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1763 "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
|
1764 (get-window-with-predicate |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1765 (lambda (window) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1766 (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
|
1767 nil t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1768 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1769 (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
|
1770 "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
|
1771 (let (buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1772 (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
|
1773 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1774 (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
|
1775 (get-window-with-predicate |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1776 (lambda (window) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1777 (equal (window-buffer window) buf)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1778 (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
|
1779 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1780 (defun image-dired-display-window-width () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1781 "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
|
1782 (- (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
|
1783 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
|
1784 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1785 (defun image-dired-display-window-height () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1786 "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
|
1787 (- (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
|
1788 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
|
1789 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1790 (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
|
1791 "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
|
1792 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
|
1793 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
|
1794 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
|
1795 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
|
1796 should feel snappy enough. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1797 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1798 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
|
1799 original size." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1800 (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
|
1801 width height command ret |
27c929c72d08
Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents:
77405
diff
changeset
|
1802 (image-type 'jpeg)) |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1803 (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
|
1804 (if (not original-size) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1805 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1806 (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
|
1807 (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
|
1808 (setq command |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1809 (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1810 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
|
1811 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1812 (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
|
1813 (cons ?w width) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1814 (cons ?h height) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1815 (cons ?f file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1816 (cons ?t new-file)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1817 (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
|
1818 shell-command-switch command)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1819 (if (not (= 0 ret)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1820 (error "Could not resize image"))) |
77488
27c929c72d08
Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents:
77405
diff
changeset
|
1821 (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
|
1822 (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
|
1823 (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
|
1824 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1825 (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1826 (clear-image-cache) |
77488
27c929c72d08
Mathias Dahl <mathias.dahl at gmail.com>:
Glenn Morris <rgm@gnu.org>
parents:
77405
diff
changeset
|
1827 (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
|
1828 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1829 (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
|
1830 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1831 (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
|
1832 "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
|
1833 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
|
1834 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
|
1835 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1836 (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
|
1837 (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
|
1838 (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
|
1839 (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
|
1840 (message "No thumbnail at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1841 (if (not file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1842 (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
|
1843 (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
|
1844 (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
|
1845 (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
|
1846 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1847 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1848 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1849 (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
|
1850 "Display current image file. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1851 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
|
1852 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
|
1853 (interactive "P") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1854 (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
|
1855 (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
|
1856 (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
|
1857 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1858 (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
|
1859 "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
|
1860 (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
|
1861 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1862 (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
|
1863 "Rotate thumbnail DEGREES degrees." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1864 (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
|
1865 (message "No thumbnail at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1866 (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
|
1867 command) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1868 (setq command (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1869 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
|
1870 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1871 (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
|
1872 (cons ?d degrees) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1873 (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
|
1874 (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
|
1875 ;; 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
|
1876 ;; 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
|
1877 (clear-image-cache)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1878 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1879 (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
|
1880 "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
|
1881 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
|
1882 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
|
1883 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
|
1884 `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
|
1885 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1886 (image-dired-rotate-thumbnail "270")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1887 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1888 (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
|
1889 "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
|
1890 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
|
1891 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
|
1892 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
|
1893 `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
|
1894 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1895 (image-dired-rotate-thumbnail "90")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1896 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1897 (defun image-dired-refresh-thumb () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1898 "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
|
1899 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1900 (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
|
1901 (clear-image-cache) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1902 (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
|
1903 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1904 (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
|
1905 "Rotate original image DEGREES degrees." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1906 (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
|
1907 (message "No image at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1908 (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
|
1909 command temp-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1910 (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
|
1911 (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
|
1912 (setq command (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1913 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
|
1914 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1915 (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
|
1916 (cons ?d degrees) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1917 (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
|
1918 (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
|
1919 (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
|
1920 shell-command-switch command))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1921 (error "Could not rotate image") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1922 (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
|
1923 (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
|
1924 (y-or-n-p |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1925 "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
|
1926 (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
|
1927 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1928 (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
|
1929 (image-dired-refresh-thumb)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1930 (image-dired-display-image file)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1931 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1932 (defun image-dired-rotate-original-left () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1933 "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
|
1934 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1935 (image-dired-rotate-original "270")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1936 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1937 (defun image-dired-rotate-original-right () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1938 "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
|
1939 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1940 (image-dired-rotate-original "90")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1941 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1942 (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
|
1943 "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
|
1944 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
|
1945 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
|
1946 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
|
1947 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
|
1948 `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
|
1949 (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
|
1950 (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
|
1951 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1952 (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
|
1953 (setq data |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1954 (format-time-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1955 "%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
|
1956 (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
|
1957 (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
|
1958 "DateTimeOriginal"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1959 (while (string-match "[ :]" data) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1960 (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
|
1961 (format "%s%s%s" data |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1962 (if no-exif-data-found |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1963 "_noexif_" |
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 (file-name-nondirectory file)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1966 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1967 (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
|
1968 "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
|
1969 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
|
1970 default value at the prompt." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1971 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1972 (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
|
1973 (message "No thumbnail at point") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1974 (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
|
1975 (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
|
1976 (if (eq 0 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1977 (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
|
1978 (read-string "Value of ImageDescription: " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1979 old-value))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1980 (message "Successfully wrote ImageDescription tag.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1981 (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
|
1982 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1983 (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
|
1984 "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
|
1985 (let (command) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1986 (setq command (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1987 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
|
1988 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1989 (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
|
1990 (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
|
1991 (cons ?t tag-name) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1992 (cons ?v tag-value)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1993 (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
|
1994 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1995 (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
|
1996 "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
|
1997 (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
|
1998 command tag-value) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
1999 (setq command (format-spec |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2000 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
|
2001 (list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2002 (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
|
2003 (cons ?f file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2004 (cons ?t tag-name)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2005 (with-current-buffer buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2006 (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
|
2007 (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
|
2008 shell-command-switch command) 0)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2009 (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
|
2010 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2011 ;; 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
|
2012 ;; getting final info |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2013 (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
|
2014 (replace-match "" nil t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2015 (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
|
2016 tag-value)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2017 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2018 (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
|
2019 "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
|
2020 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
|
2021 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
|
2022 `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
|
2023 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
|
2024 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2025 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
|
2026 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
|
2027 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
|
2028 `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
|
2029 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
|
2030 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
|
2031 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2032 (let (new-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2033 (files (dired-get-marked-files))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2034 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2035 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2036 (setq new-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2037 (format "%s/%s" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2038 (file-name-as-directory |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2039 (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
|
2040 (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
|
2041 (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
|
2042 (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
|
2043 files))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2044 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2045 (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
|
2046 "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
|
2047 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2048 (image-dired-forward-image) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2049 (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
|
2050 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2051 (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
|
2052 "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
|
2053 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2054 (image-dired-backward-image) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2055 (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
|
2056 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2057 (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
|
2058 "Write file comments to database. |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
2059 Write file comments to one or more files. |
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
2060 FILE-COMMENTS is an alist on the following form: |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2061 ((FILE . COMMENT) ... )" |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
2062 (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
|
2063 (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
|
2064 (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
|
2065 (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
|
2066 (dolist (elt file-comments) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2067 (setq file (car elt) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2068 comment (cdr elt)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2069 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2070 (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
|
2071 (progn |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2072 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2073 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2074 ;; Delete old comment, if any |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2075 (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
|
2076 (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
|
2077 ;; Any tags after the comment? |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2078 (if (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2079 (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
|
2080 (setq comment-end-pos end)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2081 ;; Delete comment tag and comment |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2082 (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
|
2083 ;; Insert new comment |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2084 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2085 (unless (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2086 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2087 (insert ";")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2088 (insert (format "comment:%s;" comment))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2089 ;; 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
|
2090 (goto-char (point-max)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2091 (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
|
2092 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2093 (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
|
2094 "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
|
2095 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2096 (put-text-property |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2097 (point) (1+ (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2098 prop |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2099 value))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2100 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2101 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2102 (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
|
2103 "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
|
2104 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2105 (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
|
2106 (image-dired-write-comments |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2107 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2108 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2109 (cons curr-file comment)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2110 (dired-get-marked-files))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2111 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2112 (defun image-dired-comment-thumbnail () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2113 "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
|
2114 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2115 (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
|
2116 (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
|
2117 (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
|
2118 (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
|
2119 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2120 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2121 (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
|
2122 "Read comment for an image. |
107517
ed16fdd2685a
Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
106815
diff
changeset
|
2123 Optionally use old comment from FILE as initial value." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2124 (let ((comment |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2125 (read-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2126 "Comment: " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2127 (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
|
2128 comment)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2129 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2130 (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
|
2131 "Get comment for file FILE." |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
2132 (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
|
2133 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2134 (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
|
2135 (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
|
2136 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2137 (when (search-forward-regexp |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2138 (format "^%s" file) nil t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2139 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2140 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2141 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2142 (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
|
2143 (setq comment-beg-pos (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2144 (if (search-forward ";" end t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2145 (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
|
2146 (setq comment-end-pos end)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2147 (setq comment (buffer-substring |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2148 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
|
2149 (kill-buffer buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2150 comment))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2151 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2152 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2153 (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
|
2154 "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
|
2155 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
|
2156 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
|
2157 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
|
2158 on all image files in the database file. The files that have a |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
2159 matching tag will be marked in the dired buffer." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2160 (interactive) |
78183
e82750b21f0c
(image-dired-sane-db-file): New func.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
77585
diff
changeset
|
2161 (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
|
2162 (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
|
2163 (hits 0) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2164 files buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2165 (save-excursion |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2166 (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
|
2167 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2168 ;; Collect matches |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2169 (while (search-forward-regexp |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2170 (concat "\\(^[^;\n]+\\);.*" tag ".*$") nil t) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2171 (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
|
2172 (kill-buffer buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2173 ;; Mark files |
84874
e971b563a3eb
(image-dired-display-thumbs, image-dired-remove-tag,
Juanma Barranquero <lekktu@gmail.com>
parents:
82140
diff
changeset
|
2174 (mapc |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2175 ;; 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
|
2176 ;; waaaay to slow. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2177 (lambda (curr-file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2178 ;; 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
|
2179 ;; the current one. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2180 (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
|
2181 (expand-file-name default-directory)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2182 (file-name-as-directory |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2183 (file-name-directory curr-file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2184 (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
|
2185 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2186 (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
|
2187 (setq hits (+ hits 1)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2188 (dired-mark 1)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2189 files)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2190 (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
|
2191 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2192 (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
|
2193 "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
|
2194 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
|
2195 non-nil." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2196 (interactive "e") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2197 (let (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2198 (mouse-set-point event) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2199 (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
|
2200 (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
|
2201 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2202 (image-dired-track-original-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2203 (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
|
2204 (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
|
2205 (image-dired-display-image file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2206 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2207 (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
|
2208 "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
|
2209 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
|
2210 non-nil." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2211 (interactive "e") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2212 (let (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2213 (mouse-set-point event) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2214 (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
|
2215 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2216 (image-dired-track-original-file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2217 (image-dired-display-thumb-properties)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2218 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2219 (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
|
2220 "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
|
2221 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
|
2222 non-nil." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2223 (interactive "e") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2224 (let (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2225 (mouse-set-point event) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2226 (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
|
2227 (if image-dired-track-movement |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2228 (image-dired-track-original-file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2229 (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
|
2230 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2231 (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
|
2232 "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
|
2233 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2234 (let* ((file (dired-get-filename)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2235 (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
|
2236 (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
|
2237 (props (mapconcat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2238 'princ |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2239 (image-dired-list-tags file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2240 ", ")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2241 (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
|
2242 (if file-name |
87096
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85478
diff
changeset
|
2243 (message "%s" |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2244 (image-dired-format-properties-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2245 dired-buf |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2246 file-name |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2247 props |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2248 comment))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2249 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2250 (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
|
2251 "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
|
2252 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2253 (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
|
2254 "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
|
2255 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2256 (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
|
2257 "List to store file comments.") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2258 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2259 (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
|
2260 "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
|
2261 (let (curr) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2262 (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
|
2263 (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
|
2264 (if (not (member file curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2265 (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
|
2266 (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
|
2267 (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
|
2268 (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
|
2269 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2270 (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
|
2271 "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
|
2272 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2273 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
|
2274 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2275 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
|
2276 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2277 image-dired-file-tag-list: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2278 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2279 ((\"filename1\" \"tag1\" \"tag2\" \"tag3\" ...) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2280 (\"filename2\" \"tag1\" \"tag2\" \"tag3\" ...) |
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 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2283 image-dired-tag-file-list: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2284 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2285 ((\"tag1\" \"filename1\" \"filename2\" \"filename3\" ...) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2286 (\"tag2\" \"filename1\" \"filename2\" \"filename3\" ...) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2287 ...)" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2288 ;; Add tag to file list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2289 (let (curr) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2290 (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
|
2291 (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
|
2292 (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
|
2293 (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
|
2294 (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
|
2295 (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
|
2296 ;; Add file to tag list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2297 (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
|
2298 (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
|
2299 (if (not (member file curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2300 (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
|
2301 (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
|
2302 (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
|
2303 (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
|
2304 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2305 (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
|
2306 "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
|
2307 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2308 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
|
2309 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2310 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
|
2311 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2312 image-dired-file-comment-list: |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2313 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2314 ((\"filename1\" . \"comment1\") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2315 (\"filename2\" . \"comment2\") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2316 ...)" |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2317 (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
|
2318 (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
|
2319 (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
|
2320 (cons (cons file comment) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2321 (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
|
2322 (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
|
2323 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2324 (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
|
2325 "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
|
2326 (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
|
2327 (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
|
2328 end beg file row-tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2329 (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
|
2330 (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
|
2331 (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
|
2332 (goto-char (point-min)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2333 (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
|
2334 (end-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2335 (setq end (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2336 (beginning-of-line) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2337 (setq beg (point)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2338 (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
|
2339 (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
|
2340 (setq row-tags (split-string |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2341 (buffer-substring beg end) ";")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2342 (setq file (car row-tags)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2343 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2344 (lambda (x) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2345 (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
|
2346 (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
|
2347 (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
|
2348 (cdr row-tags))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2349 (kill-buffer buf)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2350 ;; Sort tag-file list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2351 (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
|
2352 (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
|
2353 (lambda (x y) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2354 (string< (car x) (car y)))))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2355 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2356 (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
|
2357 "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
|
2358 (let (hidden) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2359 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2360 (lambda (tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2361 (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
|
2362 (setq hidden t))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2363 (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
|
2364 hidden)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2365 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2366 (defun image-dired-gallery-generate () |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2367 "Generate gallery pages. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2368 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
|
2369 it easier to generate, then HTML-files are created in |
99116
2e0e3e5cbd97
* completion.el (add-completion-to-head, add-completion): Doc fixes.
Juanma Barranquero <lekktu@gmail.com>
parents:
99106
diff
changeset
|
2370 `image-dired-gallery-dir'." |
77405
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2371 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2372 (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
|
2373 (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
|
2374 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
|
2375 (image-dired-create-gallery-lists) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2376 (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
|
2377 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
|
2378 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
|
2379 ;; Make sure gallery root exist |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2380 (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
|
2381 (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
|
2382 (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
|
2383 (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
|
2384 ;; Open index file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2385 (setq index-buf (find-file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2386 (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
|
2387 (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2388 (insert "<html>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2389 (insert " <body>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2390 (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
|
2391 (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
|
2392 (current-time-string))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2393 (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
|
2394 (setq count 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2395 ;; 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
|
2396 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2397 (lambda (curr) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2398 (setq tag (car curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2399 (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
|
2400 (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
|
2401 (if tag-link-list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2402 (setq tag-link-list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2403 (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
|
2404 (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
|
2405 (setq count (1+ count)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2406 tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2407 (setq count 1) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2408 ;; 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
|
2409 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2410 (lambda (curr) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2411 (setq tag (car curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2412 ;; Don't display hidden tags |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2413 (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
|
2414 ;; 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
|
2415 (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
|
2416 ;; Open per-tag file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2417 (setq tag-buf (find-file |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2418 (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
|
2419 (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2420 (insert "<html>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2421 (insert " <body>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2422 (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
|
2423 (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
|
2424 ;; 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
|
2425 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2426 (lambda (file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2427 (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
|
2428 ;; 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
|
2429 (insert |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2430 (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
|
2431 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
|
2432 (file-name-nondirectory file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2433 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
|
2434 (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
|
2435 ;; Insert comment, if any |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2436 (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
|
2437 (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
|
2438 (insert "<br>\n")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2439 ;; 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
|
2440 (when (> (length |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2441 (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
|
2442 (insert "[ ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2443 (mapc |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2444 (lambda (extra-tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2445 ;; 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
|
2446 (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
|
2447 (not (equal extra-tag file))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2448 (insert |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2449 (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
|
2450 file-tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2451 (insert "]<br>\n")))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2452 (cdr curr)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2453 (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
|
2454 (insert " </body>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2455 (insert "</html>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2456 (save-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2457 (kill-buffer tag-buf) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2458 (setq count (1+ count)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2459 tags) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2460 (insert " </body>\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2461 (insert "</html>") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2462 (save-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2463 (kill-buffer index-buf))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2464 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2465 (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
|
2466 "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
|
2467 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2468 (let ((buffer (current-buffer))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2469 (condition-case nil |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2470 (delete-window (selected-window)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2471 (error nil)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2472 (kill-buffer buffer))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2473 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2474 (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
|
2475 "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
|
2476 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2477 ;;;###autoload |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2478 (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
|
2479 "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
|
2480 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
|
2481 easy-to-use form." |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2482 (interactive) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2483 (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
|
2484 ;; Setup buffer. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2485 (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
|
2486 (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
|
2487 (kill-all-local-variables) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2488 (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
|
2489 (let ((inhibit-read-only t)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2490 (erase-buffer)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2491 (remove-overlays) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2492 ;; Some help for the user. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2493 (widget-insert |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2494 "\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
|
2495 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
|
2496 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
|
2497 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
|
2498 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
|
2499 ;; 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
|
2500 ;; image. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2501 (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
|
2502 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2503 (dolist (file files) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2504 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2505 (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
|
2506 img (create-image thumb-file)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2507 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2508 (insert-image img) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2509 (widget-insert "\n\nComment: ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2510 (setq comment-widget |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2511 (widget-create 'editable-field |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2512 :size 60 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2513 :format "%v " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2514 :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
|
2515 (widget-insert "\nTags: ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2516 (setq tag-widget |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2517 (widget-create 'editable-field |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2518 :size 60 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2519 :format "%v " |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2520 :value (or (mapconcat |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2521 (lambda (tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2522 tag) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2523 (image-dired-list-tags file) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2524 ",") ""))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2525 ;; 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
|
2526 ;; the user saves the form. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2527 (setq image-dired-widget-list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2528 (append image-dired-widget-list |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2529 (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
|
2530 (widget-insert "\n\n"))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2531 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2532 ;; 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
|
2533 (widget-insert "\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2534 (widget-create 'push-button |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2535 :notify |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2536 (lambda (&rest ignore) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2537 (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
|
2538 (bury-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2539 (message "Done.")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2540 "Save") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2541 (widget-insert " ") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2542 (widget-create 'push-button |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2543 :notify |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2544 (lambda (&rest ignore) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2545 (bury-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2546 (message "Operation canceled.")) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2547 "Cancel") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2548 (widget-insert "\n") |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2549 (use-local-map widget-keymap) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2550 (widget-setup) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2551 ;; Jump to the first widget. |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2552 (widget-forward 1))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2553 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2554 (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
|
2555 "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
|
2556 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
|
2557 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
|
2558 `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
|
2559 (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
|
2560 (image-dired-write-comments |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2561 (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2562 (lambda (widget) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2563 (setq file (car widget) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2564 comment (widget-value (cadr widget))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2565 (cons file comment)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2566 image-dired-widget-list)) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2567 (image-dired-write-tags |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2568 (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
|
2569 (setq file (car widget) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2570 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
|
2571 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
|
2572 (dolist (tag tag-list) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2573 (push (cons file tag) lst)))))) |
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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2576 ;;;;;;;;; TEST-SECTION ;;;;;;;;;;; |
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 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2579 ;; (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
|
2580 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2581 ;; (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
|
2582 ;; "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
|
2583 ;; \"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
|
2584 ;; 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
|
2585 ;; 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
|
2586 ;; (let* ((files |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2587 ;; (sort |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2588 ;; (mapcar |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2589 ;; (lambda (f) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2590 ;; (let ((fattribs (file-attributes f))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2591 ;; ;; 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
|
2592 ;; `(,(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
|
2593 ;; (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
|
2594 ;; ;; 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
|
2595 ;; '(lambda (l1 l2) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2596 ;; (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
|
2597 ;; (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
|
2598 ;; (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
|
2599 ;; (y-or-n-p |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2600 ;; (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
|
2601 ;; dirsize (cadr (cdar files)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2602 ;; (delete-file (cadr (cdar files))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2603 ;; (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
|
2604 ;; (setq files (cdr files))))) |
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 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2608 ;; (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
|
2609 ;; (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
|
2610 ;; image-dired-use-speedbar) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2611 ;; (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
|
2612 ;; (dired-get-filename)))) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2613 ;; (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
|
2614 ;; (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
|
2615 ;; (erase-buffer) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2616 ;; (insert (propertize |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2617 ;; filename |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2618 ;; 'display |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2619 ;; (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
|
2620 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2621 ;; (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
|
2622 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2623 (provide 'image-dired) |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2624 |
7b2ac92c7dd7
Rename from "thumbnails.el"; all instances of "thumbnails" changed to
Chong Yidong <cyd@stupidchicken.com>
parents:
diff
changeset
|
2625 ;; 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
|
2626 ;;; image-dired.el ends here |