xemacs-beta: lisp/hm--html-menus/hm--html.el comparison

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

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

-:804d1389bcd6
+:131b0175ea99
-;;; $Id: hm--html.el,v 1.6 1997/03/26 22:42:39 steve Exp $
+;;; $Id: hm--html.el,v 1.1.1.1 1996/12/18 22:43:20 steve Exp $
 ;;;
-;;; Copyright (C) 1993 - 1997  Heiko Muenkel
+;;; Copyright (C) 1993, 1994, 1995, 1996  Heiko Muenkel
 ;;; email: muenkel@tnt.uni-hannover.de
 ;;;
 ;;;  This program is free software; you can redistribute it and/or modify
 ;;;  it under the terms of the GNU General Public License as published by
 ;;;  the Free Software Foundation; either version 2, or (at your option)
 ;;; Installation:
 ;;;
 ;;;	Put this file in one of your load path directories.
 ;;;
-(defun hm--html-set-marker-at-position (&optional position)
+;(require 'hm--date)
-"Creates a new marker and set the marker at the POSITION.
+;(require 'adapt)
-If POSITION is nil, then the marker is set at the current point.
-The return value is the marker."
-(let ((marker (make-marker)))
+;;; Indentation
-(if position
-	(set-marker marker position)
+(defun hm--html-indent-region (begin end)
-(set-marker marker (point)))))
+"Indents the region between BEGIN and END according to the major mode."
+(when (< end begin)
+(let ((a end))
+(setq end start)
+(setq start a)))
+(save-excursion
+(goto-char begin)
+(let ((old-point))
+(while (and (<= (point) end)
+		  (not (eq (point) old-point)))
+	(setq old-point (point))
+	(indent-according-to-mode)
+	(forward-line)
+	))))
 ;;; Functions for adding html commands which consists of a start and a
 ;;; end tag and some text between them. (Basicfunctions)
 (defun hm--html-add-tags (function-insert-start-tag
 The first parameter specifies the funtion which insert the start tag
 and the third parameter specifies the function which insert the end tag.
 The second parameter is the string for the start tag and the fourth parameter
 is the string for the end tag. The third and fourth parameters are optional.
 The fifth parameter is optional. If it exists, it specifies a function which
-inserts the sixth parameter (the middle-start-tag) between the start and the
+inserts the sixth parameter (the middle-start-tag) between the start and the end
-end tag."
+tag."
+;  (interactive "aFunction, which adds the HTML start tag: \n\
+;aFunction, which adds the HTML end tag: \n\
+;sThe HTML start tag: \n\
+;sThe HTML end tag: ")
 (eval (list function-insert-start-tag start-tag))
 (if function-insert-middle-start-tag
 (eval (list function-insert-middle-start-tag middle-start-tag)))
-(let ((position (hm--html-set-marker-at-position (point))))
+(let ((position (point)))
 (if function-insert-middle-end-tag
 (eval (list function-insert-middle-end-tag middle-end-tag)))
 (if function-insert-end-tag
 	(eval (list function-insert-end-tag end-tag)))
 (goto-char position)))
 (defun hm--html-add-tags-to-region (function-insert-start-tag
 				    start-tag
 				    function-insert-end-tag
 				    end-tag
-				    &optional
+				    &optional function-insert-middle-tag
-				    function-insert-middle-tag
+				    &optional middle-tag)
-				    middle-tag)
 "Adds the start and the end html tag to the active region.
 The first parameter specifies the funtion which insert the start tag
 and the third parameter specifies the function which insert the end tag.
 The second parameter is the string for the start tag and the fourth parameter
 is the string for the end tag.
 The fifth parameter is optional. If it exists, it specifies a function which
 inserts the sixth parameter (the middle-tag) between the start and the end
 tag."
+;  (interactive "aFunction, which adds the html start tag: \n\
+;aFunction, which adds the html end tag: \n\
+;sThe HTML start tag: \n\
+;sThe HTML end tag: ")
 (save-window-excursion
-(let ((start (hm--html-set-marker-at-position (region-beginning)))
+(let ((start (region-beginning))
 	  (end (region-end)))
 (goto-char end)
 (eval (list function-insert-end-tag end-tag))
 (goto-char start)
 (eval (list function-insert-start-tag start-tag))
 "Inserts the HTML start tag 'tag' without a Newline.
 The parameter must be a string (i.e. \"<B>\")"
 (let ((start (point)))
 (insert tag)
 (hm--html-indent-region start (point))))
+;    (html-maybe-deemphasize-region start (- (point) 1))))
 (defun hm--html-insert-end-tag (tag)
 "Inserts the HTML end tag 'tag' without a Newline.
 The parameter must be a string (i.e. \"</B>\")"
 (let ((start (point)))
 (insert tag)
 (hm--html-indent-region start (point))))
+;    (html-maybe-deemphasize-region start (- (point) 1))))
 (defun hm--html-insert-start-tag-with-newline (tag)
 "Inserts the HTML start tag 'tag' with a Newline.
 The parameter must be a string (i.e. \"<PRE>\")"
 (let ((start (point)))
 (insert tag)
 (hm--html-indent-region start (point))
 )
+;    (html-maybe-deemphasize-region start (- (point) 1)))
 (insert "\n"))
 (defun hm--html-insert-end-tag-with-newline (tag)
 "Inserts the HTML end tag 'tag' with a Newline.
 The parameter must be a string (i.e. \"</PRE>\")"
 (insert "\n")
 (let ((start (point)))
 (insert tag)
 (hm--html-indent-region start (point))))
+;    (html-maybe-deemphasize-region start (- (point) 1))))
 ;;; Functions which add simple tags of the form <tag>
 (defun hm--html-add-list-or-menu-item-to-region ()
 "Adds the tags for a menu item to the region in the current buffer."
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag "<LI> "
 			       'hm--html-insert-end-tag " </LI>"))
-(defun hm--html-add-basefont (size)
-"Adds the HTML tag for a basefont."
-(interactive (list (hm--html-read-font-size t)))
-(hm--html-add-tags 'hm--html-insert-start-tag
-		     (concat "<BASEFONT SIZE=" size ">")))
 (defun hm--html-add-line-break ()
 "Adds the HTML tag for a line break."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag "<BR>"))
 (defun hm--html-add-paragraph-separator ()
 "Adds the tag for a paragraph seperator."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag "<P>"))
-(defun hm--html-add-doctype ()
-"Adds the tag with the doctype."
-(interactive)
-(goto-char (point-min))
-(hm--html-add-tags 'hm--html-insert-start-tag
-		     (concat "<!DOCTYPE HTML PUBLIC \""
-			     hm--html-html-doctype-version
-			     "\">"))
-(newline))
-(defun hm--html-search-place-for-element-in-head (end-point)
-"Searches the point for inserting an element between the head tags."
-(let ((point (point)))
-(if (and end-point (< (point) end-point))
-	(point)
-(goto-char (point-min))
-(if (re-search-forward
-	   (concat ;"\\(<title\\)\\|\\(<head\\)\\|\\(<html\\)\\|"
-	    "\\(<title\\)\\|"
-	    "\\(<isindex\\)\\|\\(<base\\)\\|\\(<link\\)\\|"
-	    "\\(<meta\\)")
-	   end-point
-	   t)
-	  (beginning-of-line)
-	end-point))))
-(defun hm--html-add-isindex (prompt)
-"Inserts the isindex tag. PROMPT is the value of the prompt attribute."
-(interactive "sPrompt: ")
-(save-excursion
-(let ((point (point))
-	  (case-fold-search t)
-	  (head-end-point))
-(goto-char (point-min))
-(setq head-end-point (when (re-search-forward
-				  "\\(</head\\)\\|\\(<body\\)\\|\\(</html\\)")
-			     (beginning-of-line)
-			     (point)))
-(goto-char (point-min))
-(cond ((re-search-forward "<isindex[^>]*>" head-end-point t)
-	     (delete-region (match-beginning 0) (match-end 0)))
-	    (t (goto-char point)
-	       (hm--html-search-place-for-element-in-head head-end-point)))
-(hm--html-add-tags 'hm--html-insert-start-tag-with-newline
-			 (concat "<ISINDEX "
-				 (if (and prompt
-					  (not (string= prompt "")))
-				     (concat " PROMPT=\"" prompt "\">")
-				   ">"))))))
-(defun hm--html-add-base (href)
-"Inserts the base tag. HREF is the value of the href attribute."
-(interactive (list (hm--html-read-url "URL of this document: "
-					nil
-					nil
-					t
-					nil)))
-(save-excursion
-(let ((point (point))
-	  (case-fold-search t)
-	  (head-end-point))
-(goto-char (point-min))
-(setq head-end-point (when (re-search-forward
-				  "\\(</head\\)\\|\\(<body\\)\\|\\(</html\\)")
-			     (beginning-of-line)
-			     (point)))
-(goto-char (point-min))
-(cond ((re-search-forward "<base[^>]*>" head-end-point t)
-	     (delete-region (match-beginning 0) (match-end 0)))
-	    (t (goto-char point)
-	       (hm--html-search-place-for-element-in-head head-end-point)))
-(hm--html-add-tags 'hm--html-insert-start-tag-with-newline
-			 (concat "<BASE "
-				 (if (and href
-					  (not (string= href "")))
-				     (concat " HREF=\"" href "\">")
-				   ">"))))))
-(defun hm--html-add-meta (name content &optional name-instead-of-http-equiv)
-"Inserts the meta tag."
-(interactive (list (completing-read "Name: " hm--html-meta-name-alist)
-		     (read-string "Content: ")))
-(save-excursion
-(let ((point (point))
-	  (case-fold-search t)
-	  (head-end-point))
-(goto-char (point-min))
-(setq head-end-point (when (re-search-forward
-				  "\\(</head\\)\\|\\(<body\\)\\|\\(</html\\)")
-			     (beginning-of-line)
-			     (point)))
-(goto-char point)
-(hm--html-search-place-for-element-in-head head-end-point)
-(hm--html-add-tags 'hm--html-insert-start-tag-with-newline
-			 (concat "<META "
-				 (if name-instead-of-http-equiv
-				     "NAME=\""
-				   "HTTP-EQUIV=\"")
-				 name
-				 "\" CONTENT=\""
-				 content
-				 "\">")))))
 ;;; Functions which include something in HTML- documents
 (defvar hm--html-url-history-list nil
 "Function reads the value for the \"ALT\"- attribute in IMG tags.
 URL will be used as the default URL for the external viewer."
 (let ((alttype
 	 (string-to-int
 	  (completing-read
+;	   "0: No ALT atribute, 1: ALT=\"\", 2: ALT=Text, 3: ALT=External Viewer: "
 	   "0: No ALT atribute, 1: ALT=\"\", 2: ALT=Text: "
+;	   '(("0") ("1") ("2") ("3"))
 	   '(("0") ("1") ("2"))
 	   nil
 	   t
 	   "2"))))
 (cond ((= alttype 0) nil)
 			  (substring (file-name-nondirectory url)
 				     0
 				     (string-match
 				      "\\."
 				      (file-name-nondirectory url)))))
+;	  ((= alttype 3) (concat "<A HREF=\""
+;				 url
+;				 "\">"
+;				 (file-name-nondirectory url)
+;				 "</A>"))
 	  )))
-(defun hm--html-read-alignment (prompt)
-"Read the value for the align attribute."
-(upcase (completing-read prompt
-			   '(("left") ("right") ("top") ("bottom") ("middle"))
-			   nil
-			   t
-			   "left")))
-(defvar hm--html-shape-history nil
-"History variable for reading the shape of an image map.")
-(defun hm--html-read-shape ()
-"Reads the shap for an area element."
-(upcase(completing-read "The shape of the area: "
-			  '(("rect") ("circle") ("poly"))
-			  nil
-			  t
-			  (or (car hm--html-shape-history) "rect")
-			  'hm--html-shape-history)))
-(defun hm--html-read-rect-coords ()
-"Reads rectangle coordinates for the area element."
-(concat (read-string "Left x position of the rectangle: ") ", "
-	  (read-string "Top y position of the rectangle: ") ", "
-	  (read-string "Right x position of the rectangle: ") ", "
-	  (read-string "Bottom y position of the rectangle: ")))
-(defun hm--html-read-circle-coords ()
-"Reads circle coordinates for the area element."
-(concat (read-string "x position of the center of the circle: ") ", "
-	  (read-string "y position of the center of the circle: ") ", "
-	  (read-string "Radius: ")))
-(defun hm--html-read-one-poly-coordinate (&optional empty-string-prompt)
-"Reads one poly coordinate pair."
-(let* ((x (read-string (concat "x coordinate"
-				  (or empty-string-prompt "")
-				  ": ")))
-	 (y (unless (string= "" x)
-	      (read-string "y coordinate: "))))
-(if (string= "" x)
-	""
-(concat x ", " y))))
-(defun hm--html-read-more-poly-coordinates ()
-"Reads poly coordinates until an empty string is given."
-(let ((coord (hm--html-read-one-poly-coordinate
-		" (Empty string for no further coords!)")))
-(cond ((string= "" coord) "")
-	  (t (concat ", " coord (hm--html-read-more-poly-coordinates))))))
-(defun hm--html-read-poly-coords ()
-"Reads poly coordinates for the area element."
-(concat (hm--html-read-one-poly-coordinate) ", "
-	  (hm--html-read-one-poly-coordinate) ", "
-	  (hm--html-read-one-poly-coordinate)
-	  (hm--html-read-more-poly-coordinates)))
-(defun hm--html-add-area (href alt shape coords)
-"Adds the tags for an area at the current point."
-(interactive (let* ((href (hm--html-read-url "Url for the image area: "))
-		      (alt (hm--html-read-altenate href))
-		      (shape (hm--html-read-shape))
-		      (coords (cond ((string= shape "RECT")
-				     (hm--html-read-rect-coords))
-				    ((string= shape "CIRCLE")
-				     (hm--html-read-circle-coords))
-				    ((string= shape "POLY")
-				     (hm--html-read-poly-coords))
-				    (t (error "No function to read \""
-					      shape
-					      "\" coordinates!")))))
-		 (list href alt shape coords)))
-(hm--html-add-tags 'hm--html-insert-end-tag-with-newline
-		     (concat "<AREA"
-			     " HREF=\"" href "\""
-			     (if alt
-				 (concat "\nALT=\"" alt "\"")
-			       "")
-			     "\nSHAPE=" shape
-			     "\nCOORDS=\"" coords "\""
-			     ">")))
-(when (adapt-emacs19p)
-(defvar :ask ':ask))
-(defvar hm--html-use-image-as-map ':ask
-"Internal variable of `hm--html-add-image'.
-nil => insert the image element without an usemap attribute.
-t => insert the image element with an usemap attribute.
-:ask => ask, if the image element should have an usemap attribute.")
-(defun hm--html-add-image (href alt alignment mapname)
-"Add an image."
-(interactive (let* ((href (hm--html-read-url "Image URL: "))
-		      (alt (hm--html-read-altenate href))
-		      (alignment (hm--html-read-alignment
-				  "Alignment of the image: "))
-		      (use-as-map (if (eq hm--html-use-image-as-map ':ask)
-				      (y-or-n-p
-				       "Use the image as a map with links? ")
-				    hm--html-use-image-as-map))
-		      (mapname (and use-as-map (hm--html-read-mapname))))
-		 (list href alt alignment mapname)))
-(hm--html-add-tags
-'hm--html-insert-start-tag
-(concat "<IMG ALIGN=" alignment
-	   "\nHREF=\"" href "\""
-	   (if alt
-	       (concat "\nALT=\"" alt "\"")
-	     "")
-	   (if mapname
-	       (concat "\nUSEMAP=\"#" mapname "\"")
-	     "")
-	   ">")))
 (defun hm--html-add-image-bottom (href alt)
 "Add an image, bottom aligned."
 (interactive (let ((url (hm--html-read-url "Image URL: ")))
 		 (list url (hm--html-read-altenate url))))
 			     "\" VALUE=\""
 			     value
 			     "\">")))
+(defun hm--html-add-server-side-include-file (file)
+"This function adds a server side include file directive in the buffer.
+The directive is only supported by the NCSA http daemon."
+(interactive "FInclude File: ")
+(let ((start (point)))
+(if (string= file "")
+	(error "ERROR: No filename specified !")
+(insert "<INC SRV \"" file "\">"))))
+;      (html-maybe-deemphasize-region (1+ start) (1- (point))))))
+(defun hm--html-add-server-side-include-command-with-isindex-parameter
+(command)
+"This function adds a server side include command directive in the buffer.
+The include command uses the \"isindex\"- parameter for the specified command."
+(interactive (list
+		(completing-read "Include Command: "
+				 hm--html-server-side-include-command-alist)))
+(hm--html-add-server-side-include-command command t))
+(defun hm--html-add-server-side-include-command (command &optional srvurl)
+"This function adds a server side include command directive in the buffer.
+The directive is only supported by the NCSA http daemon.
+If SRVURL is t, then the attribute srvurl instead of srv is used for the
+include command. With srvurl, the include command uses the \"isindex\"-
+parameter for the specified command."
+(interactive (list
+		(completing-read "Include Command: "
+				 hm--html-server-side-include-command-alist)))
+(let ((start (point))
+	(attribute (if srvurl "SRVURL" "SRV")))
+(if (string= command "")
+	(error "ERROR: No command specified !")
+(if (= ?| (string-to-char command))
+	  (insert "<INC " attribute" \"" command "\">")
+	(insert "<INC " attribute " \"|" command "\">")))))
+;	(html-maybe-deemphasize-region (1+ start) (1- (point)))))))
+;(defun hm--html-add-server-side-include-command-with-parameter (command
+;								parameter)
+;  "This function adds a server side include command directive in the buffer.
+;The directive is only supported by the NCSA http daemon."
+;  (interactive (list
+;		(completing-read
+;		 "Include Command: "
+;		 hm--html-server-side-include-command-with-parameter-alist)
+;		(read-string "Parameterlist sepearted by '?': ")))
+;  (let ((start (point)))
+;    (if (string= command "")
+;	(error "ERROR: No command specified !")
+;      (if (string= parameter "")
+;	  (error "ERROR: No parameter specified !")
+;	(if (= ?| (string-to-char command))
+;	    (if (= ?? (string-to-char parameter))
+;		(insert "<INC SRVURL \"" command parameter "\">")
+;	      (insert "<INC SRVURL \"" command "?" parameter "\">"))
+;	  (if (= ?? (string-to-char parameter))
+;	      (insert "<INC SRVURL \"|" command parameter "\">")
+;	    (insert "<INC SRVURL \"|" command "?" parameter "\">")))
+;	(html-maybe-deemphasize-region (1+ start) (1- (point)))))))
 ;;; Functions, which adds tags of the form <starttag> ... </endtag>
 (defun hm--html-add-big ()
 "Adds the HTML tags for Big at the point in the current buffer."
 			       "<!-- "
 			       'hm--html-insert-end-tag
 			       " -->"))
