annotate lisp/iimage.el @ 101559:3688f1456c9e

(mh-mm-merge-handles) (mh-mm-set-handle-multipart-parameter, mh-mm-inline-text-vcard) (mh-mml-minibuffer-read-disposition, mh-mm-save-part): Update with code from Gnus 5.11 (closes SF #2235022).
author Bill Wohler <wohler@newt.com>
date Tue, 27 Jan 2009 06:34:57 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
1 ;;; iimage.el --- Inline image minor mode.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
2
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 94678
diff changeset
3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
4
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
5 ;; Author: KOSEKI Yoshinori <kose@meadowy.org>
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
6 ;; Maintainer: KOSEKI Yoshinori <kose@meadowy.org>
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
7 ;; Keywords: multimedia
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
8
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
10
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
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: 93975
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: 93975
diff changeset
14 ;; (at your option) any later version.
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
15
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
20
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
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: 93975
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
23
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
25
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
26 ;; Iimage is a minor mode that displays images, when image-filename
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
27 ;; exists in the buffer.
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
28 ;; http://www.netlaputa.ne.jp/~kose/Emacs/iimage.html
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
29 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
30 ;; Add to your `~/.emacs':
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
31 ;; (autoload 'iimage-mode "iimage" "Support Inline image minor mode." t)
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
32 ;; (autoload 'turn-on-iimage-mode "iimage" "Turn on Inline image minor mode." t)
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
33 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
34 ;; ** Display images in *Info* buffer.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
35 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
36 ;; (add-hook 'info-mode-hook 'turn-on-iimage-mode)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
37 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
38 ;; .texinfo: @file{file://foo.png}
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
39 ;; .info: `file://foo.png'
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
40 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
41 ;; ** Display images in Wiki buffer.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
42 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
43 ;; (add-hook 'wiki-mode-hook 'turn-on-iimage-mode)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
44 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
45 ;; wiki-file: [[foo.png]]
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
46
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
47 ;;; Code:
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
48
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
49 (eval-when-compile
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
50 (require 'image-file))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
51
61272
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
52 (defgroup iimage nil
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
53 "Support for inline images."
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
54 :version "22.1"
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
55 :group 'image)
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
56
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
57 (defconst iimage-version "1.1")
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
58 (defvar iimage-mode nil)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
59 (defvar iimage-mode-map nil)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
60
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
61 ;; Set up key map.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
62 (unless iimage-mode-map
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
63 (setq iimage-mode-map (make-sparse-keymap))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
64 (define-key iimage-mode-map "\C-l" 'iimage-recenter))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
65
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
66 (defun iimage-recenter (&optional arg)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
67 "Re-draw images and recenter."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
68 (interactive "P")
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
69 (iimage-mode-buffer 0)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
70 (iimage-mode-buffer 1)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
71 (recenter arg))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
72
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
73 (defvar iimage-mode-image-filename-regex
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
74 (concat "[-+./_0-9a-zA-Z]+\\."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
75 (regexp-opt (nconc (mapcar #'upcase
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
76 image-file-name-extensions)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
77 image-file-name-extensions)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
78 t)))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
79
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
80 (defvar iimage-mode-image-regex-alist
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
81 `((,(concat "\\(`?file://\\|\\[\\[\\|<\\|`\\)?"
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
82 "\\(" iimage-mode-image-filename-regex "\\)"
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
83 "\\(\\]\\]\\|>\\|'\\)?") . 2))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
84 "*Alist of filename REGEXP vs NUM.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
85 Each element looks like (REGEXP . NUM).
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
86 NUM specifies which parenthesized expression in the regexp.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
87
74256
9b80e932389f (iimage-mode-image-regex-alist): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 68651
diff changeset
88 Examples of image filename regexps:
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
89 file://foo.png
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
90 `file://foo.png'
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
91 \\[\\[foo.gif]]
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
92 <foo.png>
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
93 foo.JPG
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
94 ")
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
95
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
96 (defvar iimage-mode-image-search-path nil
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
97 "*List of directories to search for image files for iimage-mode.")
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
98
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
99 ;;;###autoload
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
100 (defun turn-on-iimage-mode ()
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
101 "Unconditionally turn on iimage mode."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
102 (interactive)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
103 (iimage-mode 1))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
104
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
105 (defun turn-off-iimage-mode ()
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
106 "Unconditionally turn off iimage mode."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
107 (interactive)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
108 (iimage-mode 0))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
109
85825
13163bbed0bf * progmodes/mixal-mode.el (mixal-run, mixal-debug): Call mixvm
Dan Nicolaescu <dann@ics.uci.edu>
parents: 78236
diff changeset
110 (defalias 'iimage-locate-file 'locate-file)
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
111
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
112 (defun iimage-mode-buffer (arg)
74256
9b80e932389f (iimage-mode-image-regex-alist): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 68651
diff changeset
113 "Display/undisplay images.
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
114 With numeric ARG, display the images if and only if ARG is positive."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
115 (interactive)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
116 (let ((ing (if (numberp arg)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
117 (> arg 0)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
118 iimage-mode))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
119 (modp (buffer-modified-p (current-buffer)))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
120 file buffer-read-only)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
121 (save-excursion
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
122 (goto-char (point-min))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
123 (dolist (pair iimage-mode-image-regex-alist)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
124 (while (re-search-forward (car pair) nil t)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
125 (if (and (setq file (match-string (cdr pair)))
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
126 (setq file (iimage-locate-file file
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
127 (cons default-directory
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
128 iimage-mode-image-search-path))))
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
129 (if ing
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
130 (add-text-properties (match-beginning 0) (match-end 0)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
131 (list 'display (create-image file)))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
132 (remove-text-properties (match-beginning 0) (match-end 0)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
133 '(display)))))))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
134 (set-buffer-modified-p modp)))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
135
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
136 ;;;###autoload
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
137 (define-minor-mode iimage-mode
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
138 "Toggle inline image minor mode."
61272
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
139 :group 'iimage :lighter " iImg" :keymap iimage-mode-map
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
140 (run-hooks 'iimage-mode-hook)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
141 (iimage-mode-buffer iimage-mode))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
142
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
143 (provide 'iimage)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
144
93975
1e3a407766b9 Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 87649
diff changeset
145 ;; arch-tag: f6f8e29a-08f6-4a12-9496-51e67441ce65
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
146 ;;; iimage.el ends here