Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-menu.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
1 ;;; hm--html-menu --- A menu for the hm--html-mode. 1 ;;; hm--html-menu --- A menu for the hm--html-mode.
2 ;;; 2 ;;;
3 ;;; $Id: hm--html-menu.el,v 1.2 1997/02/16 01:29:08 steve Exp $ 3 ;;; $Id: hm--html-menu.el,v 1.3 1997/02/22 22:07:11 steve Exp $
4 ;;; 4 ;;;
5 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel 5 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel
6 ;;; email: muenkel@tnt.uni-hannover.de 6 ;;; email: muenkel@tnt.uni-hannover.de
7 ;;; 7 ;;;
8 ;;; This program is free software; you can redistribute it and/or modify 8 ;;; This program is free software; you can redistribute it and/or modify
35 ;;; 35 ;;;
36 ;;; Look at the files hm--html-mode.el and hm--html-configuration 36 ;;; Look at the files hm--html-mode.el and hm--html-configuration
37 ;;; for further installation points. 37 ;;; for further installation points.
38 ;;; 38 ;;;
39 39
40 ;(provide 'hm--html-menu)
41 ;(require 'hm--html-drag-and-drop)
42 ;(require 'html-mode)
43 ;(require 'hm--html-mode)
44 ;(require 'hm--html)
45 ;(require 'adapt)
46
47
48 ;; 40 ;;
49 ;; Menu "HTML" 41 ;; Menu "HTML"
50 ;; 42 ;;
51 43
52 (defvar hm--html-pulldown-menu nil "*A List with the HTML-Menu.") 44 (defvar hm--html-pulldown-menu nil "*A List with the HTML-Menu.")
86 ["Full html frame..." hm--html-add-full-html-frame t] 78 ["Full html frame..." hm--html-add-full-html-frame t]
87 ["Frame template..." 79 ["Frame template..."
88 (hm--html-insert-template hm--html-frame-template-file) 80 (hm--html-insert-template hm--html-frame-template-file)
89 (file-exists-p hm--html-frame-template-file)] 81 (file-exists-p hm--html-frame-template-file)]
90 "----" 82 "----"
83 ["Doctype" hm--html-add-doctype t]
91 ["Html" hm--html-add-html t] 84 ["Html" hm--html-add-html t]
92 ["Head" hm--html-add-head t] 85 ["Head" hm--html-add-head t]
93 ["Body" hm--html-add-body t] 86 ["Body" hm--html-add-body t]
94 "----" 87 "----"
95 ["Title and Header..." hm--html-add-title-and-header t] 88 ["Title and Header..." hm--html-add-title-and-header t]
96 ["Title..." hm--html-add-title t] 89 ["Title..." hm--html-add-title t]
97 ["Header..." hm--html-add-header t] 90 ["Header..." hm--html-add-header t]
98 ["Node Link..." hm--html-add-normal-node-link t]
99 ["Address" hm--html-add-address t] 91 ["Address" hm--html-add-address t]
100 ["Signature" hm--html-add-signature t] 92 ["Signature" hm--html-add-signature t]
93 "----"
94 ["Meta information..." hm--html-add-meta t]
95 ["Node Link..." hm--html-add-normal-node-link t]
96 ["Isindex..." hm--html-add-isindex t]
97 ["Document Base..." hm--html-add-base t]
101 "----" 98 "----"
102 ["Created comment" hm--html-insert-created-comment t] 99 ["Created comment" hm--html-insert-created-comment t]
103 ["Changed comment" hm--html-insert-changed-comment t] 100 ["Changed comment" hm--html-insert-changed-comment t]
104 ["New date in title" hm--html-new-date t] 101 ["New date in title" hm--html-new-date t]
105 ) 102 )
129 ["Span rows..." hm--html-table-add-rowspan-attribute t] 126 ["Span rows..." hm--html-table-add-rowspan-attribute t]
130 ) 127 )
131 "----" 128 "----"
132 ["Paragraph container" hm--html-add-paragraph t] 129 ["Paragraph container" hm--html-add-paragraph t]
133 ["Paragraph start tag" hm--html-add-paragraph-separator t] 130 ["Paragraph start tag" hm--html-add-paragraph-separator t]
131 ["Document division" hm--html-add-document-division t]
134 ["New line" hm--html-add-line-break t] 132 ["New line" hm--html-add-line-break t]
135 ["Horizontal rule" hm--html-add-horizontal-rule t] 133 ["Horizontal rule" hm--html-add-horizontal-rule t]
136 ) 134 )
137 ("Formating Paragraphs" 135 ("Formating Paragraphs"
138 ["Without links" hm--html-add-plaintext t] 136 ["Without links" hm--html-add-plaintext t]
139 ["With links" hm--html-add-preformated t] 137 ["With links" hm--html-add-preformated t]
140 "----" 138 "----"
139 ["Basefont..." hm--html-add-basefont t]
140 ["Font..." hm--html-add-font t]
141 ["Blockquote" hm--html-add-blockquote t] 141 ["Blockquote" hm--html-add-blockquote t]
142 ["Listing" hm--html-add-listing t] 142 ["Listing" hm--html-add-listing t]
143 ["Abstract" hm--html-add-abstract t] 143 ["Abstract" hm--html-add-abstract t]
144 "----" 144 "----"
145 ["Center" hm--html-add-center t] 145 ["Center" hm--html-add-center t]
208 ) 208 )
209 ("Include" 209 ("Include"
210 ["Top aligned image..." hm--html-add-image-top t] 210 ["Top aligned image..." hm--html-add-image-top t]
211 ["Middle aligned image..." hm--html-add-image-middle t] 211 ["Middle aligned image..." hm--html-add-image-middle t]
212 ["Bottom aligned image..." hm--html-add-image-bottom t] 212 ["Bottom aligned image..." hm--html-add-image-bottom t]
213 ["Image as map? ..." hm--html-add-image t]
213 ["Drag & Drop" 214 ["Drag & Drop"
214 idd-start-mouse-drag-and-drop 215 idd-start-mouse-drag-and-drop
215 :active t 216 :active t
216 :keys "\\[idd-mouse-drag-and-drop]"] 217 :keys "\\[idd-mouse-drag-and-drop]"]
218 "----"
219 ["Image map..." hm--html-add-image-map t]
220 ["Map..." hm--html-add-map t]
221 ["Area..." hm--html-add-area t]
217 "----" 222 "----"
218 ["Applet..." hm--html-add-applet t] 223 ["Applet..." hm--html-add-applet t]
219 ["Parameter..." hm--html-add-applet-parameter t] 224 ["Parameter..." hm--html-add-applet-parameter t]
220 ; "----" 225 ; "----"
221 ; ["File..." hm--html-add-server-side-include-file t] 226 ; ["File..." hm--html-add-server-side-include-file t]
343 ("Additional Commands" 348 ("Additional Commands"
344 ["Table row frame..." hm--html-add-row-frame-to-region t] 349 ["Table row frame..." hm--html-add-row-frame-to-region t]
345 ) 350 )
346 "----" 351 "----"
347 ["Paragraph container" hm--html-add-paragraph-to-region t] 352 ["Paragraph container" hm--html-add-paragraph-to-region t]
353 ["Document division" hm--html-add-document-division-to-region t]
348 ) 354 )
349 ("Formatting Paragraphs" 355 ("Formatting Paragraphs"
350 ["Without links" hm--html-add-plaintext-to-region t] 356 ["Without links" hm--html-add-plaintext-to-region t]
351 ["With links" hm--html-add-preformated-to-region t] 357 ["With links" hm--html-add-preformated-to-region t]
352 "----" 358 "----"
359 ["Font..." hm--html-add-font-to-region t]
353 ["Blockquote" hm--html-add-blockquote-to-region t] 360 ["Blockquote" hm--html-add-blockquote-to-region t]
354 ["Listing" hm--html-add-listing-to-region t] 361 ["Listing" hm--html-add-listing-to-region t]
355 ["Abstract" hm--html-add-abstract-to-region t] 362 ["Abstract" hm--html-add-abstract-to-region t]
356 "----" 363 "----"
357 ["Center" hm--html-add-center-to-region t] 364 ["Center" hm--html-add-center-to-region t]
415 ; "----" 422 ; "----"
416 ; ["Footnote" hm--html-add-footnote-to-region t] 423 ; ["Footnote" hm--html-add-footnote-to-region t]
417 ; ["Margin" hm--html-add-margin-to-region t] 424 ; ["Margin" hm--html-add-margin-to-region t]
418 "----" 425 "----"
419 ["HTML Comment" hm--html-add-comment-to-region t] 426 ["HTML Comment" hm--html-add-comment-to-region t]
427 )
428 ("Include"
429 ["Map..." hm--html-add-map-to-region t]
430 "----"
431 ["Applet..." hm--html-add-applet-to-region t]
420 ) 432 )
421 ("Forms" 433 ("Forms"
422 ["Form..." hm--html-add-form-to-region t]) 434 ["Form..." hm--html-add-form-to-region t])
423 )) 435 ))
424 436