36 |
|
|
37 |
(require 'image) |
(require 'image) |
38 |
|
|
39 |
;;;###autoload (push '("\\.jpg\\'" . image-mode) auto-mode-alist) |
;;;###autoload (push '("\\.jpe?g\\'" . image-mode) auto-mode-alist) |
40 |
;;;###autoload (push '("\\.jpeg\\'" . image-mode) auto-mode-alist) |
;;;###autoload (push '("\\.png\\'" . image-mode) auto-mode-alist) |
41 |
;;;###autoload (push '("\\.gif\\'" . image-mode) auto-mode-alist) |
;;;###autoload (push '("\\.gif\\'" . image-mode) auto-mode-alist) |
42 |
;;;###autoload (push '("\\.png\\'" . image-mode) auto-mode-alist) |
;;;###autoload (push '("\\.tiff?\\'" . image-mode) auto-mode-alist) |
43 |
;;;###autoload (push '("\\.tiff\\'" . image-mode) auto-mode-alist) |
;;;###autoload (push '("\\.p[bpgn]m\\'" . image-mode) auto-mode-alist) |
44 |
;;;###autoload (push '("\\.tif\\'" . image-mode) auto-mode-alist) |
;;;###autoload (push '("\\.x[bp]m\\'" . image-mode-maybe) auto-mode-alist) |
|
;;;###autoload (push '("\\.xbm\\'" . image-mode) auto-mode-alist) |
|
|
;;;###autoload (push '("\\.xpm\\'" . image-mode) auto-mode-alist) |
|
|
;;;###autoload (push '("\\.pbm\\'" . image-mode) auto-mode-alist) |
|
|
;;;###autoload (push '("\\.pgm\\'" . image-mode) auto-mode-alist) |
|
|
;;;###autoload (push '("\\.ppm\\'" . image-mode) auto-mode-alist) |
|
|
;;;###autoload (push '("\\.pnm\\'" . image-mode) auto-mode-alist) |
|
45 |
|
|
46 |
(defvar image-mode-map |
(defvar image-mode-map |
47 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
59 |
(setq mode-name "Image") |
(setq mode-name "Image") |
60 |
(setq major-mode 'image-mode) |
(setq major-mode 'image-mode) |
61 |
(use-local-map image-mode-map) |
(use-local-map image-mode-map) |
62 |
|
(add-hook 'change-major-mode-hook 'image-toggle-display-text nil t) |
63 |
|
(if (not (get-text-property (point-min) 'display)) |
64 |
|
(image-toggle-display) |
65 |
|
;; Set next vars when image is already displayed but local |
66 |
|
;; variables were cleared by kill-all-local-variables |
67 |
|
(setq cursor-type nil truncate-lines t)) |
68 |
(run-mode-hooks 'image-mode-hook) |
(run-mode-hooks 'image-mode-hook) |
69 |
(message (substitute-command-keys |
(message (concat (substitute-command-keys |
70 |
"Type \\[image-toggle-display] to view the image as an image."))) |
"Type \\[image-toggle-display] to view the image as ") |
71 |
|
(if (get-text-property (point-min) 'display) |
72 |
|
"text" "an image") "."))) |
73 |
|
|
74 |
|
;;;###autoload |
75 |
|
(define-minor-mode image-minor-mode |
76 |
|
"Toggle Image minor mode. |
77 |
|
With arg, turn Image minor mode on if arg is positive, off otherwise. |
78 |
|
See the command `image-mode' for more information on this mode." |
79 |
|
nil " Image" image-mode-map |
80 |
|
:group 'image |
81 |
|
:version "22.1" |
82 |
|
(unless (or (eq major-mode 'image-mode) image-minor-mode) |
83 |
|
(use-local-map image-mode-map))) |
84 |
|
|
85 |
|
;;;###autoload |
86 |
|
(defun image-mode-maybe () |
87 |
|
"Set major or minor mode for image files. |
88 |
|
Set Image major mode only when there are no other major modes |
89 |
|
associated with a filename in `auto-mode-alist'. When an image |
90 |
|
filename matches another major mode in `auto-mode-alist' then |
91 |
|
set that major mode and Image minor mode. |
92 |
|
|
93 |
|
See commands `image-mode' and `image-minor-mode' for more |
94 |
|
information on these modes." |
95 |
|
(interactive) |
96 |
|
(let* ((mode-alist |
97 |
|
(delq nil (mapcar |
98 |
|
(lambda (elt) |
99 |
|
(unless (memq (or (car-safe (cdr elt)) (cdr elt)) |
100 |
|
'(image-mode image-mode-maybe)) |
101 |
|
elt)) |
102 |
|
auto-mode-alist)))) |
103 |
|
(if (assoc-default buffer-file-name mode-alist 'string-match) |
104 |
|
(let ((auto-mode-alist mode-alist)) |
105 |
|
(set-auto-mode) |
106 |
|
(image-minor-mode t)) |
107 |
|
(image-mode)))) |
108 |
|
|
109 |
|
(defun image-toggle-display-text () |
110 |
|
"Showing the text of the image file." |
111 |
|
(if (get-text-property (point-min) 'display) |
112 |
|
(image-toggle-display))) |
113 |
|
|
114 |
(defun image-toggle-display () |
(defun image-toggle-display () |
115 |
"Start or stop displaying an image file as the actual image. |
"Start or stop displaying an image file as the actual image. |
126 |
(set-buffer-modified-p modified) |
(set-buffer-modified-p modified) |
127 |
(kill-local-variable 'cursor-type) |
(kill-local-variable 'cursor-type) |
128 |
(kill-local-variable 'truncate-lines) |
(kill-local-variable 'truncate-lines) |
129 |
(message "Repeat this command to go back to displaying the image")) |
(if (called-interactively-p) |
130 |
|
(message "Repeat this command to go back to displaying the image"))) |
131 |
;; Turn the image data into a real image, but only if the whole file |
;; Turn the image data into a real image, but only if the whole file |
132 |
;; was inserted |
;; was inserted |
133 |
(let* ((data |
(let* ((data |
143 |
;; read-only when we're visiting the file (as |
;; read-only when we're visiting the file (as |
144 |
;; opposed to just inserting it). |
;; opposed to just inserting it). |
145 |
read-only t front-sticky (read-only))) |
read-only t front-sticky (read-only))) |
146 |
|
(inhibit-read-only t) |
147 |
(buffer-undo-list t) |
(buffer-undo-list t) |
148 |
(modified (buffer-modified-p))) |
(modified (buffer-modified-p))) |
149 |
(add-text-properties (point-min) (point-max) props) |
(add-text-properties (point-min) (point-max) props) |
154 |
;; This just makes the arrow displayed in the right fringe |
;; This just makes the arrow displayed in the right fringe |
155 |
;; area look correct when the image is wider than the window. |
;; area look correct when the image is wider than the window. |
156 |
(setq truncate-lines t) |
(setq truncate-lines t) |
157 |
(message "Repeat this command to go back to displaying the file as text")))) |
(if (called-interactively-p) |
158 |
|
(message "Repeat this command to go back to displaying the file as text"))))) |
159 |
|
|
160 |
(provide 'image-mode) |
(provide 'image-mode) |
161 |
|
|