1 ;;; -*- Emacs-Lisp -*-

2 ;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net.or.jp]

3 ;;; Last modified Wed May 4 05:31:29 1994 on 98fa

4 ;;; This is sample hack definition for HTML.

5 ;;;

6 ;;; [Purely tentative version]

7 ;;; $Id$

8

9 (require 'yatex)

10 (defvar yahtml-prefix-map (copy-keymap YaTeX-prefix-map))

11 (defvar yahtml-mode-map nil

12 "Keymap used in yahtml-mode.")

13 (if yahtml-mode-map nil

14 (setq yahtml-mode-map (make-sparse-keymap))

15 (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map))

16

17 (defun yahtml-mode ()

18 (interactive)

19 (yatex-mode)

20 (setq major-mode 'yahtml-mode

21 mode-name "yahtml")

22 (make-local-variable 'YaTeX-ec)

23 (setq YaTeX-ec "")

24 (make-local-variable 'YaTeX-struct-begin)

25 (setq YaTeX-struct-begin "<%1>")

26 (make-local-variable 'YaTeX-struct-end)

27 (setq YaTeX-struct-end "</%1>")

28 (make-local-variable 'env-table)

29 (setq env-table

30 '(("HTML") ("HEAD") ("TITLE") ("BODY") ("H1") ("H2") ("H3") ("DL")))

31 (make-local-variable 'YaTeX-prefix-map)

32 (setq YaTeX-prefix-map yahtml-prefix-map)

33 (use-local-map yahtml-mode-map)

34 (YaTeX-define-begend-key "bh" "HTML")

35 (YaTeX-define-begend-key "bH" "HEAD")

36 (YaTeX-define-begend-key "bt" "TITLE")

37 (YaTeX-define-begend-key "bb" "BODY")

38 (YaTeX-define-begend-key "bd" "DL")

39 (YaTeX-define-begend-key "b1" "H1")

40 (YaTeX-define-begend-key "b2" "H2")

41 (YaTeX-define-begend-key "b3" "H3")

42 )