-(defun hm--html-add-document-division (alignment)
-"Adds the HTML tags for document division at the current point."
-(interactive (list (hm--html-read-alignment "Alignment of the division: ")))
-(hm--html-add-tags 'hm--html-insert-start-tag-with-newline
-		     (concat "<DIV ALIGN=\"" alignment "\">")
-		     'hm--html-insert-end-tag-with-newline
-		     "</DIV>"))
-(defun hm--html-add-document-division-to-region (alignment)
-"Adds the HTML tags for document division to the region."
-(interactive (list (hm--html-read-alignment "Alignment of the division: ")))
-(hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
-			       (concat "<DIV ALIGN=\"" alignment "\">")
-			       'hm--html-insert-end-tag-with-newline
-			       "</DIV>"))
 (defun hm--html-add-preformated ()
 "Adds the HTML tags for preformated text at the point in the current buffer."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 			       "<PRE>"
 			       'hm--html-insert-end-tag-with-newline
 			       "</PRE>"))
+(defun hm--html-add-plaintext ()
+"Adds the HTML tags for plaintext."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag-with-newline
+		     "<XMP>"
+		     'hm--html-insert-end-tag-with-newline
+		     "</XMP>"))
+(defun hm--html-add-plaintext-to-region ()
+"Adds the HTML tags for plaintext to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
+			       "<XMP>"
+			       'hm--html-insert-end-tag-with-newline
+			       "</XMP>"))
 (defun hm--html-add-blockquote ()
 "Adds the HTML tags for blockquote."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 		     "<BLOCKQUOTE>"
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
 			       "<BLOCKQUOTE>"
 			       'hm--html-insert-end-tag-with-newline
 			       "</BLOCKQUOTE>"))
