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
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
|
;;; flymake-js.el --- Flymake setup for javascript files
;;
;; Author: Lennart Borgman
;; Created: Sun Dec 02 07:52:52 2007
;; Version:
;; Last-Updated:
;; URL:
;; Keywords:
;; Compatibility:
;;
;; Features that might be required by this library:
;;
;; None
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Commentary:
;;
;; This library provides basic setup for using `flymake-mode' with
;; javascript files. To use this you must have a javascript
;; installed. There are (at least) two free javascript engines (both
;; from Mozill) you can use, Rhino (implemented in Java) or
;; SpiderMonkey (implemented in C). Both are supported in this
;; library.
;;
;; I have not been able to find binaries for SpiderMonkeys to
;; download. However the Rhino engine seems fast enough and is easy to
;; install. You find them at
;;
;; http://www.mozilla.org/rhino/
;; http://www.mozilla.org/js/spidermonkey/
;;
;; Put this file in your Emacs `load-path' and then in .emacs
;;
;; (require 'flymake-js)
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; 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:
;; Flymake JS mode
(require 'flymake)
(defconst flymake-js-dir
(file-name-directory (or load-file-name
(when (boundp 'bytecomp-filename) bytecomp-filename)
buffer-file-name))
"Installation directory for flymake-js.")
;;;###autoload
(defgroup flymake-js nil
"Customization group for flymake for javascript."
:group 'flymake)
(defcustom flymake-allowed-js-file-name-masks '(("\\.json\\'" flymake-js-init)
("\\.js\\'" flymake-js-init))
"Filename extensions that switch on js syntax checks."
:type '(repeat (list (regexp :tag "File name regexp")
(function :tag "Init function")
(choice (const :tag "No cleanup function" nil)
(function :tag "Cleanup function"))))
:group 'flymake-js)
(defvar flymake-js-err-line-pattern-re
'(;; These pattern are probably for Rhino:
("^js: \"\\(.+\\)\", line \\([0-9]+\\): \\(.+\\)$" 1 2 nil 3)
("^js: uncaught JavaScript \\(.+\\)$" nil nil nil 1)
;; For Rhino with jslint.js
("^Lint at line \\([[:digit:]]+\\) character \\([[:digit:]]+\\): \\(.+\\)$" nil 1 2 3)
;; These pattern are probably for SpiderMonkey:
("^\\(.+\\)\:\\([0-9]+\\)\: \\(SyntaxError\:.+\\)\:$" 1 2 nil 3)
("^\\(.+\\)\:\\([0-9]+\\)\: \\(strict warning: trailing comma.+\\)\:$" 1 2 nil 3))
"Regexp matching JavaScript error messages")
(defcustom flymake-js-rhino-jar "/path/to/js.jar"
"Path to Rihno jar file.
Download and install Rhino JavaScript engine from
URL `http://www.mozilla.org/rhino/'
This variable should point to the file js.jar that is in the top
directory of the Rhino dir tree. \(It was differently named
earlier and might perhaps be renamed again.)"
:type '(file :must-match t)
:group 'flymake-js)
;;(setq flymake-log-level 3)
;;(setq flymake-js-rhino-use-jslint nil)
(defcustom flymake-js-rhino-use-jslint nil
"Use jslint.js if this is non-nil.
jslint.js will give you warnings about style things like indentation too."
:type 'boolean
:group 'flymake-js)
(defcustom flymake-js-rhino-js (expand-file-name "rhino.js" flymake-js-dir)
"Path to rhino.js.
Only used if `flymake-js-rhino-use-jslint' is nil.
This file and env.js must be placed in the same directory. Default
is this directory.
Those files comes with Rhino, see `flymake-js-rhino-jar'."
:type '(file :must-match t)
:group 'flymake-js)
(defcustom flymake-js-rhino-jslint (expand-file-name "jslint.js" flymake-js-dir)
"Path to jslint.js.
Only used if `flymake-js-rhino-use-jslint' is t.
If you do not have this file you can download it from URL
`http://www.jslint.com/rhino/jslint.js'. I had to change quit(2)
to quit(0) in it \(which seems like a bug in `flymake-mode' to
me)."
:type '(file :must-match t)
:group 'flymake-js)
;;(flymake-js-check-rhino-js)
(defun flymake-js-check-rhino-js ()
"Checks that the path to env.js is ok."
(with-current-buffer (find-file-noselect flymake-js-rhino-js)
(let* ((proj-folder (file-name-as-directory (file-name-directory (buffer-file-name))))
(proj-line (concat "var project_folder = 'file:///" proj-folder "';"))
(proj-line-re "^\\W*var\\W+project_folder\\W*=\\W*"))
(save-restriction
(widen)
(goto-char (point-max))
(if (re-search-backward proj-line-re nil t)
(let ((beg (line-beginning-position))
(end (line-end-position)))
(unless (string= (buffer-substring-no-properties beg end)
proj-line)
(delete-region beg end)
(insert proj-line)
(basic-save-buffer)))
(goto-char (point-min))
(insert proj-line "\n")
(basic-save-buffer))))))
(defcustom flymake-js-engine 'rhino
"Javascript engine to use.
You may have to restart Emacs after changing this - if you can
not figure out what buffers and processes to kill.
I have only been able to test Rhino since I do not have
SpiderMonkey."
:type '(choice (const :tag "Rhino" rhino)
(const :tag "SpiderMonkey" spidermonkey))
:group 'flymake-js)
(defun flymake-js-init ()
(message "running flymake-js-init")
(let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace))
(local-file (file-relative-name
temp-file
(file-name-directory buffer-file-name))))
(flymake-js-check-has-engine)
(cond
((eq flymake-js-engine 'rhino)
(list "java" (list "-jar" flymake-js-rhino-jar
(if flymake-js-rhino-use-jslint
flymake-js-rhino-jslint
flymake-js-rhino-js)
local-file)))
((eq flymake-js-engine 'spidermonkey)
(list "js" (list "-s" local-file)))
(t
(error "Bad value: %s" flymake-js-engine)))))
(defvar flymake-js-has-engine nil)
(defun flymake-js-check-has-engine ()
"Check for the needed files."
(if flymake-js-has-engine
t
(cond
;; Rhino
((eq flymake-js-engine 'rhino)
(unless (executable-find "java")
(error "Could not find java executable"))
(unless (file-exists-p flymake-js-rhino-jar)
(error "Could not find file %s\n\nPlease customize flymake-js-rhino-jar\n"
flymake-js-rhino-jar))
(if flymake-js-rhino-use-jslint
(unless (file-exists-p flymake-js-rhino-jslint)
(error "Could not find file %s" flymake-js-rhino-jslint))
(unless (file-exists-p flymake-js-rhino-js)
(error "Could not find file %s" flymake-js-rhino-js))
(flymake-js-check-rhino-js)))
;; SpiderMonkey
((eq flymake-js-engine 'spidermonkey)
(unless (executable-find "js")
(error "Could not find js program")))
(t
(error "Bad value: %s" flymake-js-engine)))
(setq flymake-js-has-engine t)))
;;;###autoload
(defun flymake-js-load ()
(dolist (rec flymake-allowed-js-file-name-masks)
(add-to-list 'flymake-allowed-file-name-masks rec))
(dolist (rec flymake-js-err-line-pattern-re)
(add-to-list 'flymake-err-line-patterns rec)))
;;(eval-after-load 'javascript (flymake-js-load))
(provide 'flymake-js)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; flymake-js.el<2> ends here
|
