Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-configuration.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 6a22abad6937
children 0d2f883870bc
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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.6 1997/03/26 22:42:37 steve Exp $ 3 ;;; $Id: hm--html-configuration.el,v 1.1.1.1 1996/12/18 22:43:20 steve Exp $
4 ;;; 4 ;;;
5 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel 5 ;;; Copyright (C) 1993, 1994, 1995, 1996 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
9 ;;; 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
10 ;;; the Free Software Foundation; either version 2, or (at your option) 10 ;;; the Free Software Foundation; either version 2, or (at your option)
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 precedes the settings in 27 ;;; ~/.hm--html-configuration.el, which preceeds 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 ;;;
47 "*The location of the users config file. 47 "*The location of the users config file.
48 This variable will only be used, if no environment variable 48 This variable will only be used, if no environment variable
49 \"HTML_USER_CONFIG_FILE\" is set. 49 \"HTML_USER_CONFIG_FILE\" is set.
50 Example value: \"~/.hm--html-configuration.el\".") 50 Example value: \"~/.hm--html-configuration.el\".")
51 51
52 ;;; The site specific config file
53 (defvar hm--html-site-config-file nil
54 "*The location of a site specific config file.
55 This variable will only be used, if no environment variable
56 \"HTML_SITE_CONFIG_FILE\" is set.")
57 52
58 ;;; Chose the initial popup menu 53 ;;; Chose the initial popup menu
59 (defvar hm--html-expert nil 54 (defvar hm--html-expert nil
60 "*t : Use the HTML expert popup menu, 55 "*t : Use the HTML expert popup menu,
61 nil : Use the HTML novice (simple) menu. 56 nil : Use the HTML novice (simple) menu.
70 For example: \"http://www.tnt.uni-hannover.de:80/data/info/www/tnt/info/tnt/whois/muenkel.html\".") 65 For example: \"http://www.tnt.uni-hannover.de:80/data/info/www/tnt/info/tnt/whois/muenkel.html\".")
71 66
72 67
73 (defvar hm--html-username nil 68 (defvar hm--html-username nil
74 "*Your Name for the signature. For example: \"Heiko Münkel\".") 69 "*Your Name for the signature. For example: \"Heiko Münkel\".")
75
76
77 ;;; HTML Doctype
78 (defvar hm--html-html-doctype-version "-//W3C//DTD HTML 3.2 Final//EN"
79 "The HTML version. This is used in the doctype element.")
80 70
81 71
82 ;;; Your favorite server (eg: the name of the host of your own http server) 72 ;;; Your favorite server (eg: the name of the host of your own http server)
83 ;;; This is used in some other variables 73 ;;; This is used in some other variables
84 74
189 ("pinus.slu.se:70") 179 ("pinus.slu.se:70")
190 ("sunic.sunet.se:70") 180 ("sunic.sunet.se:70")
191 ) 181 )
192 "*Alist with hostnames and ports for the gopher server.") 182 "*Alist with hostnames and ports for the gopher server.")
193 183
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
198 (defvar hm--html-gopher-doctype-alist '(("/1") 184 (defvar hm--html-gopher-doctype-alist '(("/1")
199 ("/11") 185 ("/11")
200 ("/00")) 186 ("/00"))
201 "*Alist with doctype strings for the gopher server.") 187 "*Alist with doctype strings for the gopher server.")
202 188
203 (defvar hm--html-gopher-doctype-default "/1" 189 (defvar hm--html-gopher-doctype-default "/1"
204 "*Default doctype string for the gopher server.") 190 "*Default doctype string for the gopher server.")
191
192 (defvar hm--html-gopher-hostname:port-default
193 "newsserver.rrzn.uni-hannover.de:70"
194 "*Default hostname with port for the gopher server.")
205 195
206 (defvar hm--html-gopher-anchor-alist 196 (defvar hm--html-gopher-anchor-alist
207 '(("veronica") 197 '(("veronica")
208 ("Wide%20Area%20Information%20Services%20databases") 198 ("Wide%20Area%20Information%20Services%20databases")
209 ("Subject%20Tree")) 199 ("Subject%20Tree"))
317 307
318 308
319 ;;; For the Templates 309 ;;; For the Templates
320 310
321 (defvar hm--html-template-dir "/data/info/www/tnt/guide/templates" 311 (defvar hm--html-template-dir "/data/info/www/tnt/guide/templates"
322 "*A directory with templatefiles. 312 "*A directory with templatefiles")
323 It is now also possible to use it as a list of directories. 313
324 Look at the variable `tmpl-template-dir-list' for further descriptions.") 314 (if (not (file-exists-p hm--html-template-dir))
325
326 (if (listp hm--html-template-dir)
327 (unless (file-exists-p (car hm--html-template-dir))
328 ;; Use a system directory, if the above one doesn't exist
329 ;; This may only be useful, in the XEmacs >= 19.12
330 (setq hm--html-template-dir (cons (concat data-directory
331 "../lisp/hm--html-menus/")
332 hm--html-template-dir)))
333 (unless (file-exists-p hm--html-template-dir)
334 ;; Use a system directory, if the above one doesn't exist 315 ;; Use a system directory, if the above one doesn't exist
335 ;; This may only be useful, in the XEmacs >= 19.12 316 ;; This is only useful, in the XEmacs 19.12
336 (setq hm--html-template-dir (concat data-directory 317 (setq hm--html-template-dir (concat data-directory
337 "../lisp/hm--html-menus/")))) 318 "../lisp/hm--html-menus/")))
338 319
339 (defvar hm--html-frame-template-file (concat data-directory 320 (defvar hm--html-frame-template-file (concat hm--html-template-dir
340 "../lisp/hm--html-menus/" 321 "frame.tmpl")
341 "frame.html.tmpl")
342 "File, which is used as template for a html frame.") 322 "File, which is used as template for a html frame.")
343 323
344 (defvar hm--html-automatic-expand-templates t 324 (defvar hm--html-automatic-expand-templates t
345 "*Automatic expansion of templates. This feature needs the file 325 "*Automatic expansion of templates. This feature needs the file
346 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),
347 which is distributed with the package hm--html-menus.") 327 which is distributed with the package hm--html-menus.")
348 328
349 (defvar hm--html-template-filter-regexp ".*\\.html\\.tmpl$"
350 "*Regexp for filtering out non template files in a directory.")
351 329
352 ;;; for deleting the automounter path-prefix 330 ;;; for deleting the automounter path-prefix
353 (defvar hm--html-delete-wrong-path-prefix '("/tmp_mnt" "/phys/[^/]+") 331 (defvar hm--html-delete-wrong-path-prefix '("/tmp_mnt" "/phys/[^/]+")
354 "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.
355 The Sun automounter adds a temporary prefix to the automounted directories 333 The Sun automounter adds a temporary prefix to the automounted directories
379 357
380 358
381 ;;; Keybindings: 359 ;;; Keybindings:
382 360
383 (defvar hm--html-bind-latin-1-char-entities t 361 (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 character entities. 362 "Set this to nil, if you don't want to use the ISO Latin 1 charcter entities.
385 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
386 used during loading the html package the first time.") 364 used during loading the html package the first time.")
387 365
388 366
389 ;;; The drag and drop interface 367 ;;; The drag and drop interface
391 "If t, then the hm--html-idd-* functions are creating relative links. 369 "If t, then the hm--html-idd-* functions are creating relative links.
392 Otherwise absolute links are used. The idd functions are used for 370 Otherwise absolute links are used. The idd functions are used for
393 drag and drop.") 371 drag and drop.")
394 372
395 (defvar hm--html-idd-actions 373 (defvar hm--html-idd-actions
396 '((nil (((idd-if-major-mode-p . dired-mode) 374 '((nil (((idd-major-mode-p . dired-mode)
397 (idd-if-dired-file-on-line-p . ".*\\.\\(gif\\)\\|\\(jpg\\)")) 375 (idd-dired-file-on-line-p . ".*\\.\\(gif\\)\\|\\(jpq\\)"))
398 hm--html-idd-add-include-image-from-dired-line) 376 hm--html-idd-add-include-image-from-dired-line)
399 (((idd-if-major-mode-p . dired-mode) 377 (((idd-major-mode-p . dired-mode)
400 (idd-if-dired-no-file-on-line-p . nil)) 378 (idd-dired-no-file-on-line-p . nil))
401 hm--html-idd-add-file-link-to-file-on-dired-line) 379 hm--html-idd-add-file-link-to-file-on-dired-line)
402 (((idd-if-major-mode-p . dired-mode) 380 (((idd-major-mode-p . dired-mode)
403 (idd-if-dired-no-file-on-line-p . t)) 381 (idd-dired-no-file-on-line-p . t))
404 hm--html-idd-add-file-link-to-directory-of-buffer) 382 hm--html-idd-add-file-link-to-directory-of-buffer)
405 (((idd-if-major-mode-p . w3-mode) 383 (((idd-major-mode-p . w3-mode)
406 (idd-if-url-at-point-p . t)) 384 (idd-url-at-point-p . t))
407 hm--html-idd-add-html-link-from-w3-buffer-point) 385 hm--html-idd-add-html-link-from-w3-buffer-point)
408 (((idd-if-major-mode-p . w3-mode)) 386 (((idd-major-mode-p . w3-mode))
409 hm--html-idd-add-html-link-to-w3-buffer) 387 hm--html-idd-add-html-link-to-w3-buffer)
410 (((idd-if-local-file-p . t)) 388 (((idd-local-file-p . t))
411 hm--html-idd-add-file-link-to-buffer))) 389 hm--html-idd-add-file-link-to-buffer)))
412 "The action list for the destination mode `hm--html-mode'. 390 "The action list for the source mode `hm--html-mode'.
413 Look at the description of the variable idd-actions.") 391 Look at the description of the variable idd-actions")
414 392
415 393
416 ;;; The font lock keywords 394 ;;; The font lock keywords
417 395
418 (defconst hm--html-font-lock-keywords-1 396 (defvar hm--html-font-lock-keywords
419 (list 397 (list
420 '("<!--.*-->" . font-lock-comment-face) 398 '("\\(<!--.*-->\\)\\|\\(<[^>]*>\\)+" . font-lock-comment-face)
421 '("<[^>]*>" . font-lock-keyword-face) 399 '("[Hh][Rr][Ee][Ff]=\"\\([^\"]*\\)\"" 1 font-lock-string-face t)
422 '("<[^>=]*href[ \t\n]*=[ \t\n]*\"\\([^\"]*\\)\"" 1 font-lock-string-face t) 400 '("[Ss][Rr][Cc]=\"\\([^\"]*\\)\"" 1 font-lock-string-face t))
423 '("<[^>=]src[ \t\n]*=[ \t\n]*\"\\([^\"]*\\)\"" 1 font-lock-string-face t))
424 "Subdued level highlighting for hm--html-mode.")
425
426 (defconst hm--html-font-lock-keywords-2
427 (append hm--html-font-lock-keywords-1
428 (list
429 '(">\\([^<]*\\)</a>" 1 font-lock-reference-face)
430 '("</b>\\([^<]*\\)</b>" 1 bold)
431 '("</i>\\([^<]*\\)</i>" 1 italic)
432 ))
433 "Gaudy level highlighting for hm--html-mode.")
434
435 (defvar hm--html-font-lock-keywords hm--html-font-lock-keywords-1
436 "Default expressions to highlight in the hm--html-mode.") 401 "Default expressions to highlight in the hm--html-mode.")
437
438 402
439 403
440 ;;; The Prefix- Key for the keytables 404 ;;; The Prefix- Key for the keytables
441 (defvar hm--html-minor-mode-prefix-key "\C-z" 405 (defvar hm--html-minor-mode-prefix-key "\C-z"
442 "The prefix key for the keytables in the `hm--html-minor-mode'.") 406 "The prefix key for the keytables in the `hm--html-minor-mode'.")
456 ;;; The hook variables 420 ;;; The hook variables
457 (defvar hm--html-load-hook nil 421 (defvar hm--html-load-hook nil
458 "*Hook variable to execute functions after loading the package.") 422 "*Hook variable to execute functions after loading the package.")
459 423
460 (defvar hm--html-mode-hook nil 424 (defvar hm--html-mode-hook nil
461 "*This hook will be called each time, when the hm--html-mode is invoked.") 425 "This hook will be called each time, when the hm--html-mode is invoked.")
462 426
463 427
464 ;;; For the file html-view.el 428 ;;; For the file html-view.el
465 ;;; There are also some other variables in hmtl-view.el 429 ;;; There are also some other variables in hmtl-view.el
466 ;;; Look at that file, if you've trouble with the functions 430 ;;; Look at that file, if you've trouble with the functions
467 ;;; to preview the html document with the Mosaic 431 ;;; to preview the html document with the Mosaic
468 (defvar html-view-mosaic-command "/sol/www/bin/mosaic" 432 (defvar html-view-mosaic-command "/sol/www/bin/mosaic"
469 "The command that runs Mosaic on your system.") 433 "The command that runs Mosaic on your system")
470 434
471 (defvar html-sigusr1-signal-value 16 435 (defvar html-sigusr1-signal-value 16
472 "Value for the SIGUSR1 signal on your system. 436 "Value for the SIGUSR1 signal on your system.
473 See, usually, /usr/include/sys/signal.h. 437 See, usually, /usr/include/sys/signal.h.
474 SunOS 4.1.x : (setq html-sigusr1-signal-value 30) 438 SunOS 4.1.x : (setq html-sigusr1-signal-value 30)
475 SunOS 5.x : (setq html-sigusr1-signal-value 16) 439 SunOS 5.x : (setq html-sigusr1-signal-value 16)
476 Linux : (setq html-sigusr1-signal-value 10))") 440 Linux : (setq html-sigusr1-signal-value 10))")
477 441
478 442
479 ;;; Meta information
480 (defvar hm--html-meta-name-alist '(("Expires") ("Keys") ("Author"))
481 "*Alist with possible names for the name or http-equiv attribute of meta.")
482
483 ;;; indentation
484
485 (defvar hm--html-disable-indentation nil
486 "*Set this to t, if you want to disable the indentation in the hm--html-mode.
487 And may be send me (muenkel@tnt.uni-hannover.de) a note, why you've
488 done this.")
489
490 (defvar hm--html-inter-tag-indent 2
491 "*The indentation after a start tag.")
492
493 (defvar hm--html-comment-indent 5
494 "*The indentation of a comment.")
495
496 (defvar hm--html-intra-tag-indent 2
497 "*The indentation after the start of a tag.")
498
499 (defvar hm--html-tag-name-alist
500 '(("!--" (:hm--html-one-element-tag t))
501 ("!doctype" (:hm--html-one-element-tag t))
502 ("isindex" (:hm--html-one-element-tag t)
503 (:hm--html-optional-attributes (prompt)))
504 ("base" (:hm--html-one-element-tag t)
505 (:hm--html-required-attributes (href)))
506 ("meta" (:hm--html-one-element-tag t)
507 (:hm--html-required-attributes (content))
508 (:hm--html-optional-attributes (http-equiv name)))
509 ("link" (:hm--html-one-element-tag t)
510 (:hm--html-optional-attributes (href rel rev title)))
511 ("hr" (:hm--html-one-element-tag t)
512 (:hm--html-optional-attributes (align noshade size width)))
513 ("input" (:hm--html-one-element-tag t)
514 (:hm--html-optional-attributes
515 (type name value checked size maxlength src align)))
516 ("img" (:hm--html-one-element-tag t)
517 (:hm--html-required-attributes (src))
518 (:hm--html-optional-attributes
519 (alt align height width border hspace vspace usemap ismap)))
520 ("param" (:hm--html-one-element-tag t)
521 (:hm--html-required-attributes (name))
522 (:hm--html-optional-attributes (value)))
523 ("br" (:hm--html-one-element-tag t)
524 (:hm--html-optional-attributes (clear)))
525 ("basefont" (:hm--html-one-element-tag t)
526 (:hm--html-optional-attributes size))
527 ("area" (:hm--html-one-element-tag t)
528 (:hm--html-required-attributes (alt))
529 (:hm--html-optional-attributes (shape coords href nohref)))
530 ("option" (:hm--html-one-element-tag t)
531 (:hm--html-optional-attributes (selected value)))
532
533 ("html" (:hm--html-two-element-tag t))
534 ("head" (:hm--html-two-element-tag t))
535 ("body" (:hm--html-two-element-tag t)
536 (:hm--html-optional-attributes (bgcolor text link vlink alink background))
537 )
538 ("h1" (:hm--html-two-element-tag t)
539 (:hm--html-optional-attributes (align)))
540 ("h2" (:hm--html-two-element-tag t)
541 (:hm--html-optional-attributes (align)))
542 ("h3" (:hm--html-two-element-tag t)
543 (:hm--html-optional-attributes (align)))
544 ("h4" (:hm--html-two-element-tag t)
545 (:hm--html-optional-attributes (align)))
546 ("h5" (:hm--html-two-element-tag t)
547 (:hm--html-optional-attributes (align)))
548 ("h6" (:hm--html-two-element-tag t)
549 (:hm--html-optional-attributes (align)))
550 ("address" (:hm--html-two-element-tag t))
551 ("p" (:hm--html-one-or-two-element-tag t)
552 (:hm--html-optional-attributes (align)))
553 ("ul" (:hm--html-two-element-tag t)
554 (:hm--html-optional-attributes (type compact)))
555 ("ol" (:hm--html-two-element-tag t)
556 (:hm--html-optional-attributes (type start compact)))
557 ("dl" (:hm--html-two-element-tag t)
558 (:hm--html-optional-attributes (compact)))
559 ("li" (:hm--html-one-or-two-element-tag t)
560 (:hm--html-optional-attributes (type (value "ol"))))
561 ("dt" (:hm--html-one-or-two-element-tag t))
562 ("dd" (:hm--html-one-or-two-element-tag t))
563 ("dir" (:hm--html-two-element-tag t)
564 (:hm--html-optional-attributes (compact)))
565 ("menu" (:hm--html-two-element-tag t)
566 (:hm--html-optional-attributes (compact)))
567 ("pre" (:hm--html-two-element-tag t)
568 (:hm--html-optional-attributes (width)))
569 ("div" (:hm--html-two-element-tag t)
570 (:hm--html-optional-attributes (align)))
571 ("center" (:hm--html-two-element-tag t))
572 ("blockquote" (:hm--html-two-element-tag t))
573 ("form" (:hm--html-two-element-tag t)
574 (:hm--html-optional-attributes (action method enctype)))
575 ("select" (:hm--html-two-element-tag t)
576 (:hm--html-required-attributes (name))
577 (:hm--html-optional-attributes (size multiple)))
578 ("textarea" (:hm--html-two-element-tag t)
579 (:hm--html-required-attributes (name rows cols)))
580 ("table" (:hm--html-two-element-tag t)
581 (:hm--html-optional-attributes
582 (align width border cellspacing cellpading)))
583 ("caption" (:hm--html-two-element-tag t)
584 (:hm--html-optional-attributes (align)))
585 ("tr" (:hm--html-one-or-two-element-tag t)
586 (:hm--html-optional-attributes (align valign)))
587 ("th" (:hm--html-one-or-two-element-tag t)
588 (:hm--html-optional-attributes
589 (nowrap rowspan colspan align valign width height)))
590 ("td" (:hm--html-one-or-two-element-tag t)
591 (:hm--html-optional-attributes
592 (nowrap rowspan colspan align valign width height)))
593 ("tt" (:hm--html-two-element-tag t))
594 ("i" (:hm--html-two-element-tag t))
595 ("b" (:hm--html-two-element-tag t))
596 ("u" (:hm--html-two-element-tag t))
597 ("strike" (:hm--html-two-element-tag t))
598 ("big" (:hm--html-two-element-tag t))
599 ("small" (:hm--html-two-element-tag t))
600 ("sub" (:hm--html-two-element-tag t))
601 ("sup" (:hm--html-two-element-tag t))
602 ("em" (:hm--html-two-element-tag t))
603 ("strong" (:hm--html-two-element-tag t))
604 ("dfn" (:hm--html-two-element-tag t))
605 ("code" (:hm--html-two-element-tag t))
606 ("samp" (:hm--html-two-element-tag t))
607 ("kbd" (:hm--html-two-element-tag t))
608 ("var" (:hm--html-two-element-tag t))
609 ("cite" (:hm--html-two-element-tag t))
610 ("a" (:hm--html-two-element-tag t)
611 (:hm--html-optional-attributes (name href rel rev title)))
612 ("applet" (:hm--html-two-element-tag t)
613 (:hm--html-required-attributes (code width height))
614 (:hm--html-optional-attributes (codebase alt name align hspace vspace)))
615 ("font" (:hm--html-two-element-tag t)
616 (:hm--html-optional-attributes (size color)))
617 ("map" (:hm--html-two-element-tag t)
618 (:hm--html-required-attributes (name)))
619 ("style" (:hm--html-two-element-tag t))
620 ("script" (:hm--html-two-element-tag t))
621 )
622 "An alist with tag names known by the `hm--html-mode'.
623 CURRENTLY THIS LIST MIGHT NOT CONTAIN ALL TAGS!!!!.
624
625 It is used to determine, if a tag is a one element tag or not.
626
627 In the future it should also be used to get possible parameters of
628 the tag.
629
630 Use lower case characters in this list!!!!")
631
632
633 ;;; Announce the feature hm--html-configuration 443 ;;; Announce the feature hm--html-configuration
634 (provide 'hm--html-configuration) 444 (provide 'hm--html-configuration)
635 445