;; html-helper-mode-menu.el

;; Author: Jun Ishikawa <jun@nih.go.jp>

;; Copyright (C) 1995 Jun Ishikawa

;; This file is part of GNU Emacs.

;; GNU Emacs 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.

;; GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.


(require 'html-helper-mode)

(define-key html-helper-mode-map [menu-bar] (make-sparse-keymap))
(define-key html-helper-mode-map [menu-bar html]
  (cons "HTML" (make-sparse-keymap "HTML")))

; define Form submenu
(setq menu-bar-form-menu (make-sparse-keymap))
(define-key menu-bar-form-menu [input-reset]
  '("Reset" . tempo-template-html-input-reset))
(define-key menu-bar-form-menu [input-submit]
  '("Submit" . tempo-template-html-input-submit))
(define-key menu-bar-form-menu [input-text]
  '("Text" . tempo-template-html-input-text))
(define-key menu-bar-form-menu [input-textarea]
  '("Textarea" . tempo-template-html-input-textarea))
(define-key menu-bar-form-menu [input-select]
  '("Select" . tempo-template-html-input-select))
(define-key menu-bar-form-menu [input-radio]
  '("Radio Button" . tempo-template-html-input-radio))
(define-key menu-bar-form-menu [form]
  '("Form <form>..." . tempo-template-html-form))

; define Text Elements submenu
(setq menu-bar-element-menu (make-sparse-keymap))
(define-key menu-bar-element-menu [horizontal-rule]
  '("Holizontal Rule <hr>" . tempo-template-html-horizontal-rule))
(define-key menu-bar-element-menu [break]
  '("Break <br>" . tempo-template-html-break))
(define-key menu-bar-element-menu [paragraph]
  '("Paragraph <p>" . tempo-template-html-paragraph))

; define Entities submenu
(setq menu-bar-entity-menu (make-sparse-keymap))
(define-key menu-bar-entity-menu [nonbreaking-space]
  '("Nonbreaking Space \" \"" . tempo-template-html-nonbreaking-space))
(define-key menu-bar-entity-menu [greater-than]
  '("Greater Than \">\"" . tempo-template-html-greater-than))
(define-key menu-bar-entity-menu [less-than]
  '("Less Than \"<\"" . tempo-template-html-less-than))
(define-key menu-bar-entity-menu [ampersand]
  '("Ampersand \"&\"" . tempo-template-html-ampersand))

; define Other Styles submenu
(setq menu-bar-style-menu (make-sparse-keymap))
(define-key menu-bar-style-menu [subscript]
  '("Subscript" . tempo-template-html-subscript))
(define-key menu-bar-style-menu [superscript]
  '("Superscript" . tempo-template-html-superscript))
(define-key menu-bar-style-menu [preformatted]
  '("Preformatted" . tempo-template-html-preformatted))
(define-key menu-bar-style-menu [emphasized]
  '("Emphasized" . tempo-template-html-emphasized))
(define-key menu-bar-style-menu [code]
  '("Code" . tempo-template-html-code))
(define-key menu-bar-style-menu [blockquote]
  '("Blockquote" . tempo-template-html-blockquote))
(define-key menu-bar-style-menu [address]
  '("Address" . tempo-template-html-address))

; define List submenu
(setq menu-bar-list-menu (make-sparse-keymap))
(define-key menu-bar-list-menu [item]
  '("Insert Item <li> or <dt>" . html-helper-smart-insert-item))
(define-key menu-bar-list-menu [difinition]
  '("Definition <dl>...</dl>" . tempo-template-html-definition-list))
(define-key menu-bar-list-menu [ol]
  '("Ordered <ol>...</ol>" . tempo-template-html-ordered-list))
(define-key menu-bar-list-menu [ul]
  '("Unordered <ul>...</ul>" . tempo-template-html-unordered-list))

; define Header submenu
(setq menu-bar-header-menu (make-sparse-keymap))
(define-key menu-bar-header-menu [h6]
  '("6" . tempo-template-html-header-6))
(define-key menu-bar-header-menu [h5]
  '("5" . tempo-template-html-header-5))
(define-key menu-bar-header-menu [h4]
  '("4" . tempo-template-html-header-4))
(define-key menu-bar-header-menu [h3]
  '("3" . tempo-template-html-header-3))
(define-key menu-bar-header-menu [h2]
  '("2" . tempo-template-html-header-2))
(define-key menu-bar-header-menu [h1]
  '("1" . tempo-template-html-header-1))

; define HTML menu item
(define-key html-helper-mode-map [menu-bar html element]
  (cons "Text Elements >" menu-bar-element-menu))
(define-key html-helper-mode-map [menu-bar html entity]
  (cons "Entities >" menu-bar-entity-menu))
(define-key html-helper-mode-map [menu-bar html form]
  (cons "Form >" menu-bar-form-menu))
(define-key html-helper-mode-map [menu-bar html header]
  (cons "Headers >" menu-bar-header-menu))
(define-key html-helper-mode-map [menu-bar html list]
  (cons "Lists >" menu-bar-list-menu))
(define-key  html-helper-mode-map [menu-bar html separator-misc]
  '("--"))
(define-key html-helper-mode-map [menu-bar html other-style]
  (cons "Other Styles >" menu-bar-style-menu))
(define-key html-helper-mode-map [menu-bar html underline]
  '("Underline" . tempo-template-html-underline))
(define-key html-helper-mode-map [menu-bar html italic]
  '("Italic" . tempo-template-html-italic))
(define-key html-helper-mode-map [menu-bar html bold]
  '("Bold" . tempo-template-html-bold))
(define-key  html-helper-mode-map [menu-bar html separator-style]
  '("--"))
(define-key html-helper-mode-map [menu-bar html title]
  '("Image <img alt=... src=..." . tempo-template-html-alt-image))
(define-key html-helper-mode-map [menu-bar html img]
  '("Image <img src=..." . tempo-template-html-image))
(define-key html-helper-mode-map [menu-bar html name]
  '("Name <a name=..." . tempo-template-html-target-anchor))
(define-key html-helper-mode-map [menu-bar html anchor]
  '("Anchor <a href=..." . tempo-template-html-anchor))

;; end of html-helper-mode-menu.el