yuuji@13: ;;; -*- Emacs-Lisp -*-
yuuji@13: ;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net]
yuuji@13: ;;; Last modified Sat Jan 29 16:58:00 1994 on gloria
yuuji@13: ;;; This is sample hack definition for HTML.
yuuji@13: ;;;
yuuji@13: ;;; [Purely tentative version]
yuuji@13: ;;; $Id$
yuuji@13: 
yuuji@13: (require 'yatex)
yuuji@13: (defvar yahtml-prefix-map (copy-keymap YaTeX-prefix-map))
yuuji@13: (defvar yahtml-mode-map nil
yuuji@13:   "Keymap used in yahtml-mode.")
yuuji@13: (if yahtml-mode-map nil
yuuji@13:   (setq yahtml-mode-map (make-sparse-keymap))
yuuji@13:   (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map))
yuuji@13: 
yuuji@13: (defun yahtml-mode ()
yuuji@13:   (interactive)
yuuji@13:   (yatex-mode)
yuuji@13:   (setq major-mode 'yahtml-mode
yuuji@13: 	mode-name "yahtml")
yuuji@13:   (make-local-variable 'YaTeX-ec)
yuuji@13:   (setq YaTeX-ec "")
yuuji@13:   (make-local-variable 'YaTeX-struct-begin)
yuuji@13:   (setq YaTeX-struct-begin "<%1>")
yuuji@13:   (make-local-variable 'YaTeX-struct-end)
yuuji@13:   (setq YaTeX-struct-end "</%1>")
yuuji@13:   (make-local-variable 'env-table)
yuuji@13:   (setq env-table
yuuji@13: 	'(("HTML") ("HEAD") ("TITLE") ("BODY") ("H1") ("H2") ("H3") ("DL")))
yuuji@13:   (make-local-variable 'YaTeX-prefix-map)
yuuji@13:   (setq YaTeX-prefix-map yahtml-prefix-map)
yuuji@13:   (use-local-map yahtml-mode-map)
yuuji@13:   (YaTeX-define-begend-key "bh" "HTML")
yuuji@13:   (YaTeX-define-begend-key "bH" "HEAD")
yuuji@13:   (YaTeX-define-begend-key "bt" "TITLE")
yuuji@13:   (YaTeX-define-begend-key "bb" "BODY")
yuuji@13:   (YaTeX-define-begend-key "bd" "DL")
yuuji@13:   (YaTeX-define-begend-key "b1" "H1")
yuuji@13:   (YaTeX-define-begend-key "b2" "H2")
yuuji@13:   (YaTeX-define-begend-key "b3" "H3")
yuuji@13: )