comparison lisp/hm--html-menus/hm--html-configuration.el @ 2:ac2d302a0011 r19-15b2

Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 8fc7fe29b841
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1 ;;; hm--html-configuration.el - Configurationfile for the html-mode 1 ;;; hm--html-configuration.el - Configurationfile for the html-mode
2 ;;; v3.6; 17 Sep 1995 2 ;;;
3 ;;; Copyright (C) 1993, 1994, 1995 Heiko Muenkel 3 ;;; $Id: hm--html-configuration.el,v 1.1.1.2 1996/12/18 03:46:47 steve Exp $
4 ;;;
5 ;;; Copyright (C) 1993, 1994, 1995, 1996 Heiko Muenkel
4 ;;; email: muenkel@tnt.uni-hannover.de 6 ;;; email: muenkel@tnt.uni-hannover.de
5 ;;; 7 ;;;
6 ;;; This program is free software; you can redistribute it and/or modify 8 ;;; This program is free software; you can redistribute it and/or modify
7 ;;; it under the terms of the GNU General Public License as published by 9 ;;; it under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 2, or (at your option) 10 ;;; the Free Software Foundation; either version 2, or (at your option)
18 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 20 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 ;;; 21 ;;;
20 ;;; 22 ;;;
21 ;;; Description: 23 ;;; Description:
22 ;;; 24 ;;;
23 ;;; This file is for the configuration of the html mode. 25 ;;; This file is for the system wide configuration of the html mode.
26 ;;; User specific configuration should be done in the file
27 ;;; ~/.hm--html-configuration.el, which preceeds the settings in
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.
24 ;;; 32 ;;;
25 ;;; Installation: 33 ;;; Installation:
26 ;;; 34 ;;;
27 ;;; Put this file in one of your lisp load path directories or 35 ;;; Put this file in one of your lisp load path directories or
28 ;;; set the environment variable HTML_CONFIG_FILE to this file. 36 ;;; set the environment variable HTML_CONFIG_FILE to this file.
29 ;;; For example: 37 ;;; For example:
30 ;;; setenv HTML_CONFIG_FILE "~/data/hm--htm-environment.el" 38 ;;; setenv HTML_CONFIG_FILE "~/data/hm--htm-environment.el"
31 ;;; if you have put this file in the directory "~/data/" 39 ;;; if you have put this file in the directory "~/data/"
32 ;;; 40 ;;;
33 41
34 42 ;(require 'adapt)
35 (provide 'hm--html-configuration) 43
36 (require 'adapt) 44
37 45 ;;; The User config file (an proposal of Manoj Srivastava)
38
39 ;; The User config file (an proposal of Manoj Srivastava)
40 (defvar hm--html-user-config-file nil 46 (defvar hm--html-user-config-file nil
41 "*The location of the users config file. 47 "*The location of the users config file.
42 This variable will only be used, if no environment variable 48 This variable will only be used, if no environment variable
43 \"HTML_USER_CONFIG_FILE\" is set. 49 \"HTML_USER_CONFIG_FILE\" is set.
44 Example value: \"~/.hm--html-configuration.el\".") 50 Example value: \"~/.hm--html-configuration.el\".")
45 51
46 52
47 ;; Chose the initial popup menu 53 ;;; Chose the initial popup menu
48
49
50 (defvar hm--html-expert nil 54 (defvar hm--html-expert nil
51 "*t : Use the HTML expert popup menu, 55 "*t : Use the HTML expert popup menu,
52 nil : Use the HTML novice (simple) menu. 56 nil : Use the HTML novice (simple) menu.
53 The variable 'hm--html-marc must be nil. If 'hm--html-marc is 57
54 not nil, this variable has no effect.") 58 NOTE: In the Emacs 19 you should set this variable only before
55 59 loading the mode.")
56
57 (defvar hm--html-marc nil
58 "*t : Use the HTML popup menu from Marc Andreessen.")
59
60 60
61 ;;; Your Signature 61 ;;; Your Signature
62 62
63 (defvar hm--html-signature-file nil 63 (defvar hm--html-signature-file nil
64 "*Your Signature file. 64 "*Your Signature file.
76 "*The name of your favorite http server host. It must be specified !") 76 "*The name of your favorite http server host. It must be specified !")
77 77
78 78
79 ;;; For links to Info Gateways 79 ;;; For links to Info Gateways
80 80
81 (defvar hm--html-info-hostname:port-alist nil 81 (defvar hm--html-info-hostname:port-alist '(("www.tnt.uni-hannover.de:8005"))
82 "*Alist with hostnames and ports for the Info gateway.") 82 "*Alist with hostnames and ports for the Info gateway.")
83 83
84 (setq hm--html-info-hostname:port-alist '(("www.tnt.uni-hannover.de:8005"))) 84 (defvar hm--html-info-hostname:port-default "www.tnt.uni-hannover.de:8005"
85
86 (defvar hm--html-info-hostname:port-default nil
87 "*Default hostname with port for the Info gateway.") 85 "*Default hostname with port for the Info gateway.")
88 86
89 (setq hm--html-info-hostname:port-default "www.tnt.uni-hannover.de:8005") 87 (defvar hm--html-info-path-alist '((1 . "/appl/lemacs/Global/emacs/info")
90 88 (2 . "/appl/emacs/info")
91 (defvar hm--html-info-path-alist nil 89 (3 . "/appl/gnu/Global/info")
90 (4 . "/appl/emacs-19/Global/info")
91 (5 . "/"))
92 "*Alist with directories for the Info gateway.") 92 "*Alist with directories for the Info gateway.")
93 93
94 (setq hm--html-info-path-alist '((1 . "/appl/lemacs/Global/emacs/info")
95 (2 . "/appl/emacs/info")
96 (3 . "/appl/gnu/Global/info")
97 (4 . "/appl/emacs-19/Global/info")
98 (5 . "/")))
99
100 94
101 ;;; For links to WAIS Gateways 95 ;;; For links to WAIS Gateways
102 96
103 (defvar hm--html-wais-hostname:port-alist nil 97 (defvar hm--html-wais-hostname:port-alist '(("www.tnt.uni-hannover.de:8001")
98 ("info.cern.ch:8001"))
104 "*Alist with hostnames and ports for the WAIS gateway.") 99 "*Alist with hostnames and ports for the WAIS gateway.")
105 100
106 (setq hm--html-wais-hostname:port-alist '(("www.tnt.uni-hannover.de:8001") 101 (defvar hm--html-wais-hostname:port-default "www.tnt.uni-hannover.de:8001"
107 ("info.cern.ch:8001")))
108
109 (defvar hm--html-wais-hostname:port-default nil
110 "*Default hostname with port for the WAIS gateway.") 102 "*Default hostname with port for the WAIS gateway.")
111 103
112 (setq hm--html-wais-hostname:port-default "www.tnt.uni-hannover.de:8001") 104 (defvar hm--html-wais-servername:port-alist
113 105 '(("wais.tnt.uni-hannover.de:210")
114 (defvar hm--html-wais-servername:port-alist nil 106 ("daedalus.tnt.uni-hannover.de:21408")
107 ("ikarus.tnt.uni-hannover.de:21401"))
115 "*Alist with servernames and ports for the WAIS gateway.") 108 "*Alist with servernames and ports for the WAIS gateway.")
116 109
117 (setq hm--html-wais-servername:port-alist 110 (defvar hm--html-wais-servername:port-default "www.tnt.uni-hannover.de:210"
118 '(("wais.tnt.uni-hannover.de:210")
119 ("daedalus.tnt.uni-hannover.de:21408")
120 ("ikarus.tnt.uni-hannover.de:21401")))
121
122 (defvar hm--html-wais-servername:port-default nil
123 "*Default servername with port for the WAIS gateway.") 111 "*Default servername with port for the WAIS gateway.")
124
125 (setq hm--html-wais-servername:port-default "www.tnt.uni-hannover.de:210")
126 112
127 (defvar hm--html-wais-path-alist nil 113 (defvar hm--html-wais-path-alist nil
128 "*Alist with directories for the wais gateway.") 114 "*Alist with directories for the wais gateway.")
129 115
130 (setq hm--html-wais-path-alist nil)
131
132 116
133 ;;; For links to HTML servers 117 ;;; For links to HTML servers
134 118
135 (defvar hm--html-html-hostname:port-alist nil 119 (defvar hm--html-html-hostname:port-alist '(("www.tnt.uni-hannover.de:80")
120 ("vxcrna.cern.ch:80")
121 ("www.ncsa.uiuc.edu:80"))
136 "*Alist with hostnames and ports for the HTML server.") 122 "*Alist with hostnames and ports for the HTML server.")
137 123
138 (setq hm--html-html-hostname:port-alist '(("www.tnt.uni-hannover.de:80") 124 (defvar hm--html-html-hostname:port-default "www.tnt.uni-hannover.de:80"
139 ("vxcrna.cern.ch:80")
140 ("www.ncsa.uiuc.edu:80")))
141
142 (defvar hm--html-html-hostname:port-default nil
143 "*Default hostname with port for the HTML server.") 125 "*Default hostname with port for the HTML server.")
144 126
145 (setq hm--html-html-hostname:port-default "www.tnt.uni-hannover.de:80") 127 (defvar hm--html-html-path-alist '((1 . "/data/info/www/tnt/")
146 128 (2 . "/data/info/www/")
147 (defvar hm--html-html-path-alist nil 129 (3 . "/data/info/")
130 (4 . "/data/")
131 (5 . "/appl/")
132 (6 . "/project/")
133 (7 . "~/")
134 (8 . "/"))
148 "*Alist with directories for the HTML server.") 135 "*Alist with directories for the HTML server.")
149 136
150 (setq hm--html-html-path-alist '((1 . "/data/info/www/tnt/")
151 (2 . "/data/info/www/")
152 (3 . "/data/info/")
153 (4 . "/data/")
154 (5 . "/appl/")
155 (6 . "/project/")
156 (7 . "~/")
157 (8 . "/")))
158
159
160 137
161 ;;; For links to file gateways 138 ;;; For links to file gateways
162 139
163 (defvar hm--html-file-path-alist nil 140 (defvar hm--html-file-path-alist '((1 . "/data/info/www/tnt/")
141 (2 . "/data/info/www/")
142 (3 . "/data/info/")
143 (4 . "/data/")
144 (5 . "/appl/")
145 (6 . "/project/")
146 (7 . "~/")
147 (8 . "/"))
164 "*Alist with directories for the file gateway.") 148 "*Alist with directories for the file gateway.")
165 149
166 (setq hm--html-file-path-alist '((1 . "/data/info/www/tnt/")
167 (2 . "/data/info/www/")
168 (3 . "/data/info/")
169 (4 . "/data/")
170 (5 . "/appl/")
171 (6 . "/project/")
172 (7 . "~/")
173 (8 . "/")))
174
175 150
176 ;;; For links to ftp servers 151 ;;; For links to ftp servers
177 152
178 (defvar hm--html-ftp-hostname:port-alist nil 153 (defvar hm--html-ftp-hostname:port-alist '(("ftp.tnt.uni-hannover.de")
154 ("ftp.rrzn.uni-hannover.de")
155 ("wega.informatik.uni-hannover.de")
156 ("rusmv1.rus.uni-stuttgart.de")
157 ("export.lcs.mit.edu")
158 )
179 "*Alist with hostnames and ports for the ftp server.") 159 "*Alist with hostnames and ports for the ftp server.")
180 160
181 (setq hm--html-ftp-hostname:port-alist '(("ftp.tnt.uni-hannover.de") 161 (defvar hm--html-ftp-hostname:port-default "ftp.rrzn.uni-hannover.de"
182 ("ftp.rrzn.uni-hannover.de")
183 ("wega.informatik.uni-hannover.de")
184 ("rusmv1.rus.uni-stuttgart.de")
185 ("export.lcs.mit.edu")
186 ))
187
188 (defvar hm--html-ftp-hostname:port-default nil
189 "*Default hostname with port for the ftp server.") 162 "*Default hostname with port for the ftp server.")
190 163
191 (setq hm--html-ftp-hostname:port-default "ftp.rrzn.uni-hannover.de") 164 (defvar hm--html-ftp-path-alist '((1 . "/pub")
192 165 (2 . "/pub/gnu")
193 (defvar hm--html-ftp-path-alist nil 166 (3 . "/pub/linux")
167 (4 . "/pub/unix")
168 (5 . "/incoming")
169 (6 . "/"))
194 "*Alist with directories for the ftp server.") 170 "*Alist with directories for the ftp server.")
195 171
196 (setq hm--html-ftp-path-alist '((1 . "/pub")
197 (2 . "/pub/gnu")
198 (3 . "/pub/linux")
199 (4 . "/pub/unix")
200 (5 . "/incoming")
201 (6 . "/")))
202
203 172
204 ;;; For links to gopher servers 173 ;;; For links to gopher servers
205 174
206 (defvar hm--html-gopher-hostname:port-alist nil 175 (defvar hm--html-gopher-hostname:port-alist
176 '(("newsserver.rrzn.uni-hannover.de:70")
177 ("solaris.rz.tu-clausthal.de:70")
178 ("veronica.scs.unr.edu:70")
179 ("pinus.slu.se:70")
180 ("sunic.sunet.se:70")
181 )
207 "*Alist with hostnames and ports for the gopher server.") 182 "*Alist with hostnames and ports for the gopher server.")
208 183
209 (setq hm--html-gopher-hostname:port-alist 184 (defvar hm--html-gopher-doctype-alist '(("/1")
210 '(("newsserver.rrzn.uni-hannover.de:70") 185 ("/11")
211 ("solaris.rz.tu-clausthal.de:70") 186 ("/00"))
212 ("veronica.scs.unr.edu:70")
213 ("pinus.slu.se:70")
214 ("sunic.sunet.se:70")
215 ))
216
217 (defvar hm--html-gopher-doctype-alist nil
218 "*Alist with doctype strings for the gopher server.") 187 "*Alist with doctype strings for the gopher server.")
219 188
220 (setq hm--html-gopher-doctype-alist 189 (defvar hm--html-gopher-doctype-default "/1"
221 '(("/1")
222 ("/11")
223 ("/00")))
224
225 (defvar hm--html-gopher-doctype-default nil
226 "*Default doctype string for the gopher server.") 190 "*Default doctype string for the gopher server.")
227 191
228 (setq hm--html-gopher-doctype-default "/1") 192 (defvar hm--html-gopher-hostname:port-default
229 193 "newsserver.rrzn.uni-hannover.de:70"
230 (defvar hm--html-gopher-hostname:port-default nil
231 "*Default hostname with port for the gopher server.") 194 "*Default hostname with port for the gopher server.")
232 195
233 (setq hm--html-gopher-hostname:port-default 196 (defvar hm--html-gopher-anchor-alist
234 "newsserver.rrzn.uni-hannover.de:70") 197 '(("veronica")
235 198 ("Wide%20Area%20Information%20Services%20databases")
236 (defvar hm--html-gopher-anchor-alist nil 199 ("Subject%20Tree"))
237 "*Alist with directories for the gopher server.") 200 "*Alist with directories for the gopher server.")
238 201
239 (setq hm--html-gopher-anchor-alist
240 '(("veronica")
241 ("Wide%20Area%20Information%20Services%20databases")
242 ("Subject%20Tree")))
243
244 202
245 ;;; For the links to the Program Gateway 203 ;;; For the links to the Program Gateway
246 204
247 (defvar hm--html-proggate-hostname:port-alist nil 205 (defvar hm--html-proggate-hostname:port-alist
206 '(("www.tnt.uni-hannover.de:8007")
207 )
248 "*Alist with hostnames and ports for the proggate server.") 208 "*Alist with hostnames and ports for the proggate server.")
249 209
250 (setq hm--html-proggate-hostname:port-alist '(("www.tnt.uni-hannover.de:8007") 210 (defvar hm--html-proggate-hostname:port-default "www.tnt.uni-hannover.de:8007"
251 ))
252
253 (defvar hm--html-proggate-hostname:port-default nil
254 "*Default hostname with port for the proggate server.") 211 "*Default hostname with port for the proggate server.")
255 212
256 (setq hm--html-proggate-hostname:port-default "www.tnt.uni-hannover.de:8007") 213 (defvar hm--html-proggate-allowed-file "/appl/www/bin/proggate.allowed"
257
258
259 (defvar hm--html-proggate-allowed-file nil
260 "*The filename (with path) of the proggate allowed file.") 214 "*The filename (with path) of the proggate allowed file.")
261 215
262 216
263 (setq hm--html-proggate-allowed-file "/appl/www/bin/proggate.allowed")
264
265
266 ;;; For links to the Local Program Gatewy 217 ;;; For links to the Local Program Gatewy
267 218
268 (defvar hm--html-local-proggate-path-alist nil 219 (defvar hm--html-local-proggate-path-alist '((1 . "/bin/")
220 (2 . "/usr/bin/")
221 (3 . "/usr/local/bin/")
222 (4 . "/appl/util/bin/")
223 (5 . "/appl/gnu/Global/bin/")
224 (6 . "/")
225 (7 . "/appl/")
226 (8 . "~/appl/Global/bin/")
227 (9 . "~/"))
269 "*Alist with directories for the local program gateway.") 228 "*Alist with directories for the local program gateway.")
270 229
271 230
272 (setq hm--html-local-proggate-path-alist '((1 . "/bin/")
273 (2 . "/usr/bin/")
274 (3 . "/usr/local/bin/")
275 (4 . "/appl/util/bin/")
276 (5 . "/appl/gnu/Global/bin/")
277 (6 . "/")
278 (7 . "/appl/")
279 (8 . "~/appl/Global/bin/")
280 (9 . "~/")))
281
282
283 ;;; For links to the mail gateway 231 ;;; For links to the mail gateway
284 232
285 (defvar hm--html-mail-hostname:port-alist nil 233 (defvar hm--html-mail-hostname:port-alist '(("www.tnt.uni-hannover.de:8003")
234 )
286 "*Alist with hostnames and ports for the mail gateway.") 235 "*Alist with hostnames and ports for the mail gateway.")
287 236
288 (setq hm--html-mail-hostname:port-alist '(("www.tnt.uni-hannover.de:8003") 237 (defvar hm--html-mail-hostname:port-default "www.tnt.uni-hannover.de:8003"
289 ))
290
291 (defvar hm--html-mail-hostname:port-default nil
292 "*Default hostname with port for the mail gateway.") 238 "*Default hostname with port for the mail gateway.")
293 239
294 (setq hm--html-mail-hostname:port-default "www.tnt.uni-hannover.de:8003") 240 (defvar hm--html-mail-path-alist '((1 . "~/data/docs/mail")
295 241 (2 . "~/data/docs/news")
296 (defvar hm--html-mail-path-alist nil 242 (3 . "~/docs/mail")
243 (4 . "~/docs/news")
244 (5 . "~/mail")
245 (6 . "~/news")
246 (7 . "~/")
247 (8 . "/data/info/mail")
248 (9 . "/data/info/news")
249 (10 . "/"))
297 "*Alist with directories for the mail gateway.") 250 "*Alist with directories for the mail gateway.")
298 251
299 (setq hm--html-mail-path-alist '((1 . "~/data/docs/mail")
300 (2 . "~/data/docs/news")
301 (3 . "~/docs/mail")
302 (4 . "~/docs/news")
303 (5 . "~/mail")
304 (6 . "~/news")
305 (7 . "~/")
306 (8 . "/data/info/mail")
307 (9 . "/data/info/news")
308 (10 . "/")))
309 252
310 ;;; For mailto links 253 ;;; For mailto links
311 254
312 (defvar hm--html-mailto-alist nil 255 (defvar hm--html-mailto-alist '(("muenkel@tnt.uni-hannover.de"))
313 "*Alist with mail adresses for the mailto alist. 256 "*Alist with mail adresses for the mailto alist.
314 The value of `user-mail-address' will also be added by the package to 257 The value of `user-mail-address' will also be added by the package to
315 this alist.") 258 this alist.")
316 259
317 (setq hm--html-mailto-alist '(("muenkel@tnt.uni-hannover.de")))
318
319 260
320 ;;; For the server side include directive 261 ;;; For the server side include directive
321 262 ;;; not sure, if these directives works on any server
322 (defvar hm--html-server-side-include-command-alist nil 263
264 (defvar hm--html-server-side-include-command-alist '(("/bin/date")
265 ("/usr/bin/finger")
266 ("/bin/df"))
323 "*Alist with commands for the server side include directive. 267 "*Alist with commands for the server side include directive.
324 These commands needs no parameter.") 268 These commands needs no parameter.")
325
326 (setq hm--html-server-side-include-command-alist
327 '(("/bin/date")
328 ("/usr/bin/finger")
329 ("/bin/df")))
330 269
331 (defvar hm--html-server-side-include-command-with-parameter-alist nil 270 (defvar hm--html-server-side-include-command-with-parameter-alist
271 '(("/usr/bin/man")
272 ("/usr/bin/finger")
273 ("/usr/bin/ls")
274 ("/bin/cat"))
332 "*Alist with commands for the server side include directive. 275 "*Alist with commands for the server side include directive.
333 These commands needs parameters.") 276 These commands needs parameters.")
334
335 (setq hm--html-server-side-include-command-with-parameter-alist
336 '(("/usr/bin/man")
337 ("/usr/bin/finger")
338 ("/usr/bin/ls")
339 ("/bin/cat")))
340 277
341 278
342 ;;; Alist with URL'S for FORMS and IMAGE tags 279 ;;; Alist with URL'S for FORMS and IMAGE tags
343 280
344 (defvar hm--html-url-alist nil 281 (defvar hm--html-url-alist
282 (list
283 '("http://hoohoo.ncsa.uiuc.edu/htbin-post/post-query"
284 POST)
285 '("http://hoohoo.ncsa.uiuc.edu/htbin/query"
286 GET)
287 (list
288 (concat "http://"
289 hm--html-favorite-http-server-host-name
290 "/")
291 'IMAGE))
345 "*Alist with URL's for FORMS and IMAGE tags. 292 "*Alist with URL's for FORMS and IMAGE tags.
346 The cdr of each list contains symbols, which specifys the use of the 293 The cdr of each list contains symbols, which specifys the use of the
347 URL.") 294 URL.")
348 295
349 (setq hm--html-url-alist (list
350 '("http://hoohoo.ncsa.uiuc.edu/htbin-post/post-query"
351 POST)
352 '("http://hoohoo.ncsa.uiuc.edu/htbin/query"
353 GET)
354 (list
355 (concat "http://"
356 hm--html-favorite-http-server-host-name
357 "/")
358 'IMAGE)))
359
360 296
361 ;;; For the marking of examples in the help buffer 297 ;;; For the marking of examples in the help buffer
362 298
363 (defvar hm--html-help-foreground "red" 299 (defvar hm--html-help-foreground "red"
364 "The foreground color to highlight examples.") 300 "The foreground color to highlight examples.")
368 304
369 (defvar hm--html-help-font (face-font 'bold) 305 (defvar hm--html-help-font (face-font 'bold)
370 "The font to highlight examples.") 306 "The font to highlight examples.")
371 307
372 308
373 ;(if (not (face-foreground 'hm--html-help-face))
374 ; (set-face-foreground 'hm--html-help-face "red"))
375
376
377 ;;; For the Templates 309 ;;; For the Templates
378 310
379 311 (defvar hm--html-template-dir "/data/info/www/tnt/guide/templates"
380 (defvar hm--html-template-dir nil
381 "*A directory with templatefiles") 312 "*A directory with templatefiles")
382
383
384 (setq hm--html-template-dir "/data/info/www/tnt/guide/templates/")
385 313
386 (if (not (file-exists-p hm--html-template-dir)) 314 (if (not (file-exists-p hm--html-template-dir))
387 ;; Use a system directory, if the above one doesn't exist 315 ;; Use a system directory, if the above one doesn't exist
388 ;; This is only useful, in the XEmacs 19.12 316 ;; This is only useful, in the XEmacs 19.12
389 (setq hm--html-template-dir (concat data-directory 317 (setq hm--html-template-dir (concat data-directory
390 "../lisp/hm--html-menus/"))) 318 "../lisp/hm--html-menus/")))
391 319
392 320 (defvar hm--html-frame-template-file (concat hm--html-template-dir
393 (defvar hm--html-frame-template-file nil 321 "frame.tmpl")
394 "File, which is used as template for a html frame.") 322 "File, which is used as template for a html frame.")
395 323
396 (setq hm--html-frame-template-file (concat hm--html-template-dir 324 (defvar hm--html-automatic-expand-templates t
397 "frame.tmpl"))
398
399
400 (defvar hm--html-automatic-expand-templates nil
401 "*Automatic expansion of templates. This feature needs the file 325 "*Automatic expansion of templates. This feature needs the file
402 tmpl-minor-mode.el from Heiko Muenkel (muenkel@tnt.uni-hannover.de), 326 tmpl-minor-mode.el from Heiko Muenkel (muenkel@tnt.uni-hannover.de),
403 which is distributed with the package hm--html-menus.") 327 which is distributed with the package hm--html-menus.")
404 328
405 329
406 (setq hm--html-automatic-expand-templates t)
407
408
409 ;;; For font lock mode
410 ;(defvar hm--html-font-lock-color
411 ; (if (facep 'font-lock-comment-face)
412 ; (face-foreground 'font-lock-comment-face))
413 ; "*The color for the html font lock.")
414
415
416 ;(setq hm--html-font-lock-color "grey80")
417
418
419 ;;; for deleting the automounter path-prefix 330 ;;; for deleting the automounter path-prefix
420 (defvar hm--html-delete-wrong-path-prefix nil 331 (defvar hm--html-delete-wrong-path-prefix '("/tmp_mnt" "/phys/[^/]+")
421 "If non nil, it specifies path-prefixes, which should be deleted in pathes. 332 "If non nil, it specifies path-prefixes, which should be deleted in pathes.
422 The Sun automounter adds a temporary prefix to the automounted directories 333 The Sun automounter adds a temporary prefix to the automounted directories
423 (At our site the prefix is /tmp_mnt). But you can't select such a path, if 334 (At our site the prefix is /tmp_mnt). But you can't select such a path, if
424 the automounter has currently not mounted the directory and so you can't 335 the automounter has currently not mounted the directory and so you can't
425 follow a html-link, which consists of such a path. To overcome this behaviour, 336 follow a html-link, which consists of such a path. To overcome this behaviour,
426 you can set this variable to the prefix (eg. \"/tmp_mnt\"). After that, the 337 you can set this variable to the prefix (eg. \"/tmp_mnt\"). After that, the
427 prefix should be stripped from the pathes during the creation of the links. 338 prefix should be stripped from the pathes during the creation of the links.
428 ATTENTION: This variable is used as regular expression ! 339 ATTENTION: This variable is used as regular expression !
429 It can be set to a string or to a list of strings.") 340 It can be set to a string or to a list of strings.")
430 341
431 (setq hm--html-delete-wrong-path-prefix '("/tmp_mnt" "/phys/[^/]+"))
432
433 342
434 ;;; For insertation of created and changed comments and automatic 343 ;;; For insertation of created and changed comments and automatic
435 ;;; date update in the title line 344 ;;; date update in the title line
436 345
437 (defvar hm--html-automatic-new-date t 346 (defvar hm--html-automatic-new-date t
443 nil => No automatic insertation of a \"changed comment\" line.") 352 nil => No automatic insertation of a \"changed comment\" line.")
444 353
445 (defvar hm--html-automatic-created-comment t 354 (defvar hm--html-automatic-created-comment t
446 "*t => A \"created comment\" line will be added. 355 "*t => A \"created comment\" line will be added.
447 nil => No automatic insertation of a \"created comment\" line.") 356 nil => No automatic insertation of a \"created comment\" line.")
448
449
450
451 ;;; For the file html-mode.el
452
453 (setq html-document-previewer "/appl/www/bin/mosaic")
454
455
456 ;;; For the file html-view.el
457
458 (setq html-view-mosaic-command "/appl/www/bin/mosaic")
459
460
461 ;;; For the files html-mode.el and html-view.el
462
463 ;; Value for the SIGUSR1 signal on your system. See, usually,
464 ;; /usr/include/sys/signal.h.
465 ;; SunOS 4.1.x : (setq html-sigusr1-signal-value 30)
466 ;; Linux : (setq html-sigusr1-signal-value 10)
467 (setq html-sigusr1-signal-value 30)
468 357
469 358
470 ;;; Keybindings: 359 ;;; Keybindings:
471 360
472 (defvar hm--html-bind-latin-1-char-entities t 361 (defvar hm--html-bind-latin-1-char-entities t
473 "Set this to nil, if you don't want to use the ISO Latin 1 charcter entities. 362 "Set this to nil, if you don't want to use the ISO Latin 1 charcter entities.
474 This is only useful, if `hm--html-use-old-keymap' is set to nil. It is only 363 This is only useful, if `hm--html-use-old-keymap' is set to nil. It is only
475 used during loading the html package the first time.") 364 used during loading the html package the first time.")
476 365
477 (defvar hm--html-use-old-keymap nil 366
478 "Set this to t, if you want to use the old keymap from Marc. 367 ;;; The drag and drop interface
479 This variable and the choice to use the old map will be deleted 368 (defvar hm--html-idd-create-relative-links t
480 in the future.") 369 "If t, then the hm--html-idd-* functions are creating relative links.
481 370 Otherwise absolute links are used. The idd functions are used for
482 (if (not hm--html-use-old-keymap) 371 drag and drop.")
483 ;; The new map 372
484 (require 'hm--html-keys) 373 (defvar hm--html-idd-actions
485 374 '((nil (((idd-major-mode-p . dired-mode)
486 ;; Additional bindings to the old map 375 (idd-dired-file-on-line-p . ".*\\.\\(gif\\)\\|\\(jpq\\)"))
487 376 hm--html-idd-add-include-image-from-dired-line)
488 ;;; Keytable html-mode-map (see also the file html-mode.el) 377 (((idd-major-mode-p . dired-mode)
489 378 (idd-dired-no-file-on-line-p . nil))
490 (define-key html-mode-map "\C-cr" 'hm--html-add-link-target) 379 hm--html-idd-add-file-link-to-file-on-dired-line)
491 (define-key html-mode-map "\C-ch" 'hm--html-add-header) 380 (((idd-major-mode-p . dired-mode)
492 (define-key html-mode-map "\C-ct" 'hm--html-add-title) 381 (idd-dired-no-file-on-line-p . t))
493 (define-key html-mode-map "\C-cn" 'hm--html-add-numberlist) 382 hm--html-idd-add-file-link-to-directory-of-buffer)
494 (define-key html-mode-map "\C-c\C-p" 'hm--html-add-preformated) 383 (((idd-major-mode-p . w3-mode)
495 (define-key html-mode-map "\C-c\C-b" 'hm--html-add-bold) 384 (idd-url-at-point-p . t))
496 (define-key html-mode-map "\C-c\C-i" 'hm--html-add-italic) 385 hm--html-idd-add-html-link-from-w3-buffer-point)
497 (define-key html-mode-map "\C-c\M-h" 'hm--html-add-html-link) 386 (((idd-major-mode-p . w3-mode))
498 (define-key html-mode-map "\C-c\M-i" 'hm--html-add-info-link) 387 hm--html-idd-add-html-link-to-w3-buffer)
499 (define-key html-mode-map "\C-c\M-g" 'hm--html-add-gopher-link) 388 (((idd-local-file-p . t))
500 (define-key html-mode-map "\C-c\M-f" 'hm--html-add-file-link) 389 hm--html-idd-add-file-link-to-buffer)))
501 (define-key html-mode-map "\C-c\M-n" 'hm--html-add-news-link) 390 "The action list for the source mode `hm--html-mode'.
502 (define-key html-mode-map "\C-c\M-m" 'hm--html-add-mail-link) 391 Look at the description of the variable idd-actions")
503 ;(define-key html-mode-map "\C-c\M-w" 'hm--html-add-wais-link) 392
504 (define-key html-mode-map "\C-c\M-w" 'hm--html-add-direct-wais-link) 393
505 (define-key html-mode-map "\C-c\M-t" 'hm--html-add-ftp-link) 394 ;;; The font lock keywords
506 (if (adapt-xemacsp) 395
507 (define-key html-mode-map '(button3) 'hm--popup-html-menu) 396 (defvar hm--html-font-lock-keywords
508 (define-key html-mode-map [mouse-3] 'hm--popup-html-menu) 397 (list
509 ;;(define-key html-mode-map [S-mouse-3] 'hm--popup-html-menu) 398 '("\\(<!--.*-->\\)\\|\\(<[^>]*>\\)+" . font-lock-comment-face)
510 ;;(define-key html-mode-map [C-mouse-3] 'hm--popup-html-menu-region) 399 '("[Hh][Rr][Ee][Ff]=\"\\([^\"]*\\)\"" 1 font-lock-string-face t)
511 ) 400 '("[Ss][Rr][Cc]=\"\\([^\"]*\\)\"" 1 font-lock-string-face t))
512 401 "Default expressions to highlight in the hm--html-mode.")
513 ;;; Keytable html-region-mode-map (for the minor mode region-mode-map 402
514 ;;; This minor mode is active, if a region is active 403
515 404 ;;; The Prefix- Key for the keytables
516 (if html-region-mode-map 405 (defvar hm--html-minor-mode-prefix-key "\C-z"
517 () 406 "The prefix key for the keytables in the `hm--html-minor-mode'.")
518 (setq html-region-mode-map (make-sparse-keymap)) 407
519 (define-key html-region-mode-map "\t" 'tab-to-tab-stop) 408 (defvar hm--html-mode-prefix-key "\C-c"
520 (define-key html-region-mode-map "\C-ca" 'hm--html-add-address-to-region) 409 "The prefix key for the hm--html keys in the `hm--html-mode'.")
521 (define-key html-region-mode-map "\C-cb" 'hm--html-add-blockquote-to-region) 410
522 (define-key html-region-mode-map "\C-cc" 'hm--html-add-code-to-region) 411
523 (define-key html-region-mode-map "\C-cd" 412 ;;; The pulldown menu names
524 'hm--html-add-description-list-to-region) 413 (defvar hm--html-minor-mode-pulldown-menu-name "HM-HTML"
525 (define-key html-region-mode-map "\C-ch" 'hm--html-add-header-to-region) 414 "The name of the pulldown menu in the minor html mode.")
526 (define-key html-region-mode-map "\C-cl" 'html-add-normal-link-to-region) 415
527 (define-key html-region-mode-map "\C-cm" 'hm--html-add-menu-to-region) 416 (defvar hm--html-mode-pulldown-menu-name "HTML"
528 (define-key html-region-mode-map "\C-cn" 'hm--html-add-numberlist-to-region) 417 "The name of the pulldown menu in the major html mode.")
529 (define-key html-region-mode-map "\C-cr" 'html-add-reference-to-region) 418
530 (define-key html-region-mode-map "\C-cs" 'hm--html-add-list-to-region) 419
531 (define-key html-region-mode-map "\C-ct" 'hm--html-add-title-to-region) 420 ;;; The hook variables
532 (define-key html-region-mode-map "\C-cx" 'hm--html-add-plaintext-to-region) 421 (defvar hm--html-load-hook nil
533 (define-key html-region-mode-map "\C-c\C-b" 'hm--html-add-bold-to-region) 422 "*Hook variable to execute functions after loading the package.")
534 (define-key html-region-mode-map "\C-c\C-c" 'hm--html-add-citation-to-region) 423
535 (define-key html-region-mode-map "\C-c\C-e" 424 (defvar hm--html-mode-hook nil
536 'hm--html-add-emphasized-to-region) 425 "This hook will be called each time, when the hm--html-mode is invoked.")
537 (define-key html-region-mode-map "\C-c\C-f" 'hm--html-add-fixed-to-region) 426
538 (define-key html-region-mode-map "\C-c\C-i" 'hm--html-add-italic-to-region) 427
539 (define-key html-region-mode-map "\C-c\C-k" 'hm--html-add-keyboard-to-region) 428 ;;; For the file html-view.el
540 (define-key html-region-mode-map "\C-c\C-l" 'hm--html-add-listing-to-region) 429 ;;; There are also some other variables in hmtl-view.el
541 (define-key html-region-mode-map "\C-c\C-m" 'hm--html-add-sample-to-region) 430 ;;; Look at that file, if you've trouble with the functions
542 (define-key html-region-mode-map "\C-c\C-p" 431 ;;; to preview the html document with the Mosaic
543 'hm--html-add-preformated-to-region) 432 (defvar html-view-mosaic-command "/sol/www/bin/mosaic"
544 (define-key html-region-mode-map "\C-c\C-s" 'hm--html-add-strong-to-region) 433 "The command that runs Mosaic on your system")
545 (define-key html-region-mode-map "\C-c\C-v" 'hm--html-add-variable-to-region) 434
546 (define-key html-region-mode-map "<" 'html-less-than) 435 (defvar html-sigusr1-signal-value 16
547 (define-key html-region-mode-map ">" 'html-greater-than) 436 "Value for the SIGUSR1 signal on your system.
548 (define-key html-region-mode-map "&" 'html-ampersand) 437 See, usually, /usr/include/sys/signal.h.
549 (define-key html-region-mode-map "\C-c\C-rl" 'html-add-normal-link-to-region) 438 SunOS 4.1.x : (setq html-sigusr1-signal-value 30)
550 (define-key html-region-mode-map "\C-c\C-rr" 'html-add-reference-to-region) 439 SunOS 5.x : (setq html-sigusr1-signal-value 16)
551 (define-key html-region-mode-map "\C-c\M-h" 440 Linux : (setq html-sigusr1-signal-value 10))")
552 'hm--html-add-html-link-to-region) 441
553 (define-key html-region-mode-map "\C-c\M-i" 442
554 'hm--html-add-info-link-to-region) 443 ;;; Announce the feature hm--html-configuration
555 (define-key html-region-mode-map "\C-c\M-g" 444 (provide 'hm--html-configuration)
556 'hm--html-add-gopher-link-to-region) 445
557 (define-key html-region-mode-map "\C-c\M-f"
558 'hm--html-add-file-link-to-region)
559 (define-key html-region-mode-map "\C-c\M-n"
560 'hm--html-add-news-link-to-region)
561 (define-key html-region-mode-map "\C-c\M-m"
562 'hm--html-add-mail-link-to-region)
563 ; (define-key html-region-mode-map "\C-c\M-w"
564 ; 'hm--html-add-wais-link-to-region)
565 (define-key html-region-mode-map "\C-c\M-w"
566 'hm--html-add-direct-wais-link-to-region)
567 (define-key html-region-mode-map "\C-c\M-t"
568 'hm--html-add-ftp-link-to-region)
569 (if (adapt-xemacsp)
570 (define-key html-region-mode-map '(button3) 'hm--popup-html-menu-region)
571 (define-key html-region-mode-map [mouse-3] 'hm--popup-html-menu-region))
572 )
573
574 )
575