Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-menu.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents ac2d302a0011
children 4103f0995bd7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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.1.1.2 1996/12/18 03:46:46 steve Exp $ 3 ;;; $Id: hm--html-menu.el,v 1.2 1997/02/16 01:29:08 steve Exp $
4 ;;; 4 ;;;
5 ;;; Copyright (C) 1993, 1994, 1995, 1996 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
9 ;;; it under the terms of the GNU General Public License as published by 9 ;;; it under the terms of the GNU General Public License as published by
10 ;;; the Free Software Foundation; either version 2, or (at your option) 10 ;;; the Free Software Foundation; either version 2, or (at your option)
58 (setq hm--html-menu-noregion-expert 58 (setq hm--html-menu-noregion-expert
59 '("HTML Noregion Expert Menu" 59 '("HTML Noregion Expert Menu"
60 ("Anchors" 60 ("Anchors"
61 ["Relative link..." hm--html-add-relative-link t] 61 ["Relative link..." hm--html-add-relative-link t]
62 ["General link..." hm--html-add-normal-link t] 62 ["General link..." hm--html-add-normal-link t]
63 ["Drag & Drop"
64 idd-start-mouse-drag-and-drop
65 :active t
66 :keys "\\[idd-mouse-drag-and-drop]"]
63 "----" 67 "----"
64 ["Html link..." hm--html-add-html-link t] 68 ["Html link..." hm--html-add-html-link t]
65 ["Info link..." hm--html-add-info-link t] 69 ["Info link..." hm--html-add-info-link t]
66 ["Gopher link..." hm--html-add-gopher-link t] 70 ["Gopher link..." hm--html-add-gopher-link t]
67 ["File link..." hm--html-add-file-link t] 71 ["File link..." hm--html-add-file-link t]
204 ) 208 )
205 ("Include" 209 ("Include"
206 ["Top aligned image..." hm--html-add-image-top t] 210 ["Top aligned image..." hm--html-add-image-top t]
207 ["Middle aligned image..." hm--html-add-image-middle t] 211 ["Middle aligned image..." hm--html-add-image-middle t]
208 ["Bottom aligned image..." hm--html-add-image-bottom t] 212 ["Bottom aligned image..." hm--html-add-image-bottom t]
213 ["Drag & Drop"
214 idd-start-mouse-drag-and-drop
215 :active t
216 :keys "\\[idd-mouse-drag-and-drop]"]
209 "----" 217 "----"
210 ["Applet..." hm--html-add-applet t] 218 ["Applet..." hm--html-add-applet t]
211 ["Parameter..." hm--html-add-applet-parameter t] 219 ["Parameter..." hm--html-add-applet-parameter t]
212 ; "----" 220 ; "----"
213 ; ["File..." hm--html-add-server-side-include-file t] 221 ; ["File..." hm--html-add-server-side-include-file t]
246 254
247 (setq hm--html-menu-noregion-novice 255 (setq hm--html-menu-noregion-novice
248 '("HTML No-region Novice Menu" 256 '("HTML No-region Novice Menu"
249 ("Anchors" 257 ("Anchors"
250 ["Relative link..." hm--html-add-relative-link t] 258 ["Relative link..." hm--html-add-relative-link t]
259 ["Drag & Drop"
260 idd-start-mouse-drag-and-drop
261 :active t
262 :keys "\\[idd-mouse-drag-and-drop]"]
251 "----" 263 "----"
252 ["Html link..." hm--html-add-html-link t] 264 ["Html link..." hm--html-add-html-link t]
253 ["File link..." hm--html-add-file-link t] 265 ["File link..." hm--html-add-file-link t]
254 ) 266 )
255 ("Frame" 267 ("Frame"
278 (setq hm--html-menu-region-expert 290 (setq hm--html-menu-region-expert
279 '("HTML Region Expert Menu" 291 '("HTML Region Expert Menu"
280 ("Anchors" 292 ("Anchors"
281 ["Relative link..." hm--html-add-relative-link-to-region t] 293 ["Relative link..." hm--html-add-relative-link-to-region t]
282 ["General link..." hm--html-add-normal-link-to-region t] 294 ["General link..." hm--html-add-normal-link-to-region t]
295 ["Drag & Drop"
296 idd-start-mouse-drag-and-drop
297 :active t
298 :keys "\\[idd-mouse-drag-and-drop]"]
283 "----" 299 "----"
284 ["Html link..." hm--html-add-html-link-to-region t] 300 ["Html link..." hm--html-add-html-link-to-region t]
285 ["Info link..." hm--html-add-info-link-to-region t] 301 ["Info link..." hm--html-add-info-link-to-region t]
286 ["Gopher link..." hm--html-add-gopher-link-to-region t] 302 ["Gopher link..." hm--html-add-gopher-link-to-region t]
287 ["File link..." hm--html-add-file-link-to-region t] 303 ["File link..." hm--html-add-file-link-to-region t]
409 425
410 (setq hm--html-menu-region-novice 426 (setq hm--html-menu-region-novice
411 '("HTML Region Novice Menu" 427 '("HTML Region Novice Menu"
412 ("Anchors" 428 ("Anchors"
413 ["Relative link..." hm--html-add-relative-link-to-region t] 429 ["Relative link..." hm--html-add-relative-link-to-region t]
430 ["Drag & Drop"
431 idd-start-mouse-drag-and-drop
432 :active t
433 :keys "\\[idd-mouse-drag-and-drop]"]
414 "----" 434 "----"
415 ["Html link..." hm--html-add-html-link-to-region t] 435 ["Html link..." hm--html-add-html-link-to-region t]
416 ["File link..." hm--html-add-file-link-to-region t] 436 ["File link..." hm--html-add-file-link-to-region t]
417 ) 437 )
418 ("Frame" 438 ("Frame"
452 :style radio 472 :style radio
453 :selected hm--html-expert] 473 :selected hm--html-expert]
454 ; ["Marcs menu" hm--html-use-marcs-menu t] 474 ; ["Marcs menu" hm--html-use-marcs-menu t]
455 ) 475 )
456 ["Reload config files" hm--html-load-config-files t] 476 ["Reload config files" hm--html-load-config-files t]
477 ["Templates (fixed dirs) ..."
478 hm--html-insert-template-from-fixed-dirs
479 t]
457 ["Templates ..." hm--html-insert-template t] 480 ["Templates ..." hm--html-insert-template t]
481 ["Drag & Drop"
482 idd-start-mouse-drag-and-drop
483 :active t
484 :keys "\\[idd-mouse-drag-and-drop]"]
485 ["Drag & Drop Help"
486 idd-start-help-mouse-drag-and-drop
487 :active t
488 :keys "\\[idd-help-mouse-drag-and-drop]"]
458 "----" 489 "----"
459 ["Remove numeric names" hm--html-remove-numeric-names t] 490 ["Remove numeric names" hm--html-remove-numeric-names t]
460 ["Quotify hrefs" hm--html-quotify-hrefs t] 491 ["Quotify hrefs" hm--html-quotify-hrefs t]
461 "----" 492 "----"
462 ["Submit bug report..." hm--html-submit-bug-report t] 493 ["Submit bug report..." hm--html-submit-bug-report t]