--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/hm--html-menus/hm--html-menu.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,541 @@
+;;;  hm--html-menu.el: A menu for the html-mode.
+;;;  v4.60; 17 Feb 1996
+;;;  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)
+;;;  any later version.
+;;;
+;;;  This program is distributed in the hope that it will be useful,
+;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;  GNU General Public License for more details.
+;;;
+;;;  You should have received a copy of the GNU General Public License
+;;;  along with this program; if not, write to the Free Software
+;;;  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; 
+;;; Description:
+;;;
+;;;	Defines pulldown and popup menus for the html mode.
+;;;	This file requires the following files:
+;;;		hm--html.el
+;;;		hm--date.el
+;;;		hm--html-configuration.el
+;;;		adapt.el
+;;;		html-mode.el
+;;;	The file html-mode.el is the html mode file from Marc Andreessen.
+;;;
+;;;	You should also have the w3 package from William M. Perry, for
+;;;	browsing html- files in the xemacs and the program Xmosaic together
+;;;	with the file html-view.el from Ron Tapia for browsing html- files
+;;;	in the Xmosaic.
+;;; 
+;;; Installation: 
+;;;   
+;;;	Put this file in one of your load path directories and the
+;;;	following lines in your .emacs:
+;;;	
+;;;	(autoload 'html-mode "hm--html-menu" "HTML major mode." t)
+;;;	(or (assoc "\\.html$" auto-mode-alist)
+;;;         (setq auto-mode-alist (cons '("\\.html$" . html-mode) 
+;;;				        auto-mode-alist)))
+;;;
+;;;	Look at the file hm--html-configuration for further installation
+;;;     points.
+;;;
+
+
+(provide 'hm--html-menu)
+(require 'html-mode)
+(require 'hm--html)
+(require 'adapt)
+
+
+;;
+;; Menu "HTML"
+;;
+
+(defvar hm--html-pulldown-menu nil "*A List with the HTML-Menu.")
+(defvar hm--html-menu-region-expert nil "*A List with the HTML-Menu.")
+(defvar hm--html-menu-region-novice nil "*A List with the HTML-Menu.")
+(defvar hm--html-menu-noregion-expert nil "*A List with the HTML-Menu.")
+(defvar hm--html-menu-noregion-novice nil "*A List with the HTML-Menu.")
+
+(setq hm--html-menu-noregion-expert
+       '("HTML Noregion Expert Menu"
+	 ("Anchors"
+	  ["Html link..." hm--html-add-html-link t]
+	  ["Info link..." hm--html-add-info-link t]
+	  ["Gopher link..." hm--html-add-gopher-link t]
+	  ["File link..." hm--html-add-file-link t]
+	  "----"
+	  ["Ftp link..." hm--html-add-ftp-link t]
+	  ["News link..." hm--html-add-news-link t]
+	  ["Mailbox link..." hm--html-add-mail-link t]
+	  ["Mailto link..." hm--html-add-mailto-link t]
+	  ["Wais link (direct)..." hm--html-add-direct-wais-link t]
+	  ["Wais link (gateway)..." hm--html-add-wais-link t]
+	  "----"
+	  ["Proggate link..." hm--html-add-proggate-link t]
+	  ["Local Proggate link..." hm--html-add-local-proggate-link t]
+	  ["General link..." html-add-normal-link t]
+	  "----"
+	  ["Link target..." hm--html-add-link-target t]
+	  )
+	 ("Frame"
+	  ["Full html frame..." hm--html-add-full-html-frame t]
+	  ["Frame template..." 
+	   (hm--html-insert-template hm--html-frame-template-file)
+	   (file-exists-p hm--html-frame-template-file)]
+	  "----"
+	  ["Html" hm--html-add-html t]
+	  ["Head" hm--html-add-head t]
+	  ["Body" hm--html-add-body t]
+	  "----"
+	  ["Title and Header..." hm--html-add-title-and-header t]
+	  ["Title..." hm--html-add-title t]
+	  ["Header..." hm--html-add-header t]
+	  ["Node Link..." hm--html-add-normal-node-link t]
+	  ["Address" html-add-address t]
+	  ["Signature" hm--html-add-signature t]
+	  "----"
+	  ["Created comment" hm--html-insert-created-comment t]
+	  ["Changed comment" hm--html-insert-changed-comment t]
+	  ["New date in title" hm--html-new-date t]
+	  )
+	 ("Structure"
+	  ["Menu or list item" html-add-list-or-menu-item t]
+	  ["Menu" html-add-menu t]
+	  ["Unordered list" html-add-list t]
+	  ["Ordered list" hm--html-add-numberlist t]
+	  ["Directory list" hm--html-add-directory-list t]
+	  "----"
+	  ["Description list" html-add-description-list t]
+	  ["Description title" hm--html-add-description-title t]
+	  ["Description entry" hm--html-add-only-description-entry t]
+	  ["Description title + entry" html-add-description-entry t]
+	  "----"
+	  ["Table..." hm--html-add-table t]
+	  ["Table title..." hm--html-add-table-title t]
+	  ["Table header..." hm--html-add-table-header t]
+	  ["Table first row..." hm--html-add-first-table-row t]
+	  ["Table additional row..." hm--html-add-additional-table-row t]
+	  ("Additional Commands"
+	   ["Table row frame..." hm--html-add-row-frame t]
+	   ["Table header entry..." hm--html-add-header-entry t]
+	   ["Table row entry..." hm--html-add-row-entry t]
+	   ["Span columns..." hm--html-table-add-colspan-attribute t]
+	   ["Span rows..." hm--html-table-add-rowspan-attribute t]
+	   )
+	  "----"
+	  ["Paragraph container" hm--html-add-paragraph t]
+	  ["Paragraph start tag" hm--html-add-paragraph-separator t]
+	  ["New line" hm--html-add-line-break t]
+	  ["Horizontal rule" hm--html-add-horizontal-rule t]
+	  )
+	 ("Formating Paragraphs"
+	  ["Without links" html-add-plaintext t]
+	  ["With links" hm--html-add-preformated t]
+	  "----"
+          ["Blockquote" html-add-blockquote t]
+	  ["Listing" html-add-listing t]
+	  ["Abstract" hm--html-add-abstract t]
+	  )
+	 ("Formatting Words"
+	  ["Bold" hm--html-add-bold t]
+	  ["Italic" hm--html-add-italic t]
+	  ["Underline" hm--html-add-underline t]
+          ["Typewriter" html-add-fixed t]
+	  ["Strikethru" hm--html-add-strikethru t]
+	  ["Superscript" hm--html-add-superscript t]
+	  ["Subscript" hm--html-add-subscript t]
+	  ;;	  ["Render" hm--html-add-render t]
+	  "----"
+          ["Emphasized" html-add-emphasized t]
+          ["Strong" html-add-strong t]
+	  "----"
+	  ("Computing"
+	   ["Definition" hm--html-add-definition t]
+	   ["Keyboard" html-add-keyboard t]
+	   ["Command" hm--html-add-command t]
+	   ["Argument" hm--html-add-argument t]
+	   ["Option" hm--html-add-option t]
+	   ["Variable" html-add-variable t]
+	   ["Instance" hm--html-add-instance t]
+	   ["Code" hm--html-add-code t]
+	   ["Sample" html-add-sample t]
+	   )
+	  ("Literature"
+	   ["Quote" hm--html-add-quote t]
+	   ["Acronym" hm--html-add-acronym t]
+	   ["Abbrevation" hm--html-add-abbrevation t]
+	   ["Citation" html-add-citation t]
+	   ["Literature" hm--html-add-literature t]
+	   ["Publication" hm--html-add-publication t]
+	   ["ISBN" hm--html-add-isbn t]
+	   )
+	  ("Person"
+	   ["Person" hm--html-add-person t]
+	   ["Author" hm--html-add-author t]
+	   ["Editor" hm--html-add-editor t]
+	   ["Credits" hm--html-add-credits t]
+	   ["Copyright" hm--html-add-copyright t]
+	   )
+	  "----"
+	  ["Footnote" hm--html-add-footnote t]
+	  ["Margin" hm--html-add-margin t]
+	  "----"
+	  ["HTML Comment" hm--html-add-comment t]
+	  )
+	 ("Include"
+	  ["Top aligned image..." hm--html-add-image-top t]
+	  ["Middle aligned image..." hm--html-add-image-middle t]
+	  ["Bottom aligned image..." hm--html-add-image-bottom t]
+;	  "----"
+;	  ["File..."  hm--html-add-server-side-include-file t]
+;	  ["Command..." hm--html-add-server-side-include-command t]
+;	  ["Command with isindex parameter..." 
+;	   hm--html-add-server-side-include-command-with-isindex-parameter
+;	   t]
+	  )
+	 ("Forms"
+	  ["Form..." hm--html-add-form t]
+	  "----"
+	  ["Text field..." hm--html-form-add-input-text t]
+	  ["Password field..." hm--html-form-add-input-password t]
+	  ["Isindex field..." hm--html-form-add-input-isindex t]
+	  ["Integer field..." hm--html-form-add-input-integer t]
+	  ["Float field..." hm--html-form-add-input-float t]
+	  ["Date field..." hm--html-form-add-input-date t]
+	  ["Url field..." hm--html-form-add-input-url t]
+	  ["Scribble field..." hm--html-form-add-input-scribble t]
+	  "----"
+	  ["Checkbox button..." hm--html-form-add-input-checkbox t]
+	  ["Radio button..." hm--html-form-add-input-radio t]
+	  ["Reset button..." hm--html-form-add-input-reset t]
+	  ["Submit button..." hm--html-form-add-input-submit t]
+	  ["Image button..." hm--html-form-add-input-image t]
+	  ["Audio button..." hm--html-form-add-input-audio t]
+	  "----"
+	  ["Option Menu..." hm--html-form-add-select-option-menu t]
+	  ["Scrolled List..." hm--html-form-add-select-scrolled-list t]
+	  ["Option..." hm--html-form-add-select-option t]
+	  "----"
+	  ["Textarea..." hm--html-form-add-textarea t]
+	  )
+	 ))
+
+
+(setq hm--html-menu-noregion-novice
+       '("HTML No-region Novice Menu"
+	 ("Anchors"
+	  ["Html link..." hm--html-add-html-link t]
+	  ["File link..." hm--html-add-file-link t]
+	  )
+	 ("Frame"
+	  ["Full html frame..." hm--html-add-full-html-frame t]
+	  "----"
+	  ["Title and Header..." hm--html-add-title-and-header t]
+	  ["Signature" hm--html-add-signature t]
+	  )
+	 ("Structure"
+	  ["Menu item" html-add-list-or-menu-item t]
+	  ["Menu" html-add-menu t]
+	  "----"
+	  ["Paragraph Container" hm--html-add-paragraph t]
+	  )
+	 ("Formating Paragraphs"
+	  ["Without links" html-add-plaintext t]
+	  ["With links" hm--html-add-preformated t]
+	  )
+	 ("Formatting Words"
+	  ["Bold" hm--html-add-bold t]
+	  ["Italic" hm--html-add-italic t]
+	  ["Underline" hm--html-add-underline t]
+          ["Typewriter" html-add-fixed t]
+	  )))
+
+(setq hm--html-menu-region-expert
+       '("HTML Region Expert Menu"
+	 ("Anchors"
+	  ["Html link..." hm--html-add-html-link-to-region t]
+	  ["Info link..." hm--html-add-info-link-to-region t]
+	  ["Gopher link..." hm--html-add-gopher-link-to-region t]
+	  ["File link..." hm--html-add-file-link-to-region t]
+	  "----"
+	  ["Ftp link..." hm--html-add-ftp-link-to-region t]
+	  ["News link..." hm--html-add-news-link-to-region t]
+	  ["Mailbox link..." hm--html-add-mail-link-to-region t]
+	  ["Mailto link..." hm--html-add-mailto-link-to-region t]
+	  ["WAIS link (direct)..." hm--html-add-direct-wais-link-to-region t]
+	  ["WAIS link (gateway)..." hm--html-add-wais-link-to-region t]
+	  "----"
+	  ["Proggate link..." hm--html-add-proggate-link-to-region t]
+	  ["Local Proggate link..." 
+	   hm--html-add-local-proggate-link-to-region 
+	   t]
+	  ["General link..." hm--html-add-normal-link-to-region t]
+	  "----"
+	  ["Link target..." html-add-reference-to-region t]
+	  )
+	 ("Frame"
+	  ["Full html frame..." hm--html-add-full-html-frame-with-region t]
+	  "----"
+	  ["Head" hm--html-add-head-to-region t]
+	  ["Body" hm--html-add-body-to-region t]
+	  "----"
+	  ["Title and Header..." hm--html-add-title-and-header-to-region t]
+	  ["Title" hm--html-add-title-to-region t]
+	  ["Header..." hm--html-add-header-to-region t]
+	  ["Address" hm--html-add-address-to-region t]
+	  )
+	 ("Structure"
+	  ["Menu" hm--html-add-menu-to-region t]
+	  ["Unordered list" hm--html-add-list-to-region t]
+	  ["Ordered list" hm--html-add-numberlist-to-region t]
+	  ["Directory list" hm--html-add-directorylist-to-region t]
+	  "----"
+	  ["Description list" hm--html-add-description-list-to-region t]
+	  "----"
+	  ["Table..." hm--html-add-table-to-region t]
+	  ["Table Title..." hm--html-add-table-title-to-region t]
+	  ("Additional Commands"
+	   ["Table row frame..." hm--html-add-row-frame-to-region t]
+	   )
+	  "----"
+	  ["Paragraph container" hm--html-add-paragraph-to-region t]
+	  )
+	 ("Formatting Paragraphs"
+	  ["Without links" hm--html-add-plaintext-to-region t]
+	  ["With links" hm--html-add-preformated-to-region t]
+	  "----"
+          ["Blockquote" hm--html-add-blockquote-to-region t]
+	  ["Listing" hm--html-add-listing-to-region t]
+	  ["Abstract" hm--html-add-abstract-to-region t]
+	  )
+	 ("Formatting Words"
+	  ["Bold" hm--html-add-bold-to-region t]
+	  ["Italic" hm--html-add-italic-to-region t]
+	  ["Underline" hm--html-add-underline-to-region t]
+          ["Typewriter" hm--html-add-fixed-to-region t]
+	  ["Strikethru" hm--html-add-strikethru-to-region t]
+	  ["Superscript" hm--html-add-superscript-to-region t]
+	  ["Subscript" hm--html-add-subscript-to-region t]
+	  ;;	  ["Render" hm--html-add-render-to-region t]
+	  "----"
+          ["Emphasized" hm--html-add-emphasized-to-region t]
+          ["Strong" hm--html-add-strong-to-region t]
+	  "----"
+	  ("Computing"
+	   ["Definition" hm--html-add-definition-to-region t]
+	   ["Keyboard" hm--html-add-keyboard-to-region t]
+	   ["Command" hm--html-add-command-to-region t]
+	   ["Argument" hm--html-add-argument-to-region t]
+	   ["Option" hm--html-add-option-to-region t]
+	   ["Variable" hm--html-add-variable-to-region t]	  
+	   ["Instance" hm--html-add-instance-to-region t]
+	   ["Code" hm--html-add-code-to-region t]
+	   ["Sample" hm--html-add-sample-to-region t]
+	   )
+	  ("Literature"
+	   ["Quote" hm--html-add-quote-to-region t]
+	   ["Acronym" hm--html-add-acronym-to-region t]
+	   ["Abbrevation" hm--html-add-abbrevation-to-region t]
+	   ["Citation" hm--html-add-citation-to-region t]
+	   ["Literature" hm--html-add-literature-to-region t]
+	   ["Publication" hm--html-add-publication-to-region t]
+	   ["ISBN" hm--html-add-isbn-to-region t]
+	   )
+	  ("Person"
+	   ["Person" hm--html-add-person-to-region t]
+	   ["Author" hm--html-add-author-to-region t]
+	   ["Editor" hm--html-add-editor-to-region t]
+	   ["Credits" hm--html-add-credits-to-region t]
+	   ["Copyright" hm--html-add-copyright-to-region t]
+	   )
+	  "----"
+	  ["Footnote" hm--html-add-footnote-to-region t]
+	  ["Margin" hm--html-add-margin-to-region t]
+	  "----"
+	  ["HTML Comment" hm--html-add-comment-to-region t]
+	  )
+	 ("Forms"
+	  ["Form..." hm--html-add-form-to-region t])
+	 ))
+
+
+(setq hm--html-menu-region-novice
+      '("HTML Region Novice Menu"
+	 ("Anchors"
+	  ["Html link..." hm--html-add-html-link-to-region t]
+	  ["File link..." hm--html-add-file-link-to-region t]
+	  )
+	 ("Frame"
+	  ["Full html frame..." hm--html-add-full-html-frame-with-region t]
+	  "----"
+	  ["Title and Header..." hm--html-add-title-and-header-to-region t]
+	  )
+	 ("Structure"
+	  ["Menu" hm--html-add-menu-to-region t]
+	  )
+	 ("Formatting Paragraphs"
+	  ["Without links" hm--html-add-plaintext-to-region t]
+	  ["With links" hm--html-add-preformated-to-region t]
+	  )
+	 ("Formatting Words"
+	  ["Bold" hm--html-add-bold-to-region t]
+	  ["Italic" hm--html-add-italic-to-region t]
+	  ["Underline" hm--html-add-underline-to-region t]
+          ["Typewriter" hm--html-add-fixed-to-region t]
+	  )
+	 ))
+
+
+
+(setq hm--html-pulldown-menu
+      '("HTML Config Menu"
+	("Set popup menu"
+	 ["Novice menu" hm--html-use-novice-menu t]
+	 ["Expert menu" hm--html-use-expert-menu t]
+	 ["Marcs menu" hm--html-use-marcs-menu t]
+	 )
+;	("Highlighting"
+;	 ["Toggle font lock mode" font-lock-mode (adapt-xemacsp)]
+;	 ["Fontify buffer" font-lock-fontify-buffer (adapt-xemacsp)]
+;	 ["Set font lock color..." 
+;	  hm--html-set-font-lock-color 
+;	  (or (adapt-xemacsp) (adapt-emacs19p))]
+;	 "----"
+;	 ["Toggle use highlighting" 
+;	  hm--html-toggle-use-highlighting 
+;	  html-use-highlighting]
+;	 )
+;	"----"
+	["Reload config files" hm--html-load-config-files t]
+	["Templates ..." hm--html-insert-template t]
+	"----"
+	["Remove numeric names" hm--html-remove-numeric-names t]
+	["Quotify hrefs" html-quotify-hrefs t]
+	"----"
+	["Submit bug report..." hm--html-submit-bug-report t]
+	["WWW Package Docs" hm--html-view-www-package-docu t]
+	"----"
+	("Preview Document"     
+	 ["Netscape view buffer" (hm--html-send-buffer-to-netscape 
+				  (current-buffer)) t]
+	 "----"
+	 ["Xmosaic start" html-view-start-mosaic t]
+	 ["Xmosaic view buffer" html-view-view-buffer t]
+	 ["Xmosaic view file" html-view-view-file t]
+	 ["Xmosaic goto url" html-view-goto-url t]
+	 ["Xmosaic get display" html-view-get-display t]
+	 "----"
+	 ["W3 start" w3 t]
+	 ["W3 view buffer" w3-preview-this-buffer t]
+	 ["W3 open remote file..." w3-fetch t]
+	 ["W3 open local..." w3-open-local t]
+	 ["W3 use hotlist..." w3-use-hotlist t]
+	 )
+	))
+	
+
+(if (adapt-xemacsp)
+    (defun hm--install-html-menu ()
+      (if (and current-menubar (not (assoc "HTML" current-menubar)))
+	  (progn
+	    (set-buffer-menubar (copy-sequence current-menubar))
+	    (add-menu nil "HTML" (cdr hm--html-pulldown-menu))))) 
+  (defun hm--install-html-menu ()
+    (if (and current-menubar (not (assoc "HTML" current-menubar)))
+	(progn
+	  (set-buffer-menubar current-menubar)))
+;	  (setq lucid-menubar-map nil)
+;	  (make-local-variable 'lucid-menubar-map)
+;	  (set-buffer-menubar (copy-sequence current-menubar))
+;	  (make-local-variable 'lucid-menubar-map)
+;	  (make-local-variable 'current-menubar)))
+    (add-menu nil "HTML" (cdr hm--html-pulldown-menu))
+      ))
+
+;    (add-menu nil "HTML" (cdr hm--html-pulldown-menu))))
+
+
+;(defun hm--popup-html-menu (event)
+;  "Pops the HTML- menu up."
+;  (interactive "@e")
+;  (if hm--html-marc
+;      (popup-menu html-menu)
+;    (if hm--html-expert
+;	(if hm--region-active
+;	    (popup-menu hm--html-menu-region-expert)
+;	  (popup-menu hm--html-menu-noregion-expert))
+;      (if hm--region-active
+;	  (popup-menu hm--html-menu-region-novice)
+;	(popup-menu hm--html-menu-noregion-novice)))))
+
+
+(defun hm--popup-html-menu (event)
+  "Pops the HTML- menu up, if no region is active."
+  (interactive "@e")
+  (if hm--html-marc
+      (popup-menu html-menu)
+    (if hm--html-expert
+	(popup-menu hm--html-menu-noregion-expert)
+      (popup-menu hm--html-menu-noregion-novice))))
+
+
+(defun hm--popup-html-menu-region (event)
+  "Pops the HTML- menu up, if a region is active."
+  (interactive "@e")
+  (if hm--html-marc
+      (popup-menu html-menu)
+    (if hm--html-expert
+	(popup-menu hm--html-menu-region-expert)
+      (popup-menu hm--html-menu-region-novice))))
+
+
+(defun hm--html-use-novice-menu ()
+  "Changes the HTML popup menu to the novice menu."
+  (interactive)
+  (setq hm--html-expert nil)
+  (setq hm--html-marc nil)
+;  (define-key html-mode-map '(button3) 'hm--popup-html-menu)
+;  (define-key html-region-mode-map '(button3) 'hm--popup-html-menu)
+  )	
+
+
+(defun hm--html-use-expert-menu ()
+  "Changes the HTML popup menu to the expert menu."
+  (interactive)
+  (setq hm--html-expert t)
+  (setq hm--html-marc nil)
+;  (define-key html-mode-map '(button3) 'hm--popup-html-menu)
+;  (define-key html-region-mode-map '(button3) 'hm--popup-html-menu)
+  )
+
+
+(defun hm--html-use-marcs-menu ()
+  "Changes the HTML popup menu to Marc Andreessens menu."
+  (interactive)
+  (setq hm--html-marc t)
+;  (define-key html-mode-map '(button3) 'hm--popup-html-menu)
+;  (define-key html-region-mode-map '(button3) 'hm--popup-html-menu)
+  )
+
+
+;(define-key html-mode-map '(button3) 'hm--popup-html-menu)
+;(define-key html-region-mode-map '(button3) 'hm--popup-html-menu)
+
+(add-hook 'html-mode-hook 'hm--install-html-menu)
+
+
+(defvar hm--html-menu-load-hook nil
+  "*Hook variable to execute functions after loading the file hm--html-menu.")
+
+
+(run-hooks 'hm--html-menu-load-hook)
+