Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-configuration.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children a145efe76779
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
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.2 1997/02/15 22:21:03 steve Exp $ 3 ;;; $Id: hm--html-configuration.el,v 1.3 1997/02/24 01:13:26 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
70 For example: \"http://www.tnt.uni-hannover.de:80/data/info/www/tnt/info/tnt/whois/muenkel.html\".") 70 For example: \"http://www.tnt.uni-hannover.de:80/data/info/www/tnt/info/tnt/whois/muenkel.html\".")
71 71
72 72
73 (defvar hm--html-username nil 73 (defvar hm--html-username nil
74 "*Your Name for the signature. For example: \"Heiko Münkel\".") 74 "*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.")
75 80
76 81
77 ;;; Your favorite server (eg: the name of the host of your own http server) 82 ;;; Your favorite server (eg: the name of the host of your own http server)
78 ;;; This is used in some other variables 83 ;;; This is used in some other variables
79 84
469 SunOS 4.1.x : (setq html-sigusr1-signal-value 30) 474 SunOS 4.1.x : (setq html-sigusr1-signal-value 30)
470 SunOS 5.x : (setq html-sigusr1-signal-value 16) 475 SunOS 5.x : (setq html-sigusr1-signal-value 16)
471 Linux : (setq html-sigusr1-signal-value 10))") 476 Linux : (setq html-sigusr1-signal-value 10))")
472 477
473 478
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
474 ;;; indentation 483 ;;; indentation
475 484
476 (defvar hm--html-disable-indentation nil 485 (defvar hm--html-disable-indentation nil
477 "*Set this to t, if you want to disable the indentation in the hm--html-mode. 486 "*Set this to t, if you want to disable the indentation in the hm--html-mode.
478 And may be send me (muenkel@tnt.uni-hannover.de) a note, why you've 487 And may be send me (muenkel@tnt.uni-hannover.de) a note, why you've
487 (defvar hm--html-intra-tag-indent 2 496 (defvar hm--html-intra-tag-indent 2
488 "*The indentation after the start of a tag.") 497 "*The indentation after the start of a tag.")
489 498
490 (defvar hm--html-tag-name-alist 499 (defvar hm--html-tag-name-alist
491 '(("!--" (:hm--html-one-element-tag t)) 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)))
492 ) 619 )
493 "An alist with tag names known by the `hm--html-mode'. 620 "An alist with tag names known by the `hm--html-mode'.
494 CURRENTLY THIS LIST CONTAINS NOT ALL TAGS!!!!. 621 CURRENTLY THIS LIST CONTAINS NOT ALL TAGS!!!!.
495 622
496 It is used to determine, if a tag is a one element tag or not. 623 It is used to determine, if a tag is a one element tag or not.
497 624
498 In the future it should also be used to get possible parameters of 625 In the future it should also be used to get possible parameters of
499 the tag.") 626 the tag.
627
628 Use lower case characters in this list!!!!")
500 629
501 630
502 ;;; Announce the feature hm--html-configuration 631 ;;; Announce the feature hm--html-configuration
503 (provide 'hm--html-configuration) 632 (provide 'hm--html-configuration)
504 633