yatex
annotate yahtml.el @ 13:eafae54794a0
Show message at comment-region on begin/end mode.
Greek letters completion in yatexmth.
YaTeX-mark environment and YaTeX-%-menu added.
Erase cursor at the execution of dviout(DOS).
Enable recursive completion at section-type completion.
| author | yuuji |
|---|---|
| date | Sat, 29 Jan 1994 07:59:59 +0000 |
| parents | |
| children | cd762e854337 |
| rev | line source |
|---|---|
| yuuji@13 | 1 ;;; -*- Emacs-Lisp -*- |
| yuuji@13 | 2 ;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net] |
| yuuji@13 | 3 ;;; Last modified Sat Jan 29 16:58:00 1994 on gloria |
| yuuji@13 | 4 ;;; This is sample hack definition for HTML. |
| yuuji@13 | 5 ;;; |
| yuuji@13 | 6 ;;; [Purely tentative version] |
| yuuji@13 | 7 ;;; $Id$ |
| yuuji@13 | 8 |
| yuuji@13 | 9 (require 'yatex) |
| yuuji@13 | 10 (defvar yahtml-prefix-map (copy-keymap YaTeX-prefix-map)) |
| yuuji@13 | 11 (defvar yahtml-mode-map nil |
| yuuji@13 | 12 "Keymap used in yahtml-mode.") |
| yuuji@13 | 13 (if yahtml-mode-map nil |
| yuuji@13 | 14 (setq yahtml-mode-map (make-sparse-keymap)) |
| yuuji@13 | 15 (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map)) |
| yuuji@13 | 16 |
| yuuji@13 | 17 (defun yahtml-mode () |
| yuuji@13 | 18 (interactive) |
| yuuji@13 | 19 (yatex-mode) |
| yuuji@13 | 20 (setq major-mode 'yahtml-mode |
| yuuji@13 | 21 mode-name "yahtml") |
| yuuji@13 | 22 (make-local-variable 'YaTeX-ec) |
| yuuji@13 | 23 (setq YaTeX-ec "") |
| yuuji@13 | 24 (make-local-variable 'YaTeX-struct-begin) |
| yuuji@13 | 25 (setq YaTeX-struct-begin "<%1>") |
| yuuji@13 | 26 (make-local-variable 'YaTeX-struct-end) |
| yuuji@13 | 27 (setq YaTeX-struct-end "</%1>") |
| yuuji@13 | 28 (make-local-variable 'env-table) |
| yuuji@13 | 29 (setq env-table |
| yuuji@13 | 30 '(("HTML") ("HEAD") ("TITLE") ("BODY") ("H1") ("H2") ("H3") ("DL"))) |
| yuuji@13 | 31 (make-local-variable 'YaTeX-prefix-map) |
| yuuji@13 | 32 (setq YaTeX-prefix-map yahtml-prefix-map) |
| yuuji@13 | 33 (use-local-map yahtml-mode-map) |
| yuuji@13 | 34 (YaTeX-define-begend-key "bh" "HTML") |
| yuuji@13 | 35 (YaTeX-define-begend-key "bH" "HEAD") |
| yuuji@13 | 36 (YaTeX-define-begend-key "bt" "TITLE") |
| yuuji@13 | 37 (YaTeX-define-begend-key "bb" "BODY") |
| yuuji@13 | 38 (YaTeX-define-begend-key "bd" "DL") |
| yuuji@13 | 39 (YaTeX-define-begend-key "b1" "H1") |
| yuuji@13 | 40 (YaTeX-define-begend-key "b2" "H2") |
| yuuji@13 | 41 (YaTeX-define-begend-key "b3" "H3") |
| yuuji@13 | 42 ) |