Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-menu.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 1856695b1fa9
children 6075d714658b
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
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.6 1997/05/09 03:28:00 steve Exp $ 3 ;;; $Id: hm--html-menu.el,v 1.7 1997/05/29 23:49:42 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
96 ["Isindex..." hm--html-add-isindex t] 96 ["Isindex..." hm--html-add-isindex t]
97 ["Document Base..." hm--html-add-base t] 97 ["Document Base..." hm--html-add-base t]
98 "----" 98 "----"
99 ["Created comment" hm--html-insert-created-comment t] 99 ["Created comment" hm--html-insert-created-comment t]
100 ["Changed comment" hm--html-insert-changed-comment t] 100 ["Changed comment" hm--html-insert-changed-comment t]
101 ["Modified line" hm--html-insert-modified-line t]
101 ["New date in title" hm--html-new-date t] 102 ["New date in title" hm--html-new-date t]
102 ) 103 )
103 ("Structure" 104 ("Structure"
104 ["Menu or list item" hm--html-add-list-or-menu-item t] 105 ["Menu or list item" hm--html-add-list-or-menu-item t]
105 ["Menu" hm--html-add-menu t] 106 ["Menu" hm--html-add-menu t]
473 ["Typewriter" hm--html-add-fixed-to-region t] 474 ["Typewriter" hm--html-add-fixed-to-region t]
474 ) 475 )
475 )) 476 ))
476 477
477 478
478 479 (if (adapt-xemacsp)
479 (setq hm--html-pulldown-menu 480 ;; The reason for this if form is, that the Emacs 19 can't
480 '("HTML Config Menu" 481 ;; work correct with `:keys "\\[idd-help-mouse-drag-and-drop]"'
481 ("Set popup menu" 482 (setq hm--html-pulldown-menu
482 ["Novice menu" 483 '("HTML Config Menu"
483 hm--html-use-novice-menu 484 ("Set popup menu"
484 :active t 485 ["Novice menu"
485 :style radio 486 hm--html-use-novice-menu
486 :selected (not hm--html-expert)] 487 :active t
487 ["Expert menu" 488 :style radio
488 hm--html-use-expert-menu 489 :selected (not hm--html-expert)]
489 :active t 490 ["Expert menu"
490 :style radio 491 hm--html-use-expert-menu
491 :selected hm--html-expert] 492 :active t
492 ) 493 :style radio
493 ["Reload config files" hm--html-load-config-files t] 494 :selected hm--html-expert]
494 ["Templates (fixed dirs) ..." 495 )
495 hm--html-insert-template-from-fixed-dirs 496 ["Reload config files" hm--html-load-config-files t]
496 t] 497 ["Templates (fixed dirs) ..."
497 ["Templates ..." hm--html-insert-template t] 498 hm--html-insert-template-from-fixed-dirs
498 ["Drag & Drop" 499 t]
499 idd-start-mouse-drag-and-drop 500 ["Templates ..." hm--html-insert-template t]
500 :active t 501 ["Drag & Drop"
501 :keys "\\[idd-mouse-drag-and-drop]"] 502 idd-start-mouse-drag-and-drop
502 ["Drag & Drop Help" 503 :active t
503 idd-start-help-mouse-drag-and-drop 504 :keys "\\[idd-mouse-drag-and-drop]"]
504 :active t 505 ["Drag & Drop Help"
505 :keys "\\[idd-help-mouse-drag-and-drop]"] 506 idd-start-help-mouse-drag-and-drop
506 "----" 507 :active t
507 ["Remove numeric names" hm--html-remove-numeric-names t] 508 :keys "\\[idd-help-mouse-drag-and-drop]"]
508 ["Quotify hrefs" hm--html-quotify-hrefs t] 509 "----"
509 "----" 510 ["Remove numeric names" hm--html-remove-numeric-names t]
510 ["Submit bug report..." hm--html-submit-bug-report t] 511 ["Quotify hrefs" hm--html-quotify-hrefs t]
511 ["WWW Package Docs" hm--html-view-www-package-docu t] 512 "----"
512 "----" 513 ["Submit bug report..." hm--html-submit-bug-report t]
513 ("Preview Document" 514 ["WWW Package Docs" hm--html-view-www-package-docu t]
514 ["Netscape view buffer" (hm--html-send-buffer-to-netscape 515 "----"
515 (current-buffer)) t] 516 ("Preview Document"
516 "----" 517 ["Netscape view buffer" (hm--html-send-buffer-to-netscape
517 ["Xmosaic start" html-view-start-mosaic t] 518 (current-buffer)) t]
518 ["Xmosaic view buffer" html-view-view-buffer t] 519 "----"
519 ["Xmosaic view file" html-view-view-file t] 520 ["Xmosaic start" html-view-start-mosaic t]
520 ["Xmosaic goto url" html-view-goto-url t] 521 ["Xmosaic view buffer" html-view-view-buffer t]
521 ["Xmosaic get display" html-view-get-display t] 522 ["Xmosaic view file" html-view-view-file t]
522 "----" 523 ["Xmosaic goto url" html-view-goto-url t]
523 ["W3 start" w3 t] 524 ["Xmosaic get display" html-view-get-display t]
524 ["W3 view buffer" w3-preview-this-buffer t] 525 "----"
525 ["W3 open remote file..." w3-fetch t] 526 ["W3 start" w3 t]
526 ["W3 open local..." w3-open-local t] 527 ["W3 view buffer" w3-preview-this-buffer t]
527 ["W3 use hotlist..." w3-use-hotlist t] 528 ["W3 open remote file..." w3-fetch t]
528 ) 529 ["W3 open local..." w3-open-local t]
529 )) 530 ["W3 use hotlist..." w3-use-hotlist t]
530 531 )
532 ))
533 (setq hm--html-pulldown-menu
534 '("HTML Config Menu"
535 ("Set popup menu"
536 ["Novice menu"
537 hm--html-use-novice-menu
538 :active t
539 :style radio
540 :selected (not hm--html-expert)]
541 ["Expert menu"
542 hm--html-use-expert-menu
543 :active t
544 :style radio
545 :selected hm--html-expert]
546 )
547 ["Reload config files" hm--html-load-config-files t]
548 ["Templates (fixed dirs) ..."
549 hm--html-insert-template-from-fixed-dirs
550 t]
551 ["Templates ..." hm--html-insert-template t]
552 ["Drag & Drop"
553 idd-start-mouse-drag-and-drop
554 :active t]
555 ["Drag & Drop Help"
556 idd-start-help-mouse-drag-and-drop
557 :active t]
558 "----"
559 ["Remove numeric names" hm--html-remove-numeric-names t]
560 ["Quotify hrefs" hm--html-quotify-hrefs t]
561 "----"
562 ["Submit bug report..." hm--html-submit-bug-report t]
563 ["WWW Package Docs" hm--html-view-www-package-docu t]
564 "----"
565 ("Preview Document"
566 ["Netscape view buffer" (hm--html-send-buffer-to-netscape
567 (current-buffer)) t]
568 "----"
569 ["Xmosaic start" html-view-start-mosaic t]
570 ["Xmosaic view buffer" html-view-view-buffer t]
571 ["Xmosaic view file" html-view-view-file t]
572 ["Xmosaic goto url" html-view-goto-url t]
573 ["Xmosaic get display" html-view-get-display t]
574 "----"
575 ["W3 start" w3 t]
576 ["W3 view buffer" w3-preview-this-buffer t]
577 ["W3 open remote file..." w3-fetch t]
578 ["W3 open local..." w3-open-local t]
579 ["W3 use hotlist..." w3-use-hotlist t]
580 )
581 ))
582 )
531 583
532 (if (adapt-xemacsp) 584 (if (adapt-xemacsp)
533 (defun hm--install-html-menu (menu-name) 585 (defun hm--install-html-menu (menu-name)
534 (if (and current-menubar (not (assoc menu-name current-menubar))) 586 (if (and current-menubar (not (assoc menu-name current-menubar)))
535 (progn 587 (progn