Mercurial > hg > xemacs-beta
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 |