-(defun hm--html-add-script ()
+(defun hm--html-add-abstract ()
-"Adds the HTML tags for script."
+"Adds the HTML tags for abstract text at the point in the current buffer."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
-		     "<SCRIPT>"
+		     "<ABSTRACT>"
 		     'hm--html-insert-end-tag-with-newline
-		     "</SCRIPT>"))
+		     "</ABSTRACT>"))
-(defun hm--html-add-script-to-region ()
+(defun hm--html-add-abstract-to-region ()
-"Adds the HTML tags for script to the region."
+"Adds the HTML tags for abstract text to the region."
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
-			       "<SCRIPT>"
+			       "<ABSTRACT>"
 			       'hm--html-insert-end-tag-with-newline
-			       "</SCRIPT>"))
+			       "</ABSTRACT>"))
-(defun hm--html-add-style ()
-"Adds the HTML tags for style."
-(interactive)
-(hm--html-add-tags 'hm--html-insert-start-tag-with-newline
-		     "<STYLE>"
-		     'hm--html-insert-end-tag-with-newline
-		     "</STYLE>"))
-(defun hm--html-add-style-to-region ()
-"Adds the HTML tags for style to the region."
-(interactive)
-(hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
-			       "<STYLE>"
-			       'hm--html-insert-end-tag-with-newline
-			       "</STYLE>"))
 (defun hm--html-add-strikethru ()
 "Adds the HTML tags for Strikethru at the point in the current buffer."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag
-		     "<STRIKE>"
+		     "<S>"
 		     'hm--html-insert-end-tag
-		     "</STRIKE>"))
+		     "</S>"))
 (defun hm--html-add-strikethru-to-region ()
 "Adds the HTML tags for Strikethru to the region."
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag
-			       "<STRIKE>"
+			       "<S>"
 			       'hm--html-insert-end-tag
-			       "</STRIKE>"))
+			       "</S>"))
 (defun hm--html-add-superscript ()
 "Adds the HTML tags for Superscript at the point in the current buffer."
 (interactive)
 			       "<SUB>"
 			       'hm--html-insert-end-tag
 			       "</SUB>"))
+(defun hm--html-add-quote ()
+"Adds the HTML tags for Quote at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<Q>"
+		     'hm--html-insert-end-tag
+		     "</Q>"))
+(defun hm--html-add-quote-to-region ()
+"Adds the HTML tags for Quote to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<Q>"
+			       'hm--html-insert-end-tag
+			       "</Q>"))
+(defun hm--html-add-person ()
+"Adds the HTML tags for Person at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<PERSON>"
+		     'hm--html-insert-end-tag
+		     "</PERSON>"))
+(defun hm--html-add-person-to-region ()
+"Adds the HTML tags for Person to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<PERSON>"
+			       'hm--html-insert-end-tag
+			       "</PERSON>"))
+(defun hm--html-add-instance ()
+"Adds the HTML tags for Instance at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<INS>"
+		     'hm--html-insert-end-tag
+		     "</INS>"))
+(defun hm--html-add-instance-to-region ()
+"Adds the HTML tags for Instance to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<INS>"
+			       'hm--html-insert-end-tag
+			       "</INS>"))
 (defun hm--html-add-option ()
 "Adds the HTML tags for Option at the point in the current buffer."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag
 		     "<OPT>"
 			       "<OPT>"
 			       'hm--html-insert-end-tag
 			       "</OPT>"))
-(defun hm--html-read-font-size (&optional only-absolute-size)
+(defun hm--html-add-publication ()
-"Reads the size for the FONT element.
+"Adds the HTML tags for Publication at the point in the current buffer."
-It returns nil, if the size should not be changed."
+(interactive)
-(let ((size
+(hm--html-add-tags 'hm--html-insert-start-tag
-	 (if only-absolute-size
+		     "<PUB>"
-	     (completing-read "The absolute font size (1 .. 7): "
+		     'hm--html-insert-end-tag
-			      '(("7") ("6") ("5") ("4") ("3") ("2") ("1"))
+		     "</PUB>"))
-			      nil
-			      t
-			      "4")
+(defun hm--html-add-publication-to-region ()
-	   (completing-read "The relative (+/-) or absolute font size: "
+"Adds the HTML tags for Publication to the region."
-			    '(("-7") ("-6") ("-5") ("-4") ("-3") ("-2") ("-1")
+(interactive)
-			      ("+7") ("+6") ("+5") ("+4") ("+3") ("+2") ("+1")
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
-			      ("7") ("6") ("5") ("4") ("3") ("2") ("1")
+			       "<PUB>"
-			      ("use-basefont"))
+			       'hm--html-insert-end-tag
-			    nil
+			       "</PUB>"))
-			    t
-			    "use-basefont-size"))))
-(if (string= size "use-basefont-size")
+(defun hm--html-add-author ()
-	nil
+"Adds the HTML tags for Author at the point in the current buffer."
-size)))
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
-(defun hm--html-read-font-color ()
+		     "<AUTHOR>"
-"Reads the size for the FONT element.
+		     'hm--html-insert-end-tag
-It returns nil, if the color should not be changed."
+		     "</AUTHOR>"))
-(let ((color
-	 (completing-read "The font color: "
-			  '(("Black") ("Silver") ("Gray") ("White") ("Maroon")
+(defun hm--html-add-author-to-region ()
-			    ("Green") ("Lime") ("Olive") ("Yellow") ("Navy")
+"Adds the HTML tags for Author to the region."
-			    ("Red") ("Purple") ("Fuchsia") ("Blue") ("Teal")
+(interactive)
-			    ("Aqua") ("dont-set-color"))
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
-			  nil
+			       "<AUTHOR>"
-			  nil
+			       'hm--html-insert-end-tag
-			  "dont-set-color")))
+			       "</AUTHOR>"))
-(if (string= color "dont-set-color")
-	nil
-color)))
+(defun hm--html-add-editor ()
+"Adds the HTML tags for Editor at the point in the current buffer."
+(interactive)
-(defun hm--html-add-font (size color)
+(hm--html-add-tags 'hm--html-insert-start-tag
-"Adds the HTML tags for Font at the point in the current buffer."
+		     "<EDITOR>"
-(interactive (list (hm--html-read-font-size)
+		     'hm--html-insert-end-tag
-		     (hm--html-read-font-color)))
+		     "</EDITOR>"))
+(defun hm--html-add-editor-to-region ()
+"Adds the HTML tags for Editor to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<EDITOR>"
+			       'hm--html-insert-end-tag
+			       "</EDITOR>"))
+(defun hm--html-add-credits ()
+"Adds the HTML tags for Credits at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<CREDITS>"
+		     'hm--html-insert-end-tag
+		     "</CREDITS>"))
+(defun hm--html-add-credits-to-region ()
+"Adds the HTML tags for Credits to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<CREDITS>"
+			       'hm--html-insert-end-tag
+			       "</CREDITS>"))
+(defun hm--html-add-copyright ()
+"Adds the HTML tags for Copyright at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<COPYRIGHT>"
+		     'hm--html-insert-end-tag
+		     "</COPYRIGHT>"))
+(defun hm--html-add-copyright-to-region ()
+"Adds the HTML tags for Copyright to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<COPYRIGHT>"
+			       'hm--html-insert-end-tag
+			       "</COPYRIGHT>"))
+(defun hm--html-add-isbn ()
+"Adds the HTML tags for ISBN at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<ISBN>"
+		     'hm--html-insert-end-tag
+		     "</ISBN>"))
+(defun hm--html-add-isbn-to-region ()
+"Adds the HTML tags for ISBN to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<ISBN>"
+			       'hm--html-insert-end-tag
+			       "</ISBN>"))
+(defun hm--html-add-acronym ()
+"Adds the HTML tags for Acronym at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<ACRONYM>"
+		     'hm--html-insert-end-tag
+		     "</ACRONYM>"))
+(defun hm--html-add-acronym-to-region ()
+"Adds the HTML tags for Acronym to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<ACRONYM>"
+			       'hm--html-insert-end-tag
+			       "</ACRONYM>"))
+(defun hm--html-add-abbrevation ()
+"Adds the HTML tags for Abbrevation at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<ABBREV>"
+		     'hm--html-insert-end-tag
+		     "</ABBREV>"))
+(defun hm--html-add-abbrev-to-region ()
+"Adds the HTML tags for Abbrev to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<ABBREV>"
+			       'hm--html-insert-end-tag
+			       "</ABBREV>"))
+(defun hm--html-add-command ()
+"Adds the HTML tags for Command at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<CMD>"
+		     'hm--html-insert-end-tag
+		     "</CMD>"))
+(defun hm--html-add-command-to-region ()
+"Adds the HTML tags for Command to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<CMD>"
+			       'hm--html-insert-end-tag
+			       "</CMD>"))
+(defun hm--html-add-argument ()
+"Adds the HTML tags for Argument at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<ARG>"
+		     'hm--html-insert-end-tag
+		     "</ARG>"))
+(defun hm--html-add-argument-to-region ()
+"Adds the HTML tags for Argument to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<ARG>"
+			       'hm--html-insert-end-tag
+			       "</ARG>"))
+(defun hm--html-add-literature ()
+"Adds the HTML tags for Literature at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<LIT>"
+		     'hm--html-insert-end-tag
+		     "</LIT>"))
+(defun hm--html-add-literature-to-region ()
+"Adds the HTML tags for Literature to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<LIT>"
+			       'hm--html-insert-end-tag
+			       "</LIT>"))
+(defun hm--html-add-footnote ()
+"Adds the HTML tags for Footnote at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<FOOTNOTE>"
+		     'hm--html-insert-end-tag
+		     "</FOOTNOTE>"))
+(defun hm--html-add-footnote-to-region ()
+"Adds the HTML tags for Footnote to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<FOOTNOTE>"
+			       'hm--html-insert-end-tag
+			       "</FOOTNOTE>"))
+(defun hm--html-add-margin ()
+"Adds the HTML tags for Margin at the point in the current buffer."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag
+		     "<MARGIN>"
+		     'hm--html-insert-end-tag
+		     "</MARGIN>"))
+(defun hm--html-add-margin-to-region ()
+"Adds the HTML tags for Margin to the region."
+(interactive)
+(hm--html-add-tags-to-region 'hm--html-insert-start-tag
+			       "<MARGIN>"
+			       'hm--html-insert-end-tag
+			       "</MARGIN>"))
+;;; Lists
+(defun hm--html-add-listing ()
+"Adds the HTML tags for listing."
+(interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
-		     (concat "<FONT"
+		     "<LISTING>"
-			     (if size
-				 (concat " SIZE=" size)
-			       "")
-			     (if color
-				 (concat " COLOR=" color)
-			       "")
-			     ">")
 		     'hm--html-insert-end-tag-with-newline
-		     "</FONT>"))
+		     "</LISTING>"))
-(defun hm--html-add-font-to-region (size color)
+(defun hm--html-add-listing-to-region ()
-"Adds the HTML tags for Font to the region."
+"Adds the HTML tags for listing to the region."
-(interactive (list (hm--html-read-font-size)
+(interactive)
-		     (hm--html-read-font-color)))
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
-			       (concat "<FONT"
+			       "<LISTING>"
-				       (if size
-					   (concat " SIZE=" size)
-					 "")
-				       (if color
-					   (concat " COLOR=" color)
-					 "")
-				       ">")
 			       'hm--html-insert-end-tag-with-newline
-			       "</FONT>"))
+			       "</LISTING>"))
-;;; Lists
 (defun hm--html-add-center ()
 "Adds the HTML tags for center at the current point."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
 			       "<CENTER>"
 			       'hm--html-insert-end-tag-with-newline
 			       "</CENTER>"))
