Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-configuration.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents a145efe76779
children 25f70ba0133c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;;; hm--html-configuration.el - Configurationfile for the html-mode 1 ;;; hm--html-configuration.el - Configurationfile for the html-mode
2 ;;; 2 ;;;
3 ;;; $Id: hm--html-configuration.el,v 1.4 1997/02/27 06:08:08 steve Exp $ 3 ;;; $Id: hm--html-configuration.el,v 1.5 1997/03/28 02:28:41 steve Exp $
4 ;;; 4 ;;;
5 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel 5 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel
6 ;;; email: muenkel@tnt.uni-hannover.de 6 ;;; email: muenkel@tnt.uni-hannover.de
7 ;;; 7 ;;;
8 ;;; 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
22 ;;; 22 ;;;
23 ;;; Description: 23 ;;; Description:
24 ;;; 24 ;;;
25 ;;; This file is for the system wide 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 26 ;;; User specific configuration should be done in the file
27 ;;; ~/.hm--html-configuration.el, which preceeds the settings in 27 ;;; ~/.hm--html-configuration.el, which precedes the settings in
28 ;;; this file. 28 ;;; this file.
29 ;;; All settings in this file are done with defvar's, therefore 29 ;;; All settings in this file are done with defvar's, therefore
30 ;;; you could overwrite them also with the function setq in your 30 ;;; you could overwrite them also with the function setq in your
31 ;;; .emacs or default.el and so on. 31 ;;; .emacs or default.el and so on.
32 ;;; 32 ;;;
189 ("pinus.slu.se:70") 189 ("pinus.slu.se:70")
190 ("sunic.sunet.se:70") 190 ("sunic.sunet.se:70")
191 ) 191 )
192 "*Alist with hostnames and ports for the gopher server.") 192 "*Alist with hostnames and ports for the gopher server.")
193 193
194 (defvar hm--html-gopher-hostname:port-default
195 "newsserver.rrzn.uni-hannover.de:70"
196 "*Default hostname with port for the gopher server.")
197
194 (defvar hm--html-gopher-doctype-alist '(("/1") 198 (defvar hm--html-gopher-doctype-alist '(("/1")
195 ("/11") 199 ("/11")
196 ("/00")) 200 ("/00"))
197 "*Alist with doctype strings for the gopher server.") 201 "*Alist with doctype strings for the gopher server.")
198 202
199 (defvar hm--html-gopher-doctype-default "/1" 203 (defvar hm--html-gopher-doctype-default "/1"
200 "*Default doctype string for the gopher server.") 204 "*Default doctype string for the gopher server.")
201
202 (defvar hm--html-gopher-hostname:port-default
203 "newsserver.rrzn.uni-hannover.de:70"
204 "*Default hostname with port for the gopher server.")
205 205
206 (defvar hm--html-gopher-anchor-alist 206 (defvar hm--html-gopher-anchor-alist
207 '(("veronica") 207 '(("veronica")
208 ("Wide%20Area%20Information%20Services%20databases") 208 ("Wide%20Area%20Information%20Services%20databases")
209 ("Subject%20Tree")) 209 ("Subject%20Tree"))
336 (setq hm--html-template-dir (concat data-directory 336 (setq hm--html-template-dir (concat data-directory
337 "../lisp/hm--html-menus/")))) 337 "../lisp/hm--html-menus/"))))
338 338
339 (defvar hm--html-frame-template-file (concat data-directory 339 (defvar hm--html-frame-template-file (concat data-directory
340 "../lisp/hm--html-menus/" 340 "../lisp/hm--html-menus/"
341 "frame.tmpl") 341 "frame.html.tmpl")
342 "File, which is used as template for a html frame.") 342 "File, which is used as template for a html frame.")
343 343
344 (defvar hm--html-automatic-expand-templates t 344 (defvar hm--html-automatic-expand-templates t
345 "*Automatic expansion of templates. This feature needs the file 345 "*Automatic expansion of templates. This feature needs the file
346 tmpl-minor-mode.el from Heiko Muenkel (muenkel@tnt.uni-hannover.de), 346 tmpl-minor-mode.el from Heiko Muenkel (muenkel@tnt.uni-hannover.de),
379 379
380 380
381 ;;; Keybindings: 381 ;;; Keybindings:
382 382
383 (defvar hm--html-bind-latin-1-char-entities t 383 (defvar hm--html-bind-latin-1-char-entities t
384 "Set this to nil, if you don't want to use the ISO Latin 1 charcter entities. 384 "Set this to nil, if you don't want to use the ISO Latin 1 character entities.
385 This is only useful, if `hm--html-use-old-keymap' is set to nil. It is only 385 This is only useful, if `hm--html-use-old-keymap' is set to nil. It is only
386 used during loading the html package the first time.") 386 used during loading the html package the first time.")
387 387
388 388
389 ;;; The drag and drop interface 389 ;;; The drag and drop interface
408 (((idd-if-major-mode-p . w3-mode)) 408 (((idd-if-major-mode-p . w3-mode))
409 hm--html-idd-add-html-link-to-w3-buffer) 409 hm--html-idd-add-html-link-to-w3-buffer)
410 (((idd-if-local-file-p . t)) 410 (((idd-if-local-file-p . t))
411 hm--html-idd-add-file-link-to-buffer))) 411 hm--html-idd-add-file-link-to-buffer)))
412 "The action list for the destination mode `hm--html-mode'. 412 "The action list for the destination mode `hm--html-mode'.
413 Look at the description of the variable idd-actions") 413 Look at the description of the variable idd-actions.")
414 414
415 415
416 ;;; The font lock keywords 416 ;;; The font lock keywords
417 417
418 (defconst hm--html-font-lock-keywords-1 418 (defconst hm--html-font-lock-keywords-1
456 ;;; The hook variables 456 ;;; The hook variables
457 (defvar hm--html-load-hook nil 457 (defvar hm--html-load-hook nil
458 "*Hook variable to execute functions after loading the package.") 458 "*Hook variable to execute functions after loading the package.")
459 459
460 (defvar hm--html-mode-hook nil 460 (defvar hm--html-mode-hook nil
461 "This hook will be called each time, when the hm--html-mode is invoked.") 461 "*This hook will be called each time, when the hm--html-mode is invoked.")
462 462
463 463
464 ;;; For the file html-view.el 464 ;;; For the file html-view.el
465 ;;; There are also some other variables in hmtl-view.el 465 ;;; There are also some other variables in hmtl-view.el
466 ;;; Look at that file, if you've trouble with the functions 466 ;;; Look at that file, if you've trouble with the functions
467 ;;; to preview the html document with the Mosaic 467 ;;; to preview the html document with the Mosaic
468 (defvar html-view-mosaic-command "/sol/www/bin/mosaic" 468 (defvar html-view-mosaic-command "/sol/www/bin/mosaic"
469 "The command that runs Mosaic on your system") 469 "The command that runs Mosaic on your system.")
470 470
471 (defvar html-sigusr1-signal-value 16 471 (defvar html-sigusr1-signal-value 16
472 "Value for the SIGUSR1 signal on your system. 472 "Value for the SIGUSR1 signal on your system.
473 See, usually, /usr/include/sys/signal.h. 473 See, usually, /usr/include/sys/signal.h.
474 SunOS 4.1.x : (setq html-sigusr1-signal-value 30) 474 SunOS 4.1.x : (setq html-sigusr1-signal-value 30)
618 (:hm--html-required-attributes (name))) 618 (:hm--html-required-attributes (name)))
619 ("style" (:hm--html-two-element-tag t)) 619 ("style" (:hm--html-two-element-tag t))
620 ("script" (:hm--html-two-element-tag t)) 620 ("script" (:hm--html-two-element-tag t))
621 ) 621 )
622 "An alist with tag names known by the `hm--html-mode'. 622 "An alist with tag names known by the `hm--html-mode'.
623 CURRENTLY THIS LIST CONTAINS NOT ALL TAGS!!!!. 623 CURRENTLY THIS LIST MIGHT NOT CONTAIN ALL TAGS!!!!.
624 624
625 It is used to determine, if a tag is a one element tag or not. 625 It is used to determine, if a tag is a one element tag or not.
626 626
627 In the future it should also be used to get possible parameters of 627 In the future it should also be used to get possible parameters of
628 the tag. 628 the tag.