|
0
|
1 ;;; hm--html-configuration.el - Configurationfile for the html-mode
|
|
2
|
2 ;;;
|
|
153
|
3 ;;; $Id: hm--html-configuration.el,v 1.6 1997/05/29 23:49:42 steve Exp $
|
|
2
|
4 ;;;
|
|
98
|
5 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel
|
|
0
|
6 ;;; email: muenkel@tnt.uni-hannover.de
|
|
|
7 ;;;
|
|
|
8 ;;; This program is free software; you can redistribute it and/or modify
|
|
|
9 ;;; it under the terms of the GNU General Public License as published by
|
|
|
10 ;;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
11 ;;; any later version.
|
|
|
12 ;;;
|
|
|
13 ;;; This program is distributed in the hope that it will be useful,
|
|
|
14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
16 ;;; GNU General Public License for more details.
|
|
|
17 ;;;
|
|
|
18 ;;; You should have received a copy of the GNU General Public License
|
|
|
19 ;;; along with this program; if not, write to the Free Software
|
|
|
20 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
21 ;;;
|
|
|
22 ;;;
|
|
|
23 ;;; Description:
|
|
|
24 ;;;
|
|
2
|
25 ;;; This file is for the system wide configuration of the html mode.
|
|
|
26 ;;; User specific configuration should be done in the file
|
|
116
|
27 ;;; ~/.hm--html-configuration.el, which precedes the settings in
|
|
2
|
28 ;;; this file.
|
|
|
29 ;;; All settings in this file are done with defvar's, therefore
|
|
|
30 ;;; you could overwrite them also with the function setq in your
|
|
|
31 ;;; .emacs or default.el and so on.
|
|
0
|
32 ;;;
|
|
|
33 ;;; Installation:
|
|
|
34 ;;;
|
|
|
35 ;;; Put this file in one of your lisp load path directories or
|
|
|
36 ;;; set the environment variable HTML_CONFIG_FILE to this file.
|
|
|
37 ;;; For example:
|
|
|
38 ;;; setenv HTML_CONFIG_FILE "~/data/hm--htm-environment.el"
|
|
|
39 ;;; if you have put this file in the directory "~/data/"
|
|
|
40 ;;;
|
|
|
41
|
|
2
|
42 ;(require 'adapt)
|
|
0
|
43
|
|
|
44
|
|
153
|
45
|
|
2
|
46 ;;; The User config file (an proposal of Manoj Srivastava)
|
|
0
|
47 (defvar hm--html-user-config-file nil
|
|
|
48 "*The location of the users config file.
|
|
|
49 This variable will only be used, if no environment variable
|
|
|
50 \"HTML_USER_CONFIG_FILE\" is set.
|
|
|
51 Example value: \"~/.hm--html-configuration.el\".")
|
|
|
52
|
|
98
|
53 ;;; The site specific config file
|
|
|
54 (defvar hm--html-site-config-file nil
|
|
|
55 "*The location of a site specific config file.
|
|
|
56 This variable will only be used, if no environment variable
|
|
|
57 \"HTML_SITE_CONFIG_FILE\" is set.")
|
|
0
|
58
|
|
2
|
59 ;;; Chose the initial popup menu
|
|
0
|
60 (defvar hm--html-expert nil
|
|
|
61 "*t : Use the HTML expert popup menu,
|
|
|
62 nil : Use the HTML novice (simple) menu.
|
|
|
63
|
|
2
|
64 NOTE: In the Emacs 19 you should set this variable only before
|
|
|
65 loading the mode.")
|
|
0
|
66
|
|
|
67 ;;; Your Signature
|
|
|
68
|
|
|
69 (defvar hm--html-signature-file nil
|
|
|
70 "*Your Signature file.
|
|
|
71 For example: \"http://www.tnt.uni-hannover.de:80/data/info/www/tnt/info/tnt/whois/muenkel.html\".")
|
|
|
72
|
|
|
73
|
|
|
74 (defvar hm--html-username nil
|
|
|
75 "*Your Name for the signature. For example: \"Heiko Münkel\".")
|
|
|
76
|
|
|
77
|
|
100
|
78 ;;; HTML Doctype
|
|
|
79 (defvar hm--html-html-doctype-version "-//W3C//DTD HTML 3.2 Final//EN"
|
|
|
80 "The HTML version. This is used in the doctype element.")
|
|
|
81
|
|
|
82
|
|
0
|
83 ;;; Your favorite server (eg: the name of the host of your own http server)
|
|
|
84 ;;; This is used in some other variables
|
|
|
85
|
|
|
86 (defvar hm--html-favorite-http-server-host-name "www.tnt.uni-hannover.de"
|
|
|
87 "*The name of your favorite http server host. It must be specified !")
|
|
|
88
|
|
|
89
|
|
|
90 ;;; For links to Info Gateways
|
|
|
91
|
|
2
|
92 (defvar hm--html-info-hostname:port-alist '(("www.tnt.uni-hannover.de:8005"))
|
|
0
|
93 "*Alist with hostnames and ports for the Info gateway.")
|
|
|
94
|
|
2
|
95 (defvar hm--html-info-hostname:port-default "www.tnt.uni-hannover.de:8005"
|
|
0
|
96 "*Default hostname with port for the Info gateway.")
|
|
|
97
|
|
2
|
98 (defvar hm--html-info-path-alist '((1 . "/appl/lemacs/Global/emacs/info")
|
|
|
99 (2 . "/appl/emacs/info")
|
|
|
100 (3 . "/appl/gnu/Global/info")
|
|
|
101 (4 . "/appl/emacs-19/Global/info")
|
|
|
102 (5 . "/"))
|
|
0
|
103 "*Alist with directories for the Info gateway.")
|
|
|
104
|
|
|
105
|
|
|
106 ;;; For links to WAIS Gateways
|
|
|
107
|
|
2
|
108 (defvar hm--html-wais-hostname:port-alist '(("www.tnt.uni-hannover.de:8001")
|
|
|
109 ("info.cern.ch:8001"))
|
|
0
|
110 "*Alist with hostnames and ports for the WAIS gateway.")
|
|
|
111
|
|
2
|
112 (defvar hm--html-wais-hostname:port-default "www.tnt.uni-hannover.de:8001"
|
|
0
|
113 "*Default hostname with port for the WAIS gateway.")
|
|
|
114
|
|
2
|
115 (defvar hm--html-wais-servername:port-alist
|
|
|
116 '(("wais.tnt.uni-hannover.de:210")
|
|
|
117 ("daedalus.tnt.uni-hannover.de:21408")
|
|
|
118 ("ikarus.tnt.uni-hannover.de:21401"))
|
|
0
|
119 "*Alist with servernames and ports for the WAIS gateway.")
|
|
|
120
|
|
2
|
121 (defvar hm--html-wais-servername:port-default "www.tnt.uni-hannover.de:210"
|
|
0
|
122 "*Default servername with port for the WAIS gateway.")
|
|
|
123
|
|
|
124 (defvar hm--html-wais-path-alist nil
|
|
|
125 "*Alist with directories for the wais gateway.")
|
|
|
126
|
|
|
127
|
|
|
128 ;;; For links to HTML servers
|
|
|
129
|
|
2
|
130 (defvar hm--html-html-hostname:port-alist '(("www.tnt.uni-hannover.de:80")
|
|
|
131 ("vxcrna.cern.ch:80")
|
|
|
132 ("www.ncsa.uiuc.edu:80"))
|
|
0
|
133 "*Alist with hostnames and ports for the HTML server.")
|
|
|
134
|
|
2
|
135 (defvar hm--html-html-hostname:port-default "www.tnt.uni-hannover.de:80"
|
|
0
|
136 "*Default hostname with port for the HTML server.")
|
|
|
137
|
|
2
|
138 (defvar hm--html-html-path-alist '((1 . "/data/info/www/tnt/")
|
|
|
139 (2 . "/data/info/www/")
|
|
|
140 (3 . "/data/info/")
|
|
|
141 (4 . "/data/")
|
|
|
142 (5 . "/appl/")
|
|
|
143 (6 . "/project/")
|
|
|
144 (7 . "~/")
|
|
|
145 (8 . "/"))
|
|
0
|
146 "*Alist with directories for the HTML server.")
|
|
|
147
|
|
|
148
|
|
|
149 ;;; For links to file gateways
|
|
|
150
|
|
2
|
151 (defvar hm--html-file-path-alist '((1 . "/data/info/www/tnt/")
|
|
|
152 (2 . "/data/info/www/")
|
|
|
153 (3 . "/data/info/")
|
|
|
154 (4 . "/data/")
|
|
|
155 (5 . "/appl/")
|
|
|
156 (6 . "/project/")
|
|
|
157 (7 . "~/")
|
|
|
158 (8 . "/"))
|
|
0
|
159 "*Alist with directories for the file gateway.")
|
|
|
160
|
|
|
161
|
|
|
162 ;;; For links to ftp servers
|
|
|
163
|
|
2
|
164 (defvar hm--html-ftp-hostname:port-alist '(("ftp.tnt.uni-hannover.de")
|
|
|
165 ("ftp.rrzn.uni-hannover.de")
|
|
|
166 ("wega.informatik.uni-hannover.de")
|
|
|
167 ("rusmv1.rus.uni-stuttgart.de")
|
|
|
168 ("export.lcs.mit.edu")
|
|
|
169 )
|
|
0
|
170 "*Alist with hostnames and ports for the ftp server.")
|
|
|
171
|
|
2
|
172 (defvar hm--html-ftp-hostname:port-default "ftp.rrzn.uni-hannover.de"
|
|
0
|
173 "*Default hostname with port for the ftp server.")
|
|
|
174
|
|
2
|
175 (defvar hm--html-ftp-path-alist '((1 . "/pub")
|
|
|
176 (2 . "/pub/gnu")
|
|
|
177 (3 . "/pub/linux")
|
|
|
178 (4 . "/pub/unix")
|
|
|
179 (5 . "/incoming")
|
|
|
180 (6 . "/"))
|
|
0
|
181 "*Alist with directories for the ftp server.")
|
|
|
182
|
|
|
183
|
|
|
184 ;;; For links to gopher servers
|
|
|
185
|
|
2
|
186 (defvar hm--html-gopher-hostname:port-alist
|
|
|
187 '(("newsserver.rrzn.uni-hannover.de:70")
|
|
|
188 ("solaris.rz.tu-clausthal.de:70")
|
|
|
189 ("veronica.scs.unr.edu:70")
|
|
|
190 ("pinus.slu.se:70")
|
|
|
191 ("sunic.sunet.se:70")
|
|
|
192 )
|
|
0
|
193 "*Alist with hostnames and ports for the gopher server.")
|
|
|
194
|
|
116
|
195 (defvar hm--html-gopher-hostname:port-default
|
|
|
196 "newsserver.rrzn.uni-hannover.de:70"
|
|
|
197 "*Default hostname with port for the gopher server.")
|
|
|
198
|
|
2
|
199 (defvar hm--html-gopher-doctype-alist '(("/1")
|
|
|
200 ("/11")
|
|
|
201 ("/00"))
|
|
0
|
202 "*Alist with doctype strings for the gopher server.")
|
|
|
203
|
|
2
|
204 (defvar hm--html-gopher-doctype-default "/1"
|
|
0
|
205 "*Default doctype string for the gopher server.")
|
|
|
206
|
|
2
|
207 (defvar hm--html-gopher-anchor-alist
|
|
|
208 '(("veronica")
|
|
|
209 ("Wide%20Area%20Information%20Services%20databases")
|
|
|
210 ("Subject%20Tree"))
|
|
0
|
211 "*Alist with directories for the gopher server.")
|
|
|
212
|
|
|
213
|
|
|
214 ;;; For the links to the Program Gateway
|
|
|
215
|
|
2
|
216 (defvar hm--html-proggate-hostname:port-alist
|
|
|
217 '(("www.tnt.uni-hannover.de:8007")
|
|
|
218 )
|
|
0
|
219 "*Alist with hostnames and ports for the proggate server.")
|
|
|
220
|
|
2
|
221 (defvar hm--html-proggate-hostname:port-default "www.tnt.uni-hannover.de:8007"
|
|
0
|
222 "*Default hostname with port for the proggate server.")
|
|
|
223
|
|
2
|
224 (defvar hm--html-proggate-allowed-file "/appl/www/bin/proggate.allowed"
|
|
0
|
225 "*The filename (with path) of the proggate allowed file.")
|
|
|
226
|
|
|
227
|
|
|
228 ;;; For links to the Local Program Gatewy
|
|
|
229
|
|
2
|
230 (defvar hm--html-local-proggate-path-alist '((1 . "/bin/")
|
|
|
231 (2 . "/usr/bin/")
|
|
|
232 (3 . "/usr/local/bin/")
|
|
|
233 (4 . "/appl/util/bin/")
|
|
|
234 (5 . "/appl/gnu/Global/bin/")
|
|
|
235 (6 . "/")
|
|
|
236 (7 . "/appl/")
|
|
|
237 (8 . "~/appl/Global/bin/")
|
|
|
238 (9 . "~/"))
|
|
0
|
239 "*Alist with directories for the local program gateway.")
|
|
|
240
|
|
|
241
|
|
|
242 ;;; For links to the mail gateway
|
|
|
243
|
|
2
|
244 (defvar hm--html-mail-hostname:port-alist '(("www.tnt.uni-hannover.de:8003")
|
|
|
245 )
|
|
0
|
246 "*Alist with hostnames and ports for the mail gateway.")
|
|
|
247
|
|
2
|
248 (defvar hm--html-mail-hostname:port-default "www.tnt.uni-hannover.de:8003"
|
|
0
|
249 "*Default hostname with port for the mail gateway.")
|
|
|
250
|
|
2
|
251 (defvar hm--html-mail-path-alist '((1 . "~/data/docs/mail")
|
|
|
252 (2 . "~/data/docs/news")
|
|
|
253 (3 . "~/docs/mail")
|
|
|
254 (4 . "~/docs/news")
|
|
|
255 (5 . "~/mail")
|
|
|
256 (6 . "~/news")
|
|
|
257 (7 . "~/")
|
|
|
258 (8 . "/data/info/mail")
|
|
|
259 (9 . "/data/info/news")
|
|
|
260 (10 . "/"))
|
|
0
|
261 "*Alist with directories for the mail gateway.")
|
|
|
262
|
|
|
263
|
|
|
264 ;;; For mailto links
|
|
|
265
|
|
2
|
266 (defvar hm--html-mailto-alist '(("muenkel@tnt.uni-hannover.de"))
|
|
0
|
267 "*Alist with mail adresses for the mailto alist.
|
|
|
268 The value of `user-mail-address' will also be added by the package to
|
|
|
269 this alist.")
|
|
|
270
|
|
|
271
|
|
|
272 ;;; For the server side include directive
|
|
2
|
273 ;;; not sure, if these directives works on any server
|
|
0
|
274
|
|
2
|
275 (defvar hm--html-server-side-include-command-alist '(("/bin/date")
|
|
|
276 ("/usr/bin/finger")
|
|
|
277 ("/bin/df"))
|
|
0
|
278 "*Alist with commands for the server side include directive.
|
|
|
279 These commands needs no parameter.")
|
|
|
280
|
|
2
|
281 (defvar hm--html-server-side-include-command-with-parameter-alist
|
|
|
282 '(("/usr/bin/man")
|
|
|
283 ("/usr/bin/finger")
|
|
|
284 ("/usr/bin/ls")
|
|
|
285 ("/bin/cat"))
|
|
0
|
286 "*Alist with commands for the server side include directive.
|
|
|
287 These commands needs parameters.")
|
|
|
288
|
|
|
289
|
|
|
290 ;;; Alist with URL'S for FORMS and IMAGE tags
|
|
|
291
|
|
2
|
292 (defvar hm--html-url-alist
|
|
|
293 (list
|
|
|
294 '("http://hoohoo.ncsa.uiuc.edu/htbin-post/post-query"
|
|
|
295 POST)
|
|
|
296 '("http://hoohoo.ncsa.uiuc.edu/htbin/query"
|
|
|
297 GET)
|
|
|
298 (list
|
|
|
299 (concat "http://"
|
|
|
300 hm--html-favorite-http-server-host-name
|
|
|
301 "/")
|
|
|
302 'IMAGE))
|
|
0
|
303 "*Alist with URL's for FORMS and IMAGE tags.
|
|
|
304 The cdr of each list contains symbols, which specifys the use of the
|
|
|
305 URL.")
|
|
|
306
|
|
|
307
|
|
|
308 ;;; For the marking of examples in the help buffer
|
|
|
309
|
|
|
310 (defvar hm--html-help-foreground "red"
|
|
|
311 "The foreground color to highlight examples.")
|
|
|
312
|
|
|
313 (defvar hm--html-help-background nil
|
|
|
314 "The background color to highlight examples.")
|
|
|
315
|
|
|
316 (defvar hm--html-help-font (face-font 'bold)
|
|
|
317 "The font to highlight examples.")
|
|
|
318
|
|
|
319
|
|
|
320 ;;; For the Templates
|
|
|
321
|
|
2
|
322 (defvar hm--html-template-dir "/data/info/www/tnt/guide/templates"
|
|
98
|
323 "*A directory with templatefiles.
|
|
|
324 It is now also possible to use it as a list of directories.
|
|
|
325 Look at the variable `tmpl-template-dir-list' for further descriptions.")
|
|
0
|
326
|
|
98
|
327 (if (listp hm--html-template-dir)
|
|
|
328 (unless (file-exists-p (car hm--html-template-dir))
|
|
|
329 ;; Use a system directory, if the above one doesn't exist
|
|
|
330 ;; This may only be useful, in the XEmacs >= 19.12
|
|
|
331 (setq hm--html-template-dir (cons (concat data-directory
|
|
|
332 "../lisp/hm--html-menus/")
|
|
|
333 hm--html-template-dir)))
|
|
|
334 (unless (file-exists-p hm--html-template-dir)
|
|
0
|
335 ;; Use a system directory, if the above one doesn't exist
|
|
98
|
336 ;; This may only be useful, in the XEmacs >= 19.12
|
|
0
|
337 (setq hm--html-template-dir (concat data-directory
|
|
98
|
338 "../lisp/hm--html-menus/"))))
|
|
0
|
339
|
|
98
|
340 (defvar hm--html-frame-template-file (concat data-directory
|
|
|
341 "../lisp/hm--html-menus/"
|
|
116
|
342 "frame.html.tmpl")
|
|
0
|
343 "File, which is used as template for a html frame.")
|
|
|
344
|
|
2
|
345 (defvar hm--html-automatic-expand-templates t
|
|
0
|
346 "*Automatic expansion of templates. This feature needs the file
|
|
|
347 tmpl-minor-mode.el from Heiko Muenkel (muenkel@tnt.uni-hannover.de),
|
|
|
348 which is distributed with the package hm--html-menus.")
|
|
|
349
|
|
98
|
350 (defvar hm--html-template-filter-regexp ".*\\.html\\.tmpl$"
|
|
|
351 "*Regexp for filtering out non template files in a directory.")
|
|
0
|
352
|
|
|
353 ;;; for deleting the automounter path-prefix
|
|
2
|
354 (defvar hm--html-delete-wrong-path-prefix '("/tmp_mnt" "/phys/[^/]+")
|
|
0
|
355 "If non nil, it specifies path-prefixes, which should be deleted in pathes.
|
|
|
356 The Sun automounter adds a temporary prefix to the automounted directories
|
|
|
357 (At our site the prefix is /tmp_mnt). But you can't select such a path, if
|
|
|
358 the automounter has currently not mounted the directory and so you can't
|
|
|
359 follow a html-link, which consists of such a path. To overcome this behaviour,
|
|
|
360 you can set this variable to the prefix (eg. \"/tmp_mnt\"). After that, the
|
|
|
361 prefix should be stripped from the pathes during the creation of the links.
|
|
|
362 ATTENTION: This variable is used as regular expression !
|
|
|
363 It can be set to a string or to a list of strings.")
|
|
|
364
|
|
|
365
|
|
|
366 ;;; For insertation of created and changed comments and automatic
|
|
153
|
367 ;;; date update in the title line and a visible modification date
|
|
0
|
368
|
|
153
|
369 (defvar hm--html-automatic-create-title-date t
|
|
|
370 "*t => A date string will be inserted in the title line.
|
|
|
371 This will be updated each time before file saving, if
|
|
|
372 `hm--html-automatic-update-title-date' is also set to t.")
|
|
|
373
|
|
|
374 (defvar hm--html-automatic-update-title-date t
|
|
0
|
375 "*t => The date in the title line will be updated before filesaving.
|
|
|
376 nil => No automatic update of the date.")
|
|
|
377
|
|
153
|
378 (define-obsolete-variable-alias 'hm--html-automatic-new-date
|
|
|
379 'hm--html-automatic-update-title-date)
|
|
|
380
|
|
0
|
381 (defvar hm--html-automatic-changed-comment t
|
|
|
382 "*t => A \"changed comment\" line will be added before filesaving.
|
|
|
383 nil => No automatic insertation of a \"changed comment\" line.")
|
|
|
384
|
|
153
|
385 (defvar hm--html-changed-comment-prefix "Changed by: "
|
|
|
386 "*The prefix text of the \"changed comment\" lines.")
|
|
|
387
|
|
|
388 (defvar hm--html-created-comment-prefix "Created by: "
|
|
|
389 "*The prefix text of the \"created comment\" lines.")
|
|
|
390
|
|
|
391 (defvar hm--html-comment-infix nil
|
|
|
392 "*The infix (second part) of the \"changed/created comment\" lines.
|
|
|
393 By default, if this variable is nil, the username is used.
|
|
|
394 Then the infix looks like \"Heiko Münkel, \".
|
|
|
395 Set it to an empty string, if you don't want to have your name
|
|
|
396 in the comments.")
|
|
|
397
|
|
0
|
398 (defvar hm--html-automatic-created-comment t
|
|
|
399 "*t => A \"created comment\" line will be added.
|
|
|
400 nil => No automatic insertation of a \"created comment\" line.")
|
|
|
401
|
|
153
|
402 (defvar hm--html-automatic-create-modified-line nil
|
|
|
403 "*t => Inserts a visible \"modified\" line with the current date.
|
|
|
404 Visible means, that it is not a HTML comment.")
|
|
|
405
|
|
|
406 (defvar hm--html-automatic-update-modified-line nil
|
|
|
407 "*t => Updates a visible \"modified\" line with the current date.
|
|
|
408 Visible means, that it is not a HTML comment.")
|
|
|
409
|
|
|
410 (defvar hm--html-modified-prefix "Modified: "
|
|
|
411 "*Prefix of the last modified entry.")
|
|
|
412
|
|
|
413 (defvar hm--html-modified-start-tag "<EM>"
|
|
|
414 "*Start tag of the modified line.
|
|
|
415 If you change this, you'll need to change also
|
|
|
416 `hm--html-modified-end-tag'.")
|
|
|
417
|
|
|
418 (defvar hm--html-modified-end-tag "</EM>"
|
|
|
419 "*End tag of the modified line.
|
|
|
420 If you change this, you'll need to change also
|
|
|
421 `hm--html-modified-start-tag'.")
|
|
|
422
|
|
|
423 (defvar hm--html-modified-insert-before "</body>"
|
|
|
424 "Insert modified line before this string.
|
|
|
425 The search will be done from the end to the beginning.")
|
|
|
426
|
|
0
|
427
|
|
|
428 ;;; Keybindings:
|
|
|
429
|
|
|
430 (defvar hm--html-bind-latin-1-char-entities t
|
|
116
|
431 "Set this to nil, if you don't want to use the ISO Latin 1 character entities.
|
|
0
|
432 This is only useful, if `hm--html-use-old-keymap' is set to nil. It is only
|
|
|
433 used during loading the html package the first time.")
|
|
|
434
|
|
|
435
|
|
2
|
436 ;;; The drag and drop interface
|
|
|
437 (defvar hm--html-idd-create-relative-links t
|
|
|
438 "If t, then the hm--html-idd-* functions are creating relative links.
|
|
|
439 Otherwise absolute links are used. The idd functions are used for
|
|
|
440 drag and drop.")
|
|
0
|
441
|
|
2
|
442 (defvar hm--html-idd-actions
|
|
98
|
443 '((nil (((idd-if-major-mode-p . dired-mode)
|
|
|
444 (idd-if-dired-file-on-line-p . ".*\\.\\(gif\\)\\|\\(jpg\\)"))
|
|
2
|
445 hm--html-idd-add-include-image-from-dired-line)
|
|
98
|
446 (((idd-if-major-mode-p . dired-mode)
|
|
|
447 (idd-if-dired-no-file-on-line-p . nil))
|
|
2
|
448 hm--html-idd-add-file-link-to-file-on-dired-line)
|
|
98
|
449 (((idd-if-major-mode-p . dired-mode)
|
|
|
450 (idd-if-dired-no-file-on-line-p . t))
|
|
2
|
451 hm--html-idd-add-file-link-to-directory-of-buffer)
|
|
98
|
452 (((idd-if-major-mode-p . w3-mode)
|
|
|
453 (idd-if-url-at-point-p . t))
|
|
2
|
454 hm--html-idd-add-html-link-from-w3-buffer-point)
|
|
98
|
455 (((idd-if-major-mode-p . w3-mode))
|
|
2
|
456 hm--html-idd-add-html-link-to-w3-buffer)
|
|
98
|
457 (((idd-if-local-file-p . t))
|
|
2
|
458 hm--html-idd-add-file-link-to-buffer)))
|
|
98
|
459 "The action list for the destination mode `hm--html-mode'.
|
|
116
|
460 Look at the description of the variable idd-actions.")
|
|
0
|
461
|
|
2
|
462
|
|
|
463 ;;; The font lock keywords
|
|
|
464
|
|
98
|
465 (defconst hm--html-font-lock-keywords-1
|
|
2
|
466 (list
|
|
98
|
467 '("<!--.*-->" . font-lock-comment-face)
|
|
|
468 '("<[^>]*>" . font-lock-keyword-face)
|
|
|
469 '("<[^>=]*href[ \t\n]*=[ \t\n]*\"\\([^\"]*\\)\"" 1 font-lock-string-face t)
|
|
|
470 '("<[^>=]src[ \t\n]*=[ \t\n]*\"\\([^\"]*\\)\"" 1 font-lock-string-face t))
|
|
|
471 "Subdued level highlighting for hm--html-mode.")
|
|
|
472
|
|
|
473 (defconst hm--html-font-lock-keywords-2
|
|
|
474 (append hm--html-font-lock-keywords-1
|
|
|
475 (list
|
|
|
476 '(">\\([^<]*\\)</a>" 1 font-lock-reference-face)
|
|
|
477 '("</b>\\([^<]*\\)</b>" 1 bold)
|
|
|
478 '("</i>\\([^<]*\\)</i>" 1 italic)
|
|
|
479 ))
|
|
|
480 "Gaudy level highlighting for hm--html-mode.")
|
|
|
481
|
|
|
482 (defvar hm--html-font-lock-keywords hm--html-font-lock-keywords-1
|
|
2
|
483 "Default expressions to highlight in the hm--html-mode.")
|
|
|
484
|
|
0
|
485
|
|
98
|
486
|
|
2
|
487 ;;; The Prefix- Key for the keytables
|
|
|
488 (defvar hm--html-minor-mode-prefix-key "\C-z"
|
|
|
489 "The prefix key for the keytables in the `hm--html-minor-mode'.")
|
|
|
490
|
|
|
491 (defvar hm--html-mode-prefix-key "\C-c"
|
|
|
492 "The prefix key for the hm--html keys in the `hm--html-mode'.")
|
|
|
493
|
|
|
494
|
|
|
495 ;;; The pulldown menu names
|
|
|
496 (defvar hm--html-minor-mode-pulldown-menu-name "HM-HTML"
|
|
|
497 "The name of the pulldown menu in the minor html mode.")
|
|
|
498
|
|
|
499 (defvar hm--html-mode-pulldown-menu-name "HTML"
|
|
|
500 "The name of the pulldown menu in the major html mode.")
|
|
|
501
|
|
|
502
|
|
|
503 ;;; The hook variables
|
|
|
504 (defvar hm--html-load-hook nil
|
|
|
505 "*Hook variable to execute functions after loading the package.")
|
|
0
|
506
|
|
2
|
507 (defvar hm--html-mode-hook nil
|
|
116
|
508 "*This hook will be called each time, when the hm--html-mode is invoked.")
|
|
2
|
509
|
|
|
510
|
|
|
511 ;;; For the file html-view.el
|
|
|
512 ;;; There are also some other variables in hmtl-view.el
|
|
|
513 ;;; Look at that file, if you've trouble with the functions
|
|
|
514 ;;; to preview the html document with the Mosaic
|
|
|
515 (defvar html-view-mosaic-command "/sol/www/bin/mosaic"
|
|
116
|
516 "The command that runs Mosaic on your system.")
|
|
0
|
517
|
|
2
|
518 (defvar html-sigusr1-signal-value 16
|
|
|
519 "Value for the SIGUSR1 signal on your system.
|
|
|
520 See, usually, /usr/include/sys/signal.h.
|
|
|
521 SunOS 4.1.x : (setq html-sigusr1-signal-value 30)
|
|
|
522 SunOS 5.x : (setq html-sigusr1-signal-value 16)
|
|
|
523 Linux : (setq html-sigusr1-signal-value 10))")
|
|
|
524
|
|
|
525
|
|
100
|
526 ;;; Meta information
|
|
|
527 (defvar hm--html-meta-name-alist '(("Expires") ("Keys") ("Author"))
|
|
|
528 "*Alist with possible names for the name or http-equiv attribute of meta.")
|
|
|
529
|
|
98
|
530 ;;; indentation
|
|
|
531
|
|
|
532 (defvar hm--html-disable-indentation nil
|
|
|
533 "*Set this to t, if you want to disable the indentation in the hm--html-mode.
|
|
|
534 And may be send me (muenkel@tnt.uni-hannover.de) a note, why you've
|
|
|
535 done this.")
|
|
|
536
|
|
|
537 (defvar hm--html-inter-tag-indent 2
|
|
|
538 "*The indentation after a start tag.")
|
|
|
539
|
|
|
540 (defvar hm--html-comment-indent 5
|
|
|
541 "*The indentation of a comment.")
|
|
|
542
|
|
|
543 (defvar hm--html-intra-tag-indent 2
|
|
|
544 "*The indentation after the start of a tag.")
|
|
|
545
|
|
|
546 (defvar hm--html-tag-name-alist
|
|
|
547 '(("!--" (:hm--html-one-element-tag t))
|
|
100
|
548 ("!doctype" (:hm--html-one-element-tag t))
|
|
|
549 ("isindex" (:hm--html-one-element-tag t)
|
|
|
550 (:hm--html-optional-attributes (prompt)))
|
|
|
551 ("base" (:hm--html-one-element-tag t)
|
|
|
552 (:hm--html-required-attributes (href)))
|
|
|
553 ("meta" (:hm--html-one-element-tag t)
|
|
|
554 (:hm--html-required-attributes (content))
|
|
|
555 (:hm--html-optional-attributes (http-equiv name)))
|
|
|
556 ("link" (:hm--html-one-element-tag t)
|
|
|
557 (:hm--html-optional-attributes (href rel rev title)))
|
|
|
558 ("hr" (:hm--html-one-element-tag t)
|
|
|
559 (:hm--html-optional-attributes (align noshade size width)))
|
|
|
560 ("input" (:hm--html-one-element-tag t)
|
|
|
561 (:hm--html-optional-attributes
|
|
|
562 (type name value checked size maxlength src align)))
|
|
|
563 ("img" (:hm--html-one-element-tag t)
|
|
|
564 (:hm--html-required-attributes (src))
|
|
|
565 (:hm--html-optional-attributes
|
|
|
566 (alt align height width border hspace vspace usemap ismap)))
|
|
|
567 ("param" (:hm--html-one-element-tag t)
|
|
|
568 (:hm--html-required-attributes (name))
|
|
|
569 (:hm--html-optional-attributes (value)))
|
|
|
570 ("br" (:hm--html-one-element-tag t)
|
|
|
571 (:hm--html-optional-attributes (clear)))
|
|
|
572 ("basefont" (:hm--html-one-element-tag t)
|
|
|
573 (:hm--html-optional-attributes size))
|
|
|
574 ("area" (:hm--html-one-element-tag t)
|
|
|
575 (:hm--html-required-attributes (alt))
|
|
|
576 (:hm--html-optional-attributes (shape coords href nohref)))
|
|
|
577 ("option" (:hm--html-one-element-tag t)
|
|
|
578 (:hm--html-optional-attributes (selected value)))
|
|
|
579
|
|
|
580 ("html" (:hm--html-two-element-tag t))
|
|
|
581 ("head" (:hm--html-two-element-tag t))
|
|
|
582 ("body" (:hm--html-two-element-tag t)
|
|
|
583 (:hm--html-optional-attributes (bgcolor text link vlink alink background))
|
|
|
584 )
|
|
|
585 ("h1" (:hm--html-two-element-tag t)
|
|
|
586 (:hm--html-optional-attributes (align)))
|
|
|
587 ("h2" (:hm--html-two-element-tag t)
|
|
|
588 (:hm--html-optional-attributes (align)))
|
|
|
589 ("h3" (:hm--html-two-element-tag t)
|
|
|
590 (:hm--html-optional-attributes (align)))
|
|
|
591 ("h4" (:hm--html-two-element-tag t)
|
|
|
592 (:hm--html-optional-attributes (align)))
|
|
|
593 ("h5" (:hm--html-two-element-tag t)
|
|
|
594 (:hm--html-optional-attributes (align)))
|
|
|
595 ("h6" (:hm--html-two-element-tag t)
|
|
|
596 (:hm--html-optional-attributes (align)))
|
|
|
597 ("address" (:hm--html-two-element-tag t))
|
|
|
598 ("p" (:hm--html-one-or-two-element-tag t)
|
|
|
599 (:hm--html-optional-attributes (align)))
|
|
|
600 ("ul" (:hm--html-two-element-tag t)
|
|
|
601 (:hm--html-optional-attributes (type compact)))
|
|
|
602 ("ol" (:hm--html-two-element-tag t)
|
|
|
603 (:hm--html-optional-attributes (type start compact)))
|
|
|
604 ("dl" (:hm--html-two-element-tag t)
|
|
|
605 (:hm--html-optional-attributes (compact)))
|
|
|
606 ("li" (:hm--html-one-or-two-element-tag t)
|
|
|
607 (:hm--html-optional-attributes (type (value "ol"))))
|
|
|
608 ("dt" (:hm--html-one-or-two-element-tag t))
|
|
|
609 ("dd" (:hm--html-one-or-two-element-tag t))
|
|
|
610 ("dir" (:hm--html-two-element-tag t)
|
|
|
611 (:hm--html-optional-attributes (compact)))
|
|
|
612 ("menu" (:hm--html-two-element-tag t)
|
|
|
613 (:hm--html-optional-attributes (compact)))
|
|
|
614 ("pre" (:hm--html-two-element-tag t)
|
|
|
615 (:hm--html-optional-attributes (width)))
|
|
|
616 ("div" (:hm--html-two-element-tag t)
|
|
|
617 (:hm--html-optional-attributes (align)))
|
|
|
618 ("center" (:hm--html-two-element-tag t))
|
|
|
619 ("blockquote" (:hm--html-two-element-tag t))
|
|
|
620 ("form" (:hm--html-two-element-tag t)
|
|
|
621 (:hm--html-optional-attributes (action method enctype)))
|
|
|
622 ("select" (:hm--html-two-element-tag t)
|
|
|
623 (:hm--html-required-attributes (name))
|
|
|
624 (:hm--html-optional-attributes (size multiple)))
|
|
|
625 ("textarea" (:hm--html-two-element-tag t)
|
|
|
626 (:hm--html-required-attributes (name rows cols)))
|
|
|
627 ("table" (:hm--html-two-element-tag t)
|
|
|
628 (:hm--html-optional-attributes
|
|
|
629 (align width border cellspacing cellpading)))
|
|
|
630 ("caption" (:hm--html-two-element-tag t)
|
|
|
631 (:hm--html-optional-attributes (align)))
|
|
|
632 ("tr" (:hm--html-one-or-two-element-tag t)
|
|
|
633 (:hm--html-optional-attributes (align valign)))
|
|
|
634 ("th" (:hm--html-one-or-two-element-tag t)
|
|
|
635 (:hm--html-optional-attributes
|
|
|
636 (nowrap rowspan colspan align valign width height)))
|
|
|
637 ("td" (:hm--html-one-or-two-element-tag t)
|
|
|
638 (:hm--html-optional-attributes
|
|
|
639 (nowrap rowspan colspan align valign width height)))
|
|
|
640 ("tt" (:hm--html-two-element-tag t))
|
|
|
641 ("i" (:hm--html-two-element-tag t))
|
|
|
642 ("b" (:hm--html-two-element-tag t))
|
|
|
643 ("u" (:hm--html-two-element-tag t))
|
|
|
644 ("strike" (:hm--html-two-element-tag t))
|
|
|
645 ("big" (:hm--html-two-element-tag t))
|
|
|
646 ("small" (:hm--html-two-element-tag t))
|
|
|
647 ("sub" (:hm--html-two-element-tag t))
|
|
|
648 ("sup" (:hm--html-two-element-tag t))
|
|
|
649 ("em" (:hm--html-two-element-tag t))
|
|
|
650 ("strong" (:hm--html-two-element-tag t))
|
|
|
651 ("dfn" (:hm--html-two-element-tag t))
|
|
|
652 ("code" (:hm--html-two-element-tag t))
|
|
|
653 ("samp" (:hm--html-two-element-tag t))
|
|
|
654 ("kbd" (:hm--html-two-element-tag t))
|
|
|
655 ("var" (:hm--html-two-element-tag t))
|
|
|
656 ("cite" (:hm--html-two-element-tag t))
|
|
|
657 ("a" (:hm--html-two-element-tag t)
|
|
|
658 (:hm--html-optional-attributes (name href rel rev title)))
|
|
|
659 ("applet" (:hm--html-two-element-tag t)
|
|
|
660 (:hm--html-required-attributes (code width height))
|
|
|
661 (:hm--html-optional-attributes (codebase alt name align hspace vspace)))
|
|
|
662 ("font" (:hm--html-two-element-tag t)
|
|
|
663 (:hm--html-optional-attributes (size color)))
|
|
|
664 ("map" (:hm--html-two-element-tag t)
|
|
|
665 (:hm--html-required-attributes (name)))
|
|
102
|
666 ("style" (:hm--html-two-element-tag t))
|
|
|
667 ("script" (:hm--html-two-element-tag t))
|
|
98
|
668 )
|
|
|
669 "An alist with tag names known by the `hm--html-mode'.
|
|
116
|
670 CURRENTLY THIS LIST MIGHT NOT CONTAIN ALL TAGS!!!!.
|
|
98
|
671
|
|
|
672 It is used to determine, if a tag is a one element tag or not.
|
|
|
673
|
|
|
674 In the future it should also be used to get possible parameters of
|
|
100
|
675 the tag.
|
|
|
676
|
|
|
677 Use lower case characters in this list!!!!")
|
|
98
|
678
|
|
|
679
|
|
2
|
680 ;;; Announce the feature hm--html-configuration
|
|
|
681 (provide 'hm--html-configuration)
|
|
|
682
|