-(defvar hm--html-mapname-history nil
-"The history variable for the function `hm--html-read-mapname'.")
-(defun hm--html-read-mapname ()
-"Reads the name of an image map."
-(let ((name (read-string "The name of the image map: "
-			   (or (car hm--html-mapname-history)
-			       "map")
-			   'hm--html-mapname-history)))
-name))
-(defun hm--html-add-image-map ()
-"Adds an image and a map element."
-(interactive)
-(let* ((href (hm--html-read-url "Image URL: "))
-	 (alt (hm--html-read-altenate href))
-	 (alignment (hm--html-read-alignment
-		     "Alignment of the image: "))
-	 (mapname (hm--html-read-mapname)))
-(hm--html-add-image href alt alignment mapname)
-(newline)
-(hm--html-add-map mapname)
-(call-interactively 'hm--html-add-area)))
-(defun hm--html-add-map (name)
-"Adds the HTML tags for map at the current point."
-(interactive (list (hm--html-read-mapname)))
-(hm--html-add-tags 'hm--html-insert-start-tag-with-newline
-		     (concat "<MAP NAME=\"" name "\">")
-		     'hm--html-insert-end-tag
-		     "</MAP>")
-(end-of-line 0))
-(defun hm--html-add-map-to-region (name)
-"Adds the HTML tags for map to the region."
-(interactive (list (hm--html-read-mapname)))
-(hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
-			       (concat "<MAP NAME=\"" name "\">")
-			       'hm--html-insert-end-tag-with-newline
-			       "</MAP>"))
 (defun hm--html-add-numberlist ()
 "Adds the HTML tags for a numbered list at the point in the current buffer."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 		     "<OL>"
 		     'hm--html-insert-end-tag-with-newline
 		     "</OL>"
 		     'hm--html-insert-start-tag
-		     "<LI> "
+		     "<LI> "))
-		     'hm--html-insert-end-tag
-		     " </LI>"))
 (defun hm--html-add-numberlist-to-region ()
 "Adds the HTML tags for a numbered list to the region."
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
 			       "<OL>"
 			       'hm--html-insert-end-tag-with-newline
-			       "</OL>"))
+			       "</OL>"
+			       'hm--html-insert-start-tag
+			       "<LI> "))
 (defun hm--html-add-directory-list ()
 "Adds the HTML tags for a directory list at the point in the current buffer."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 		     "<DIR>"
 		     'hm--html-insert-end-tag-with-newline
 		     "</DIR>"
 		     'hm--html-insert-start-tag
-		     "<LI> "
+		     "<LI> "))
-		     'hm--html-insert-end-tag
-		     " </LI>"))
 (defun hm--html-add-directorylist-to-region ()
 "Adds the HTML tags for a directory list to the region."
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
 			       "<DIR>"
 			       'hm--html-insert-end-tag-with-newline
-			       "</DIR>"))
+			       "</DIR>"
+			       'hm--html-insert-start-tag
+			       "<LI> "))
 (defun hm--html-add-list ()
 "Adds the HTML tags for a (unnumbered) list to the region."
 (interactive)
 (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 			       "<UL>"
 			       'hm--html-insert-end-tag-with-newline
 			       "</UL>"
 			       'hm--html-insert-start-tag
-			       "<LI> "
+			       "<LI> "))
-			       'hm--html-insert-end-tag
-			       " </LI>"))
 (defun hm--html-add-list-to-region ()
 "Adds the HTML tags for a (unnumbered) list to the region."
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
 			       "<UL>"
 			       'hm--html-insert-end-tag-with-newline
-			       "</UL>"))
+			       "</UL>"
+			       'hm--html-insert-start-tag
+			       "<LI> "))
+(defun hm--html-add-menu ()
+"Adds the HTML tags for a menu."
+(interactive)
+(hm--html-add-tags 'hm--html-insert-start-tag-with-newline
+		     "<MENU>"
+		     'hm--html-insert-end-tag-with-newline
+		     "</MENU>"
+		     'hm--html-insert-start-tag
+		     "<LI> "))
 (defun hm--html-add-menu ()
 "Adds the HTML tags for a menu."
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
 			       "<MENU>"
 			       'hm--html-insert-end-tag-with-newline
 			       "</MENU>"))
+;			       'hm--html-insert-start-tag
+;			       "<LI> "))
 (defun hm--html-add-description-title-and-entry ()
 "Adds a definition title and entry.
 Assumes we're at the end of a previous entry."
 (interactive)
 (hm--html-add-description-title)
-(let ((position (point))
+(let ((position (point)))
-	(case-fold-search t))
+(search-forward "</DT>")
-(search-forward "</dt>")
+(hm--html-add-only-description-entry)
-(hm--html-add-description-entry)
 (goto-char position)))
 (defun hm--html-add-description-list ()
 "Adds the HTML tags for a description list.
 (interactive)
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag-with-newline
 			       "<DL>"
 			       'hm--html-insert-end-tag-with-newline
 			       "</DL>"))
