annotate lisp/iimage.el @ 84809:9aea21ba9bff

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Sun, 23 Sep 2007 15:20:30 +0000
parents 9355f9b7bbff
children 73661ddc7ac7 13163bbed0bf
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
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74256
diff changeset
3 ;; Copyright (C) 2004, 2005, 2006, 2007 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
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
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
78236
9355f9b7bbff Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75347
diff changeset
13 ;; the Free Software Foundation; either version 3, or (at your option)
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
14 ;; any later version.
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
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61272
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61272
diff changeset
24 ;; Boston, MA 02110-1301, USA.
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
25
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
27
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
28 ;; 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
29 ;; exists in the buffer.
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
30 ;; http://www.netlaputa.ne.jp/~kose/Emacs/iimage.html
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
31 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
32 ;; Add to your `~/.emacs':
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
33 ;; (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
34 ;; (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
35 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
36 ;; ** Display images in *Info* buffer.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
37 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
38 ;; (add-hook 'info-mode-hook 'turn-on-iimage-mode)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
39 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
40 ;; .texinfo: @file{file://foo.png}
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
41 ;; .info: `file://foo.png'
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
42 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
43 ;; ** Display images in Wiki buffer.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
44 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
45 ;; (add-hook 'wiki-mode-hook 'turn-on-iimage-mode)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
46 ;;
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
47 ;; wiki-file: [[foo.png]]
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
48
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
49 ;;; Code:
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
50
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
51 (eval-when-compile
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
52 (require 'image-file))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
53
61272
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
54 (defgroup iimage nil
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
55 "Support for inline images."
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
56 :version "22.1"
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
57 :group 'image)
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
58
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
59 (defconst iimage-version "1.1")
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
60 (defvar iimage-mode nil)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
61 (defvar iimage-mode-map nil)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
62
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
63 ;; Set up key map.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
64 (unless iimage-mode-map
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
65 (setq iimage-mode-map (make-sparse-keymap))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
66 (define-key iimage-mode-map "\C-l" 'iimage-recenter))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
67
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
68 (defun iimage-recenter (&optional arg)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
69 "Re-draw images and recenter."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
70 (interactive "P")
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
71 (iimage-mode-buffer 0)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
72 (iimage-mode-buffer 1)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
73 (recenter arg))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
74
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
75 (defvar iimage-mode-image-filename-regex
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
76 (concat "[-+./_0-9a-zA-Z]+\\."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
77 (regexp-opt (nconc (mapcar #'upcase
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
78 image-file-name-extensions)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
79 image-file-name-extensions)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
80 t)))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
81
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
82 (defvar iimage-mode-image-regex-alist
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
83 `((,(concat "\\(`?file://\\|\\[\\[\\|<\\|`\\)?"
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
84 "\\(" iimage-mode-image-filename-regex "\\)"
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
85 "\\(\\]\\]\\|>\\|'\\)?") . 2))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
86 "*Alist of filename REGEXP vs NUM.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
87 Each element looks like (REGEXP . NUM).
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
88 NUM specifies which parenthesized expression in the regexp.
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
89
74256
9b80e932389f (iimage-mode-image-regex-alist): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 68651
diff changeset
90 Examples of image filename regexps:
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
91 file://foo.png
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
92 `file://foo.png'
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
93 \\[\\[foo.gif]]
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
94 <foo.png>
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
95 foo.JPG
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
96 ")
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
97
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
98 (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
99 "*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
100
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
101 ;;;###autoload
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
102 (defun turn-on-iimage-mode ()
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
103 "Unconditionally turn on iimage mode."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
104 (interactive)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
105 (iimage-mode 1))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
106
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
107 (defun turn-off-iimage-mode ()
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
108 "Unconditionally turn off iimage mode."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
109 (interactive)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
110 (iimage-mode 0))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
111
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
112 ;; Emacs21.3 or earlier does not heve locate-file.
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
113 (if (fboundp 'locate-file)
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
114 (defalias 'iimage-locate-file 'locate-file)
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
115 (defun iimage-locate-file (filename path)
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
116 (locate-library filename t path)))
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
117
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
118 (defun iimage-mode-buffer (arg)
74256
9b80e932389f (iimage-mode-image-regex-alist): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 68651
diff changeset
119 "Display/undisplay images.
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
120 With numeric ARG, display the images if and only if ARG is positive."
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
121 (interactive)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
122 (let ((ing (if (numberp arg)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
123 (> arg 0)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
124 iimage-mode))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
125 (modp (buffer-modified-p (current-buffer)))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
126 file buffer-read-only)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
127 (save-excursion
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
128 (goto-char (point-min))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
129 (dolist (pair iimage-mode-image-regex-alist)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
130 (while (re-search-forward (car pair) nil t)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
131 (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
132 (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
133 (cons default-directory
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
134 iimage-mode-image-search-path))))
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
135 (if ing
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
136 (add-text-properties (match-beginning 0) (match-end 0)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
137 (list 'display (create-image file)))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
138 (remove-text-properties (match-beginning 0) (match-end 0)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
139 '(display)))))))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
140 (set-buffer-modified-p modp)))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
141
56331
401149ed59c0 (turn-on-iimage-mode, iimage-mode): Add autoload cookies.
Eli Zaretskii <eliz@gnu.org>
parents: 55532
diff changeset
142 ;;;###autoload
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
143 (define-minor-mode iimage-mode
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
144 "Toggle inline image minor mode."
61272
3933597e185e (iimage): New customization group.
Lute Kamstra <lute@gnu.org>
parents: 56331
diff changeset
145 :group 'iimage :lighter " iImg" :keymap iimage-mode-map
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
146 (run-hooks 'iimage-mode-hook)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
147 (iimage-mode-buffer iimage-mode))
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
148
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
149 (provide 'iimage)
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
150
55532
c9cc17f13ff4 Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents: 55525
diff changeset
151 ;;; arch-tag: f6f8e29a-08f6-4a12-9496-51e67441ce65
55525
fd93f77c8cc4 New file.
Eli Zaretskii <eliz@gnu.org>
parents:
diff changeset
152 ;;; iimage.el ends here