blob: e624e9f842c93c24ff37a04095707b34062ef08f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
;;; gimpedit.el --- Edit files with GIMP
;;
;; Author: Lennart Borgman (lennart O borgman A gmail O com)
;; Created: Wed May 23 14:59:50 2007
(defconst gimpedit:version "0.31") ;;Version:
;; Last-Updated: 2009-11-03 Tue
;; URL:
;; Keywords:
;; Compatibility:
;;
;; Features that might be required by this library:
;;
;; `setup-helper', `w32-reg-iface', `w32-regdat'.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;
;; Simple interface to start editing with GIMP.
;;
;; If you want to edit files from within Emacs see the doc string of
;; `gimpedit-edit-buffer'.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Change log:
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Code:
(eval-and-compile (require 'w32-regdat nil t))
;; (message "%S" (gimpedit-get-remote-command))
(defun gimpedit-get-remote-command ()
(if (featurep 'w32-regdat)
(save-match-data
(let ((cmd (w32-regdat-gimp-win-remote-cmd))
cmd-list)
(while (< 0 (length cmd))
(cond
((or (string-match (rx string-start
?\"
(submatch
(0+ (not (any ?\"))))
?\"
(0+ space))
cmd)
(string-match (rx string-start
(submatch
(0+ (not (any space))))
(0+ space))
cmd))
(setq cmd-list (cons (match-string-no-properties 1 cmd) cmd-list))
(setq cmd (substring cmd (match-end 0))))))
(cadr cmd-list)))
(if (memq system-type '(windows-nt))
(let (prog)
(catch 'found-prog
(dolist (num '(2 3 4 5 6 7 8 9))
(setq prog (concat (getenv "ProgramFiles")
"\\GIMP-2.0\\bin\\gimp-2."
(number-to-string num)
".exe"))
(when (file-exists-p prog)
(throw 'found-prog prog)))))
"gimp")))
;;;###autoload
(defgroup gimpedit nil
"Customization group for GIMP."
:group 'external
:group 'nxhtml)
(defcustom gimpedit-remote-command (gimpedit-get-remote-command)
"Program name to use when calling GIMP remotely.
This could be be the full path to the program used when opening
files with GIMP or a just the program file name if it is in the
executables path.
Example:
The value is fetched from the registry on MS Windows if
possible or is else given the default value:
\"C:\\Program Files\\GIMP-2.0\\bin\\gimp-2.6.exe\"
On other system it has the default value
\"gimp\"."
:type '(choice (file :tag "Full file name" :must-match t)
(string :tag "File name (must be in path)"))
:group 'gimpedit)
;;;###autoload
(defun gimpedit-edit-file (image-file &optional extra-args)
"Edit IMAGE-FILE with GIMP.
See also `gimpedit-edit-file'."
(interactive (list (or (get-char-property (point) 'image-file)
(read-file-name "Image to edit in GIMP: "))))
(setq image-file (expand-file-name image-file))
(apply 'call-process gimpedit-remote-command
nil
0
nil
(reverse (cons image-file (reverse extra-args))))
(let ((msg " Asked GIMP to open %s - you may have to switch to GIMP"))
(put-text-property 0 (length msg) 'face 'highlight msg)
(message msg (file-name-nondirectory image-file))))
;;;###autoload
(defun gimpedit-edit-buffer ()
"Edit image file in current buffer with GIMP.
See also `gimpedit-edit-file'.
You may also be interested in gimpedit-mode with which you can edit
gimp files from within Emacs using GIMP's scripting
possibilities. See
URL `http://www.emacswiki.org/emacs/GimpMode'"
(interactive)
(unless (buffer-file-name)
(error
"Can't edit in GIMP because this buffer does not have a file name."))
(gimpedit-edit-file (buffer-file-name)))
;;;###autoload
(defun gimpedit-can-edit (file-name)
(and file-name
(member (downcase (file-name-extension file-name))
'("png" "gif" "jpg" "jpeg"))))
;; (defcustom gimpedit-point-key-bindings '(([(control ?c) ?&] gimpedit-edit-file))
;; "Key bindings suggested for image links etc."
;; :type '(repeat (list key-sequence function))
;; :group 'gimpedit)
;; (defun gimpedit-add-point-bindings (map)
;; "Add `gimpedit-point-key-bindings' to point keymap MAP.
;; Set it up like this:
;; (eval-after-load 'gimpedit
;; '(gimpedit-add-point-bindings MY-MAP))
;; There must also be a character property `image-file' at point for this
;; to work."
;; (dolist (binding gimpedit-point-key-bindings)
;; (let ((key (nth 0 binding))
;; (fun (nth 1 binding)))
;; (define-key map key fun))))
(provide 'gimpedit)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; gimpedit.el ends here
|