+;			       'hm--html-insert-start-tag
+;			       "<DT> "))
 (defun hm--html-add-description-title ()
 "Adds the HTML tags for a description title at current point in the buffer."
 (interactive)
 (defun hm--html-make-signature-link-string (signature-file-name)
 "Returns a string which is a link to a signature file."
 (concat
-"<A NAME=\""
+"<A Name="
 hm--html-signature-reference-name
-"\"\nHREF=\""
+" HREF=\""
 signature-file-name
 "\">"))
 (defun hm--html-delete-old-signature ()
 "Searches for the old signature and deletes it, if the user want it"
 (save-excursion
 (goto-char (point-min))
-(let ((case-fold-search t))
+(if (search-forward (concat "<address> "
-(if (re-search-forward (concat "<address>[ \t\n]*"
+				"<a name="
-				     "<a[ \t\n]+name=[ \t\n]*\"?"
+				hm--html-signature-reference-name
-				     hm--html-signature-reference-name
+				" href=\"")
-				     "\"?[ \t\n]+href=[ \t\n]*\"")
+			nil
-			     nil
+			t)
-			     t)
+	(let ((signature-start (match-beginning 0))
-	  (let ((signature-start (match-beginning 0))
+	      (signature-end (progn
-		(signature-end (progn
+			       (search-forward "</address>" nil t)
-				 (re-search-forward "</address>[ \t]*[\n]?"
+			       (point))))
-						    nil
+	  (if (yes-or-no-p "Delete the old signature (yes or no) ?")
-						    t)
+	      (delete-region signature-start signature-end))))))
-				 (point))))
-	    (when (yes-or-no-p "Delete the old signature (yes or no) ?")
-	      (delete-region signature-start signature-end)
-	      (hm--html-indent-line)))))))
 (defun hm--html-set-point-for-signature ()
 "Searches and sets the point for inserting the signature.
 It searches from the end to the beginning of the file. At first it
 tries to use the point before the </body> tag then the point before
 the </html> tag and the the end of the file."
 (goto-char (point-max))
-(let ((case-fold-search t))
+(cond ((search-backward "</body>" nil t)
-(cond ((search-backward "</body>" nil t)
+	 (end-of-line 0)
-	   (end-of-line 0)
+	 (if (> (current-column) 0)
-	   (if (> (current-column) 0)
+	     (newline 2)))
-	       (newline 1)))
+	((search-backward "</html>" nil t)
-	  ((search-backward "</html>" nil t)
+	 (end-of-line 0)
-	   (end-of-line 0)
+	 (if (> (current-column) 0)
-	   (if (> (current-column) 0)
+	     (newline 2)))
-	       (newline 2)))
+	((> (current-column) 0)
-	  ((> (current-column) 0)
+	 (newline 2))
-	   (newline 2))
+	(t)))
-	  (t))))
 (defun hm--html-add-signature ()
 "Adds the owner's signature at the end of the buffer."
 (interactive)
 	(if (not hm--html-username)
 	    (setq hm--html-username (user-full-name)))
 	(save-excursion
 	  (hm--html-delete-old-signature)
 	  (hm--html-set-point-for-signature)
-	  (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
+	  (hm--html-add-tags 'hm--html-insert-start-tag
-			     "<ADDRESS>"
+			     "<ADDRESS> "
 			     'hm--html-insert-end-tag
-			     "</A>\n</ADDRESS>"
+			     "</A></ADDRESS>"
 			     'hm--html-insert-start-tag
 			     (hm--html-make-signature-link-string
 			      hm--html-signature-file)
 			     )
 	  (insert hm--html-username)))
 position after the tag. If not, the function next searches for the
 tag <HEAD> and sets the point after the tag, if it exists, or searches for
 the tag <HTML>. If this tag exists, the point is set to the position after
 this tag or the beginning of the file otherwise."
 (goto-char (point-min))
-(let ((case-fold-search t))
+(cond ((search-forward-regexp "<isindex>" nil t) (newline))
-(cond ((search-forward-regexp "<isindex[^>]*>" nil t) (newline))
+	((search-forward-regexp "<head>" nil t) (newline))
-	  ((search-forward-regexp "<head[^>]*>" nil t) (newline))
+	((search-forward-regexp "<html>" nil t) (newline))
-	  ((search-forward-regexp "<html[^>]*>" nil t) (newline))
+	(t)))
-	  (t))))
 (defun hm--html-add-title (title)
 "Adds the HTML tags for a title at the beginning of the buffer."
 (interactive "sTitle: ")
 (save-excursion
 (goto-char (point-min))
-(let ((case-fold-search t))
+(if (search-forward "<title>" nil t)
-(if (search-forward "<title>" nil t)
+	(let ((point-after-start-tag (point)))
-	  (let ((point-after-start-tag (point)))
+	  (if (not (search-forward "</title>" nil t))
-	    (if (not (search-forward "</title>" nil t))
+	      nil
-		nil
+	    (goto-char (- (point) 8))
-	      (goto-char (- (point) 8))
+	    (delete-backward-char (- (point) point-after-start-tag))
-	      (delete-backward-char (- (point) point-after-start-tag))
+	    (let ((start (point)))
-	      (let ((start (point)))
+	      (insert title " (" (hm--date) ")")
-		(insert title " (" (hm--date) ")")
+	      (goto-char start))))
-		(goto-char start))))
+;; Noch kein <TITLE> im Buffer vorhanden
-	;; Noch kein <TITLE> im Buffer vorhanden
+(hm--html-set-point-for-title)
-	(hm--html-set-point-for-title)
+(hm--html-add-tags 'hm--html-insert-start-tag
-	(hm--html-add-tags 'hm--html-insert-start-tag
+			 "<TITLE>"
-			   "<TITLE>"
+			 'hm--html-insert-end-tag
-			   'hm--html-insert-end-tag
+			 "</TITLE>"
-			   "</TITLE>"
+			 'insert
-			   'insert
+			 (concat title " (" (hm--date) ")"))
-			   (concat title " (" (hm--date) ")"))
+(forward-char 8)
-	(forward-char 8)
+(newline 1)
-	(newline 1)
+)))
-	))))
 (defun hm--html-add-title-to-region ()
 "Adds the HTML tags for a title to the region."
 (interactive)
-(let ((title (buffer-substring (region-beginning) (region-end)))
+(let ((title (buffer-substring (region-beginning) (region-end))))
-	(case-fold-search t))
 (save-excursion
 (goto-char (point-min))
 (if (search-forward "<title>" nil t)
 	  (let ((point-after-start-tag (point)))
 	    (if (not (search-forward "</title>" nil t))
 	))))
 (defun hm--html-add-html ()
 "Adds the HTML tags <HTML> and </HTML> in the buffer.
-The tag <HTML> will be inserted at the beginning (after the
+The tag <HTML> will be inserted at the beginning and </HTML> at the
-<!DOCTYPE ...>, if it is already there.) and </HTML> at the
 end of the file."
 (interactive)
-(let ((new-cursor-position nil)
+(let ((new-cursor-position nil))
-	(case-fold-search t))
 (save-excursion
 (goto-char (point-min))
 (if (search-forward "<html>" nil t)
 	  (error "There is an old tag <HTML> in the current buffer !")
-	(re-search-forward "<!DOCTYPE[^>]*>[ \t\n]*" nil t)
 	(hm--html-add-tags 'hm--html-insert-start-tag-with-newline "<HTML>")
 ;	(newline 1)
 	)
 (setq new-cursor-position (point))
 (goto-char (point-max))
 (goto-char new-cursor-position)))
 (defun hm--html-add-head ()
 "Adds the HTML tags <HEAD> and </HEAD> in the buffer.
-The tags will be inserted after <HTML> or at the beginning
+The tags will be inserted after <HTML> or at the beginning of the file.
-of the file after <DOCTYPE...> (if it is already there).
 The function also looks for the tags <BODY> and </TITLE>."
 (interactive)
-(let ((case-fold-search t))
 (goto-char (point-min))
-(re-search-forward "<!DOCTYPE[^>]*>[ \t\n]*" nil t)
 (if (search-forward "<html>" nil t)
 	(if (search-forward "<head>" nil t)
 	    (error "There is an old tag <HEAD> in the current buffer !")
 	  (if (search-forward "</head>" nil t)
 	      (error "There is an old tag </HEAD> in the current buffer !")
 	      (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 				 "<HEAD>"))
 	  (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 			     "<HEAD>"
 			     'hm--html-insert-end-tag-with-newline
-			     "</HEAD>"))))))
+			     "</HEAD>")))))
 (defun hm--html-add-head-to-region ()
 "Adds the HTML tags <HEAD> and </HEAD> to the region."
 (interactive)
 (defun hm--html-add-body ()
 "Adds the HTML tags <BODY> and </BODY> in the buffer.
 The tags will be inserted before </HTML> or at the end of the file."
 (interactive)
-(let ((case-fold-search t))
 (goto-char (point-max))
 (if (search-backward "</html>" nil t)
 	(progn
 	  (if (search-backward "</body>" nil t)
 	      (error "There is an old tag </BODY> in the current buffer !")
 	    (if (search-backward "<body>" nil t)
 		(error "There is an old tag <BODY> in the current buffer !")))
 	  (forward-char -1)))
-(let ((end-tag-position (set-marker (make-marker) (point))))
+(let ((end-tag-position (point)))
 (if (search-backward "</head>" nil t)
 	  (progn
 	    (forward-char 7)
 	    (newline 1)
 	    (hm--html-add-tags 'hm--html-insert-start-tag-with-newline
 			       "<BODY>")
 	    (let ((cursor-position (point)))
-	      (goto-char end-tag-position)
+	      (goto-char (+ end-tag-position 8))
 	      (hm--html-add-tags 'hm--html-insert-end-tag-with-newline
 				 "</BODY>")
 	      (goto-char cursor-position)
 	      ))
 	(if (not (= (current-column) 0))
 	    (newline))
 	(hm--html-add-tags 'hm--html-insert-start-tag-with-newline "<BODY>"
-			   'hm--html-insert-end-tag-with-newline "</BODY>")))))
+			   'hm--html-insert-end-tag-with-newline "</BODY>"))))
 (defun hm--html-add-body-to-region ()
 "Adds the HTML tags <BODY> and </BODY> to the region."
 (interactive)
 			       "</BODY>"))
 (defun hm--html-add-title-and-header (title)
 "Adds the HTML tags for a title and a header in the current buffer."
+;  (interactive "sTitle and Header String: \nnHeader Size (1 .. 6): ")
+;  (if (> size 6)
+;      (message "The size must be a number from 1 to 6 !")
 (interactive "sTitle and Header String: ")
-(let ((case-fold-search t))
+(hm--html-add-title title)
-(hm--html-add-title title)
+(save-excursion
-(save-excursion
+(goto-char (point-min))
-(goto-char (point-min))
+(search-forward "</title>" nil t)
-(search-forward "</title>" nil t)
+(if (search-forward "</head>" nil t)
-(if (search-forward "</head>" nil t)
+	(progn
-	  (progn
+	  (search-forward "<body>" nil t)
-	    (search-forward "<body>" nil t)
+	  (newline 1))
-	    (newline 1))
+(if (search-forward "<body>" nil t)
-	(if (search-forward "<body>" nil t)
+	  (newline 1)
-	    (newline 1)
+	(if (string= (what-line) "Line 1")
-	  (if (string= (what-line) "Line 1")
+	    (progn
-	      (progn
+	      (end-of-line)
-		(end-of-line)
+	      (newline 1)))))
-		(newline 1)))))
+(hm--html-add-header 1 title)))
-(hm--html-add-header 1 title))))
 (defun hm--html-add-title-and-header-to-region ()
 "Adds the HTML tags for a title and a header to the region."
+;The parameter 'size' spezifies the size of the header.";"
+;  (interactive "nSize (1 .. 6): ")
+;  (if (> size 6)
+;      (message "The size must be a number from 1 to 6 !")
 (interactive)
 (let ((title (buffer-substring (region-beginning) (region-end))))
 (hm--html-add-header-to-region 1)
 (hm--html-add-title title)))
 "Adds a full HTML frame to the current buffer.
 The frame consists of the elements html, head, body, title,
 header and the signature. The parameter TITLE specifies the
 title and the header of the document."
 (interactive "sTitle and Header String: ")
-(let ((case-fold-search t))
+(hm--html-add-html)
-(hm--html-add-doctype)
+(hm--html-add-head)
-(hm--html-add-html)
+(hm--html-add-body)
-(hm--html-add-head)
+(hm--html-add-title-and-header title)
-(hm--html-add-body)
+(if hm--html-signature-file
-(hm--html-add-title-and-header title)
+(hm--html-add-signature))
-(if hm--html-signature-file
+(goto-char (point-min))
-	(hm--html-add-signature))
+(search-forward "</h1>" nil t)
-(goto-char (point-min))
+(forward-line 1)
-(search-forward "</h1>" nil t)
+(if hm--html-automatic-created-comment
-(forward-line 1)
+(hm--html-insert-created-comment)))
-(if hm--html-automatic-created-comment
-	(hm--html-insert-created-comment))))
 (defun hm--html-add-full-html-frame-with-region ()
 "Adds a full HTML frame to the current buffer with the use of a region.
 The frame consists of the elements html, head, body, title,
 header and the signature. The function uses the region as
 the string for the title and the header of the document."
 (interactive)
 (hm--html-add-title-and-header-to-region)
-(hm--html-add-doctype)
 (hm--html-add-html)
 (hm--html-add-head)
 (hm--html-add-body)
 (hm--html-add-signature)
 (if hm--html-automatic-created-comment
 			       'hm--html-insert-end-tag
 			       "</A>"))
 (defun hm--html-add-link-target (name)
 "Adds the HTML tags for a link target at point in the current buffer."
+;  (interactive "sName (or RET for numeric): ")
 (interactive "sName: ")
+;  (and (string= name "")
+;       (progn
+;         (setq html-link-counter (1+ html-link-counter))
+;         (setq name (format "%d" html-link-counter))))
 (hm--html-add-tags 'hm--html-insert-start-tag
 		     (concat "<A NAME=\"" name "\">")
 		     'hm--html-insert-end-tag
 		     "</A>"))
 ;;; Functions which add links
 (defun hm--html-mark-example (parameter-list)
 "Marks the example of the parameterlist in the current buffer.
 It returns the example extent."
-(let ((case-fold-search t))
+(if (hm--html-get-example-from-parameter-list parameter-list)
-(if (hm--html-get-example-from-parameter-list parameter-list)
+(progn
-	(progn
+	(search-forward (hm--html-get-example-from-parameter-list
-	  (search-forward (hm--html-get-example-from-parameter-list
+			 parameter-list))
-			   parameter-list))
+	(let ((extent (make-extent (match-beginning 0)
-	  (let ((extent (make-extent (match-beginning 0)
+				   (match-end 0))))
-				     (match-end 0))))
+	  (set-extent-face extent 'hm--html-help-face)
-	    (set-extent-face extent 'hm--html-help-face)
+	  extent))))
-	    extent)))))
 (defun hm--html-unmark-example (extent)
 "Unmarks the example for the current question."
 (if extent
 (delete-extent extent)))
+;      )
+;  ;; For the Emacs 19
+;  (defun hm--html-mark-example (parameter-list)
+;    "Marks the example of the parameterlist in the current buffer.
+;It returns the example extent."
+;    	(if (hm--html-get-example-from-parameter-list parameter-list)
+;	    (progn
+;	      (search-forward (hm--html-get-example-from-parameter-list
+;			       parameter-list))
+;	      (put-text-property (match-beginning 0)
+;				 (match-end 0)
+;				 'face
+;				 'hm--html-help-face))))
+;
+;
+;  (defun hm--html-unmark-example (extent)
+;    "Unmarks the example for the current question."
+;    t))
 (defun hm--html-write-alist-in-buffer (alist)
 "The function writes the contents of the ALIST in the currentbuffer."
 (cond ((car alist)
 					 ""
 					 require-match
 					 nil)))
 	(hm--html-unmark-example marked-object)
 	(hm--html-delete-wrong-path-prefix filename))
+;	(if (not hm--html-delete-wrong-path-prefix)
+;	    filename
+;	  (if (string-match hm--html-delete-wrong-path-prefix filename)
+;	      (substring filename (match-end 0))
+;	    filename)))
 ""))
 (defun hm--html-completing-read (parameter-list)
 "Reads a string with completing-read, if alist is non nil.
 (defun hm--html-generate-help-buffer-faces ()
 "Generates faces for the add-link-help-buffer."
 (if (not (facep 'hm--html-help-face))
+;  (if (not hm--html-faces-exist)
 (progn
 	(setq hm--html-faces-exist t)
 	(make-face 'hm--html-help-face)
 	(if hm--html-help-foreground
 	    (set-face-foreground 'hm--html-help-face hm--html-help-foreground))
 SERVERNAME:PORT-PARAMETER-LIST, PATH+FILE-PARAMETER-LIST and
 ANCHOR-PARAMETER-LIST are lists with a prompt string, an alist, a default
 value and an example string. The ANCHOR-PARAMETER-LIST has as an additional
 element an anchor seperator string. All these elements are used to read and
 construct the link."
-;  (let ((point nil))
+(let ((point nil))
 (save-window-excursion
 (let ((html-buffer (current-buffer))
-	  (html-help-buffer (hm--html-generate-add-link-help-buffer
+	    (html-help-buffer (hm--html-generate-add-link-help-buffer
-			     scheme-parameter-list
+			       scheme-parameter-list
-			     host-name:port-parameter-list
+			       host-name:port-parameter-list
-			     servername:port-parameter-list
+			       servername:port-parameter-list
-			     path+file-parameter-list
+			       path+file-parameter-list
-			     anchor-parameter-list))
+			       anchor-parameter-list))
-	  (scheme (hm--html-completing-read scheme-parameter-list))
+	    (scheme (hm--html-completing-read scheme-parameter-list))
-	  (hostname:port (hm--html-completing-read
+	    (hostname:port (hm--html-completing-read
-			  host-name:port-parameter-list))
+			    host-name:port-parameter-list))
-	  (servername:port (hm--html-completing-read
+	    (servername:port (hm--html-completing-read
-			    servername:port-parameter-list))
+			      servername:port-parameter-list))
-	  (path+file (hm--html-read-filename path+file-parameter-list))
+	    (path+file (hm--html-read-filename path+file-parameter-list))
-	  (anchor (hm--html-completing-read anchor-parameter-list))
+	    (anchor (hm--html-completing-read anchor-parameter-list))
-;	  (hrefname (setq html-link-counter (1+ html-link-counter)))
+;	    (hrefname (setq html-link-counter (1+ html-link-counter)))
-	  (anchor-seperator
+	    (anchor-seperator
-	   (hm--html-get-anchor-seperator-from-parameter-list
+	     (hm--html-get-anchor-seperator-from-parameter-list
-	    anchor-parameter-list)))
+	      anchor-parameter-list)))
-(if (not (string= scheme ""))
+	(if (not (string= scheme ""))
-	  (if (string= hostname:port "")
+	    (if (string= hostname:port "")
-	      (setq scheme (concat scheme ":"))
+		(setq scheme (concat scheme ":"))
-	    (setq scheme (concat scheme "://"))))
+	      (setq scheme (concat scheme "://"))))
-(if (and (not (string= hostname:port ""))
+	(if (and (not (string= hostname:port ""))
-	       (not (string= servername:port ""))
+		 (not (string= servername:port ""))
-	       (not (string= (substring servername:port 0 1) "/")))
+		 (not (string= (substring servername:port 0 1) "/")))
-	  (setq servername:port (concat "/" servername:port)))
+	    (setq servername:port (concat "/" servername:port)))
-(if (and (not (string= path+file ""))
+	(if (and (not (string= path+file ""))
-	       (not (string= "/" (substring path+file 0 1))))
+		 (not (string= "/" (substring path+file 0 1))))
-	  (setq path+file (concat "/" path+file)))
+	    (setq path+file (concat "/" path+file)))
-(if (not (string= anchor ""))
+	(if (not (string= anchor ""))
-	  (setq anchor (concat anchor-seperator anchor)))
+	    (setq anchor (concat anchor-seperator anchor)))
-(kill-buffer  html-help-buffer)
+	(kill-buffer  html-help-buffer)
-(pop-to-buffer html-buffer)
+	(pop-to-buffer html-buffer)
-(eval (list function-add-tags
+	(eval (list function-add-tags
-		  ''hm--html-insert-start-tag
+		    ''hm--html-insert-start-tag
-		  (concat "<A"
+		    (concat "<A"
 ;		            "<A Name="
 ;			    hrefname
-			  " HREF=\""
+			    " HREF=\""
-			  scheme
+			    scheme
-			  hostname:port
+			    hostname:port
-			  servername:port
+			    servername:port
-			  path+file
+			    path+file
-			  anchor
+			    anchor
-			  "\">")
+			    "\">")
-		  ''hm--html-insert-end-tag
+		    ''hm--html-insert-end-tag
-		  "</A>")))
+		    "</A>")))
-;    (setq point (point))))
+(setq point (point))))
-; (goto-char (point)))
+(goto-char (point)))
-))
 (defun hm--html-add-info-link-1 (function-add-tags)
 "Internal function. Adds the HTML tags for a link on a GNU Info file."
 (hm--html-add-link function-add-tags
 		     (list				; scheme
 "Makes a proggate-alist from the PROGGATE-ALLOWED-FILE."
 (if (and (stringp proggate-allowed-file)
 	   (file-exists-p proggate-allowed-file))
 (save-window-excursion
 	(let ((alist nil)
-	      (buffername (find-file-noselect proggate-allowed-file))
+	      (buffername (find-file-noselect proggate-allowed-file)))
-	      (case-fold-search t))
 	  (set-buffer buffername)
 	  (toggle-read-only)
 	  (goto-char (point-min))
 	  (while (search-forward-regexp "[^ \t\n]+" nil t)
 	    (setq alist (append (list (list (buffer-substring
 (defun hm--html-make-newsgroup-alist ()
 "Makes a hm--html-make-newsgroup-alist from a .newsrc.el file.
 The function looks at the environment variable NNTPSERVER.
-If this variable exists, it tries to open the file with the Name
+If this variable exists, it trys to open the file with the Name
 ~/$NNTPSERVER.el. If this file exists, the alist of the file is
 returned as the newsgroup-alist. If the file doesn't exist, it
 tries to use the file ~/$NNTPSERVER to make the alist. The function
 returns '((\"\"))"
 (if hm--html-newsgroup-alist
 		(setq hm--html-newsgroup-alist gnus-newsrc-assoc))
 	    (if (not (file-exists-p newsrc-file))
 		'((""))
 	      (save-window-excursion
 		(let ((alist nil)
-		      (buffername (find-file-noselect newsrc-file))
+		      (buffername (find-file-noselect newsrc-file)))
-		      (case-fold-search t))
 		  (set-buffer buffername)
 		  (toggle-read-only)
 		  (goto-char (point-min))
 		  (while (search-forward-regexp "[^:!]+" nil t)
 		    (setq alist (append (list (list (buffer-substring
 (defun hm--html-add-mail-box-link ()
 "Adds the HTML tags for a link to a mail box."
 (interactive)
-(hm--html-add-mail-box-link-1 'hm--html-add-tags))
+(hm--html-add-mail-link-1 'hm--html-add-tags))
 (defun hm--html-add-mail-box-link-to-region ()
 "Adds the HTML tags for a link to a mail box to the region."
 (interactive)
-(hm--html-add-mail-box-link-1 'hm--html-add-tags-to-region))
+(hm--html-add-mail-link-1 'hm--html-add-tags-to-region))
 (defun hm--html-add-mailto-link-1 (function-add-tags)
 "Internal function. Adds the HTML tags for a mailto link."
 (let ((mailto-alist (if (and (boundp 'user-mail-address)
 (interactive)
 (hm--html-add-mailto-link-1 'hm--html-add-tags-to-region))
 (defun hm--html-add-relative-link (relative-file-path)
 "Adds the HTML tags for a relative link at the current point."
-(interactive (list (file-relative-name
+(interactive (list (read-file-name "Relative Filename: "
-		      (read-file-name "Relative Filename: "
+				     nil
-				      nil
+				     nil
-				      nil
+				     nil
-				      nil
+				     "")))
-				      "")
-		      default-directory)
-		     ))
 (hm--html-add-tags 'hm--html-insert-start-tag
 		     (concat "<A HREF=\""
 			     relative-file-path
 			     "\">")
 		     'hm--html-insert-end-tag
 		     "</A>"))
 (defun hm--html-add-relative-link-to-region (relative-file-path)
 "Adds the HTML tags for a relative link to the region."
-(interactive (list (file-relative-name
+(interactive (list (read-file-name "Relative Filename: "
-		      (read-file-name "Relative Filename: "
+				     nil
-				      nil
+				     nil
-				      nil
+				     nil
-				      nil
+				     "")))
-				      ""))))
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag
 			       (concat "<A HREF=\""
 				       relative-file-path
 				       "\">")
 			       'hm--html-insert-end-tag
 Single argument LINK-OBJECT is value of HREF in the new anchor.
 Mark is set after anchor."
 (interactive "sNode Link to: ")
 (hm--html-add-tags-to-region 'hm--html-insert-start-tag
 			       (concat "<A HREF=\""
+;				       (read-string "Link to: ")
 				       link-object
 				       "\">")
 			       'hm--html-insert-end-tag
 			       "</A>"))
 			   (point-max)))))
 (goto-char (point-min))
 (if (re-search-forward
 	   (concat
 	    "\\((\\)"
-	    "\\([ \t]*[0-3]?[0-9]-[A-Z][a-z][a-z]-[0-9][0-9][0-9][0-9]"
+	    "\\([ \t]*[0-3]?[0-9]-[A-Z][a-z][a-z]-[0-9][0-9][0-9][0-9][ \t]*\\)"
-	    "[ \t]*\\)"
 	    "\\()[ \t\n]*</title>\\)")
 	   end-of-head
 	   t)
 	  (progn
 	    (delete-region (match-beginning 2) (match-end 2))
 			   (point-max)))))
 (goto-char (point-min))
 (if (not (search-forward "</title>" end-of-head t))
 	  (if (not noerror)
 	      (error "ERROR: Please insert a title in the document !"))
-;	(let ((end-of-title-position (point)))
+	(let ((end-of-title-position (point)))
-	(if (search-forward "<!-- Created by: " end-of-head t)
+	  (if (search-forward "<!-- Created by: " end-of-head t)
-	    (if (yes-or-no-p
+	      (if (yes-or-no-p
-		 "Replace the old comment \"<!-- Created by: \" ")
+		   "Replace the old comment \"<!-- Created by: \" ")
-		(progn
+		  (progn
-		  (goto-char (match-beginning 0))
+		    (goto-char (match-beginning 0))
-		  (kill-line)
+		    (kill-line)
-		  (hm--html-add-comment)
+		    (hm--html-add-comment)
-		  (insert "Created by: "
+		    (insert "Created by: "
-			  (or hm--html-username (user-full-name))
+			    (or hm--html-username (user-full-name))
-			  ", "
+			    ", "
-			  (hm--date))))
+			    (hm--date))))
-	  (newline)
+	    (newline)
-	  (hm--html-add-comment)
+	    (hm--html-add-comment)
-	  (insert "Created by: "
+	    (insert "Created by: "
-		  (or hm--html-username (user-full-name))
+		    (or hm--html-username (user-full-name))
-		  ", "
+		    ", "
-		  (hm--date)
+		    (hm--date)
-		  ))))))
+		    )))))))
 (defun hm--html-insert-changed-comment-1 (newline username)
 "Internal function of 'hm--html-insert-changed-comment'.
 Inserts a newline if NEWLINE is t, before the comment is inserted.
 USERNAME is the name to be inserted in the comment."
 (if newline
 (progn
+;	(end-of-line)
 	(newline)))
 (hm--html-add-comment)
 (insert "Changed by: " username ", " (hm--date)))
 (defun hm--html-insert-changed-comment (&optional noerror)
 ;;; Functions to insert templates
 (defvar hm--html-template-file-history nil
-"Historyvariable for the template files in the `hm--html-mode'.")
+"Historvariable for the template files.")
 (defun hm--html-insert-template (filename)
-"Inserts a templatefile.
+"Inserts a templatefile."
-It uses `tmpl-insert-template-file' to insert
+(interactive (list
-the templates. The variables `tmpl-template-dir-list',
+		(let ((file-name-history hm--html-template-file-history))
-`tmpl-automatic-expand' and `tmpl-history-variable-name' are
+		  (read-file-name "Templatefile: "
-overwritten by `hm--html-template-dir',
+				  hm--html-template-dir
-`hm--html-automatic-expand-templates' and `hm--html-template-file-history'."
+				  nil
-(interactive (list nil))
+				  t
-(let ((tmpl-template-dir-list (if (listp hm--html-template-dir)
+				  nil))))
-				    hm--html-template-dir
+;				'hm--html-template-file-history)))
-				  (list hm--html-template-dir)))
+(insert-file (expand-file-name filename))
-	(tmpl-automatic-expand hm--html-automatic-expand-templates)
+(if hm--html-automatic-expand-templates
-	(tmpl-history-variable-name 'hm--html-template-file-history))
+(tmpl-expand-templates-in-buffer))
-(if filename
+(if hm--html-automatic-created-comment
-	(tmpl-insert-template-file filename)
+(hm--html-insert-created-comment t)))
-(call-interactively 'tmpl-insert-template-file))
-))
-(defun hm--html-insert-template-from-fixed-dirs (filename)
+;;; Functions for highlighting
-"Inserts a templatefile.
-It uses `tmpl-insert-template-file-from-fixed-dirs' to insert
+;(defun hm--html-toggle-use-highlighting ()
-the templates. The variables `tmpl-template-dir-list',
+;  "Toggles the variable html-use-highlighting."
-`tmpl-automatic-expand', `tmpl-filter-regexp' and
+;  (interactive)
-`tmpl-history-variable-name' are overwritten by
+;  (if html-use-highlighting
-`hm--html-template-dir', `hm--html-automatic-expand-templates',
+;      (setq html-use-highlighting nil)
-`hm--html-template-filter-regexp' and `hm--html-template-file-history'."
+;    (setq html-use-highlighting t)))
-(interactive (list nil))
-(let ((tmpl-template-dir-list (if (listp hm--html-template-dir)
-				    hm--html-template-dir
-				  (list hm--html-template-dir)))
-	(tmpl-automatic-expand hm--html-automatic-expand-templates)
-	(tmpl-filter-regexp hm--html-template-filter-regexp)
-	(tmpl-history-variable-name 'hm--html-template-file-history))
-(if filename
-	(tmpl-insert-template-file-from-fixed-dirs filename)
-(call-interactively 'tmpl-insert-template-file-from-fixed-dirs))
-))
 ;;; Functions for font lock mode
 (if (adapt-emacs19p)
 (or (face-differs-from-default-p 'font-lock-string-face)
 	  (progn
 	    (copy-face 'font-lock-doc-string-face 'font-lock-string-face)
 	    (set-face-underline-p 'font-lock-string-face t)))
 (setq font-lock-comment-face 'font-lock-comment-face)
+;; (setq font-lock-doc-string-face 'font-lock-doc-string-face)
 (setq font-lock-string-face 'font-lock-string-face)))
+;(defun hm--html-set-font-lock-color ()
+;  "Sets the color for the font lock mode in HTML mode.
+;This color is used to highlight HTML expressions."
+;    (interactive)
+;    (setq hm--html-font-lock-color
+;	  (completing-read "Color: "
+;			   '(("grey80")
+;			     ("black")
+;			     ("red")
+;			     ("yellow")
+;			     ("blue"))
+;			   nil
+;			   nil
+;			   "black"))
+;    (set-face-foreground 'font-lock-comment-face hm--html-font-lock-color)
+;    (set-face-foreground 'font-lock-string-face hm--html-font-lock-color))
+;;; Functions which determine if an active region exists
+;(defvar hm--region-active nil
+;  "t   : Region is active.
+;nil: Region is inactive.")
+;
+;
+;(defun hm--set-hm--region-active ()
+;  (setq hm--region-active t))
+;
+;
+;(defun hm--unset-hm--region-active ()
+;  (setq hm--region-active nil))
 ;;; Functions to insert forms
 (defun hm--html-form-read-method ()
 (interactive "NNo of cells in a row: ")
 (if (< no-of-cells 1)
 (error "ERROR: There must be at least one cell in a row!"))
 (hm--html-add-tags
 'hm--html-insert-end-tag-with-newline
-(concat "<TR>"
+(concat
-	   (mapconcat '(lambda (entry)
+(mapconcat '(lambda (entry)
-			 (concat "<TH" entry))
+		  (concat "<TH" entry))
-		      (hm--html-table-read-cell-entries-and-alignments
+	       (hm--html-table-read-cell-entries-and-alignments 1 no-of-cells)
-		       1
+	       " ")
-		       no-of-cells)
+" <TR>")))
-		      " </TH>")
-	   " </TH></TR>")))
 (defun hm--html-add-first-table-row (no-of-cells)
 "Adds the HTML tags for a table row.
 It asks for the number of cells and the allignment of the cells.
 (interactive "NNo of cells in a row: ")
 (if (< no-of-cells 1)
 (error "ERROR: There must be at least one cell in a row!"))
 (hm--html-add-tags
 'hm--html-insert-end-tag-with-newline
-(concat "<TR><TD"
+(concat "<TD" (car (hm--html-table-read-cell-entries-and-alignments 1 1))
-	   (car (hm--html-table-read-cell-entries-and-alignments 1 1))
+	   " "
-	   " </TD>"
 	   (if (<= no-of-cells 1)
-	       "</TR>"
+	       "<TR>"
 	     (concat
 	      (mapconcat '(lambda (entry)
 			    (concat "<TD" entry))
 			  (hm--html-table-read-cell-entries-and-alignments
 			   2 no-of-cells)
-			 " </TD>")
+			 " ")
-	      " </TD></TR>")))))
+	      " <TR>")))))
 (defun hm--html-table-get-previous-alignments ()
 "Returns a list with the alignments of the previous table row.
 The row must be a data row and not a header row!
 An example for the return list: '(\"left\" \"default\" \"center\" \"right\")"
 (save-excursion
 (let* ((point-of-view (point))
-	   (case-fold-search t)
+	   (end-of-last-row (search-backward "<tr>" nil t))
-	   (end-of-last-row (search-backward "</tr>" (point-min) t))
+	   (begin-of-last-row (progn (search-backward "<tr" nil t)
-	   (begin-of-last-row (progn (search-backward "<tr" (point-min) t)
+				     (search-forward "<td" nil t)
-				     (re-search-forward "<t[dh]"
-							point-of-view t)
 				     (match-beginning 0)))
 	   (alignment-list nil))
-(goto-char begin-of-last-row)
+(if (not (search-forward "<td" end-of-last-row t))
-(if (not (re-search-forward "<t[dh]" end-of-last-row t))
 	  (error "Error: No previous data row found!")
 	(goto-char end-of-last-row)
 	(while (> (point) begin-of-last-row)
 	  (let ((cell-start
 		 (search-backward-regexp "\\(<td[^>]*>\\)\\|\\(<th[^>]*>\\)"
 (interactive)
 (let* ((old-alignment-list (hm--html-table-get-previous-alignments))
 	 (no-of-cells (length old-alignment-list)))
 (hm--html-add-tags
 'hm--html-insert-end-tag-with-newline
-(concat "<TR><TD" (car (hm--html-table-read-cell-entries-and-alignments
+(concat "<TD" (car (hm--html-table-read-cell-entries-and-alignments
-			     1
+			 1
-			     1
+			 1
-			     old-alignment-list))
+			 old-alignment-list))
-	     " </TD>"
+	     " "
 	     (if (<= no-of-cells 1)
-		 "</TR>"
+		 "<TR>"
 	       (concat
 		(mapconcat '(lambda (entry)
 			      (concat "<TD" entry))
 			   (hm--html-table-read-cell-entries-and-alignments
 			    2
 			    no-of-cells
 			    (cdr old-alignment-list))
-			   " </TD>")
+			   " ")
-		" </TD></TR>"))))))
+		" <TR>"))))))
 (defun hm--html-add-row-entry (alignment)
 "Adds the HTML tag for a table row entry at the current point."
 (interactive (list (completing-read "Alignment of the cell: "
 (defun hm--html-table-add-colspan-attribute (columns)
 "Adds a colspawn attribute to a table cell.
 A prefix arg is used as no of COLUMNS."
 (interactive "NNo of columns, spaned by this cell: ")
-(let ((case-fold-search t))
+(save-excursion
-(save-excursion
+(if (and (search-backward "<" nil t)
-(if (and (search-backward "<" nil t)
+	     (search-forward-regexp "<[ \t\n]*\\(th\\)\\|\\(td\\)" nil t))
-	       (search-forward-regexp "<[ \t\n]*\\(th\\)\\|\\(td\\)" nil t))
+	(if (search-forward-regexp "\\([ \t\n]+colspan=\\)\\([^ \t\n>]*\\)"
-	  (if (search-forward-regexp "\\([ \t\n]+colspan=\\)\\([^ \t\n>]*\\)"
+				   nil
-				     nil
+				   t)
-				     t)
+	    (progn
-	      (progn
+	      (delete-region (match-beginning 2) (match-end 2))
-		(delete-region (match-beginning 2) (match-end 2))
+	      (insert (format "\"%d\"" columns)))
-		(insert (format "\"%d\"" columns)))
+	  (insert (format " colspan=\"%d\"" columns)))
-	    (insert (format " colspan=\"%d\"" columns)))
+(error "ERROR: Point not in a table cell!"))))
-	(error "ERROR: Point not in a table cell!")))))
 (defun hm--html-table-add-rowspan-attribute (rows)
 "Adds a rowspan attribute to a table cell.
 A prefix arg is used as no of ROWS."
 (interactive "NNo of rows, spaned by this cell: ")
-(let ((case-fold-search t))
+(save-excursion
-(save-excursion
+(if (and (search-backward "<" nil t)
-(if (and (search-backward "<" nil t)
+	     (search-forward-regexp "<[ \t\n]*\\(th\\)\\|\\(td\\)" nil t))
-	       (search-forward-regexp "<[ \t\n]*\\(th\\)\\|\\(td\\)" nil t))
+	(if (search-forward-regexp "\\([ \t\n]+rowspan=\\)\\([^ \t\n>]*\\)"
-	  (if (search-forward-regexp "\\([ \t\n]+rowspan=\\)\\([^ \t\n>]*\\)"
+				   nil
-				     nil
+				   t)
-				     t)
+	    (progn
-	      (progn
+	      (delete-region (match-beginning 2) (match-end 2))
-		(delete-region (match-beginning 2) (match-end 2))
+	      (insert (format "\"%d\"" rows)))
-		(insert (format "\"%d\"" rows)))
+	  (insert (format " rowspan=\"%d\"" rows)))
-	    (insert (format " rowspan=\"%d\"" rows)))
+(error "ERROR: Point not in a table cell!"))))
-	(error "ERROR: Point not in a table cell!")))))
 ;;; ISO-Characters for Emacs HTML-mode (Berthold Crysmann)
 ;(setq buffer-invisibility-spec '(hm--html-iso-entity-invisible-flag))
 ;;This should be extended in the future to use also other viewers.
 (defun hm--html-view-www-package-docu ()
 "View the WWW documentation of the package."
 (interactive)
-(w3-fetch (concat "http://www.tnt.uni-hannover.de"
+(w3-fetch "http://www.tnt.uni-hannover.de:80/data/info/www/tnt/soft/info/www/html-editors/hm--html-menus/overview.html"))
-		    "/~muenkel/software/own/hm--html-menus/overview.html")))
 ;;;
 ;   Bug reporting
 ;
 	   'hm--html-server-side-include-command-with-parameter-alist
 	   'hm--html-signature-file
 	   'hm--html-template-dir
 	   'hm--html-url-alist
 	   'hm--html-user-config-file
-	   'hm--html-site-config-file
 	   'hm--html-username
 	   'hm--html-wais-hostname:port-alist
 	   'hm--html-wais-hostname:port-default
 	   'hm--html-wais-path-alist
 	   'hm--html-wais-servername:port-alist
 	   'hm--html-wais-servername:port-default
+;	   'html-deemphasize-color
 	   'html-document-previewer
+;	   'html-document-previewer-args
+;	   'html-emphasize-color
+;	   'html-quotify-hrefs-on-find
 	   'hm--html-region-mode
 	   'html-sigusr1-signal-value
+;	   'html-use-font-lock
+;	   'html-use-highlighting
 	   )
 nil
 nil
 "Decribe your Bug: "
 )))
 (if (adapt-xemacsp)
 (progn
 (add-hook 'zmacs-activate-region-hook
 		'hm--html-switch-region-modes-on)
+;		(function (lambda () (hm--html-region-mode 1))))
 (add-hook 'zmacs-deactivate-region-hook
 		'hm--html-switch-region-modes-off)
+;		(function (lambda () (hm--html-region-mode -1))))
 )
 (transient-mark-mode t)
 (add-hook 'activate-mark-hook
 	    'hm--html-switch-region-modes-on)
+;	    (function (lambda () (hm--html-region-mode t))))
 (add-hook 'deactivate-mark-hook
 	    'hm--html-switch-region-modes-off)
+;	    (function (lambda () (hm--html-region-mode nil))))
 )
+;(add-hook 'hm--html-mode-hook
+;	  (function
+;	   (lambda ()
+;	     (make-variable-buffer-local 'write-file-hooks)
+;	     (add-hook 'write-file-hooks
+;		       'hm--html-maybe-new-date-and-changed-comment))))
+;(add-hook 'zmacs-activate-region-hook 'hm--set-hm--region-active)
+;
+;(add-hook 'zmacs-deactivate-region-hook 'hm--unset-hm--region-active)
 ;;;
 ;   Environment loading
 ;
 (defun hm--html-load-config-files ()
 "Load the html configuration files.
 First, the system config file (detemined by the environment variable
-HTML_CONFIG_FILE; normaly hm--html-configuration.el(c)) is loaded.
+HTML_CONFIG_FILE; normaly hm--html-configuration.el(c)) is loaded and
-At second a site config file is loaded, if the environment variable
+after that the user config file (determined by the environment variable
-HTML_SITE_CONFIG_FILE or the lisp variable `hm--html-site-config-file'
-is set to such a file.
-At least the user config file (determined by the environment variable
 HTML_USER_CONFIG_FILE; normaly the file ~/.hm--html-configuration.el(c)).
 If no HTML_CONFIG_FILE exists, then the file hm--html-configuration.el(c)
 is searched in one of the lisp load path directories.
 If no HTML_USER_CONFIG_FILE exists, then the variable
 `hm--html-user-config-file' is checked. If this variable is nil or the file
 	   (file-exists-p
 	    (expand-file-name
 	     (getenv "HTML_CONFIG_FILE"))))
 (load-library (expand-file-name (getenv "HTML_CONFIG_FILE")))
 (load-library "hm--html-configuration"))
-;; at second the site config file
-(if (and (stringp (getenv "HTML_SITE_CONFIG_FILE"))
-	      (file-exists-p
-	       (expand-file-name
-		(getenv "HTML_SITE_CONFIG_FILE"))))
-(load-file (expand-file-name (getenv "HTML_SITE_CONFIG_FILE")))
-(when (and (boundp 'hm--html-site-config-file)
-	       (stringp hm--html-site-config-file)
-	       (file-exists-p (expand-file-name hm--html-site-config-file)))
-(load-file (expand-file-name hm--html-site-config-file))))
 ;; and now the user config file
 (cond ((and (stringp (getenv "HTML_USER_CONFIG_FILE"))
 	      (file-exists-p
 	       (expand-file-name
 			  "Look at hm--html-load-config-files !")))
 	)
 )
+;(hm--html-load-config-files)
+;;; Definition of the minor mode html-region-mode
+;(defvar html-region-mode nil
+;  "*t, if the minor mode html-region-mode is on and nil otherwise.")
+;(make-variable-buffer-local 'html-region-mode)
+;(defvar html-region-mode-map nil "")
+;(hm--html-load-config-files)
+;(if hm--html-use-old-keymap
+;    (progn
+;;(setq minor-mode-alist (cons '(html-region-mode " Region") minor-mode-alist))
+;(or (assq 'html-region-mode minor-mode-alist)
+;    (setq minor-mode-alist
+;	  (purecopy
+;	   (append minor-mode-alist
+;		   '((html-region-mode " Region"))))))
+;(defun html-region-mode (on)
+;  "Turns the minor mode html-region-mode on or off.
+;The function turns the html-region-mode on, if ON is t and off otherwise."
+;  (if (string= mode-name "HTML")
+;      (if on
+;	  ;; html-region-mode on
+;	  (progn
+;	    (setq html-region-mode t)
+;	    (use-local-map html-region-mode-map))
+;	;; html-region-mode off
+;	(setq html-region-mode nil)
+;	(use-local-map html-mode-map))))
+;))
+;;;
+; Set font lock color
+; (hm--html-font-lock-color should be defined in hm--html-configuration.el
+; oder .hm--html-configuration.el)
+;
+;(require 'font-lock)
+;(load-library "font-lock")
+;(set-face-foreground 'font-lock-comment-face hm--html-font-lock-color)
+;(hm--html-generate-help-buffer-faces)
+;;;;;;;;
+;(setq hm--html-hostname-search-string
+;      "[-a-zA-Z0-9]*\\.[-a-zA-Z0-9]*\\.[-a-zA-Z0-9.]*")
+;
+;(defun hm--html-get-next-hostname ()
+;  (interactive)
+;  (search-forward-regexp hm--html-hostname-search-string)
+;  (buffer-substring (match-beginning 0) (match-end 0)))
+;
+;;; Announce the feature hm--html-configuration
 ;;; quotify href
 (defvar hm--html-quotify-href-regexp
 "<[aA][ \t\n]+\\([nN][aA][mM][eE]=[a-zA-Z0-9]+[ \t\n]+\\)?[hH][rR][eE][fF]="
 "Regular expression used for searching hrefs.")

Mercurial > hg > xemacs-beta

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