13
|
1 ;;; -*- Emacs-Lisp -*-
|
|
2 ;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net]
|
|
3 ;;; Last modified Sat Jan 29 16:58:00 1994 on gloria
|
|
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 )
|