yatex

diff yahtml.el @ 13:eafae54794a0

find changesets by author, revision, files, or words in the commit message
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
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/yahtml.el	Sat Jan 29 07:59:59 1994 +0000
     1.3 @@ -0,0 +1,42 @@
     1.4 +;;; -*- Emacs-Lisp -*-
     1.5 +;;; (c ) 1994 by HIROSE Yuuji [yuuji@ae.keio.ac.jp, pcs39334@ascii-net]
     1.6 +;;; Last modified Sat Jan 29 16:58:00 1994 on gloria
     1.7 +;;; This is sample hack definition for HTML.
     1.8 +;;;
     1.9 +;;; [Purely tentative version]
    1.10 +;;; $Id$
    1.11 +
    1.12 +(require 'yatex)
    1.13 +(defvar yahtml-prefix-map (copy-keymap YaTeX-prefix-map))
    1.14 +(defvar yahtml-mode-map nil
    1.15 +  "Keymap used in yahtml-mode.")
    1.16 +(if yahtml-mode-map nil
    1.17 +  (setq yahtml-mode-map (make-sparse-keymap))
    1.18 +  (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map))
    1.19 +
    1.20 +(defun yahtml-mode ()
    1.21 +  (interactive)
    1.22 +  (yatex-mode)
    1.23 +  (setq major-mode 'yahtml-mode
    1.24 +	mode-name "yahtml")
    1.25 +  (make-local-variable 'YaTeX-ec)
    1.26 +  (setq YaTeX-ec "")
    1.27 +  (make-local-variable 'YaTeX-struct-begin)
    1.28 +  (setq YaTeX-struct-begin "<%1>")
    1.29 +  (make-local-variable 'YaTeX-struct-end)
    1.30 +  (setq YaTeX-struct-end "</%1>")
    1.31 +  (make-local-variable 'env-table)
    1.32 +  (setq env-table
    1.33 +	'(("HTML") ("HEAD") ("TITLE") ("BODY") ("H1") ("H2") ("H3") ("DL")))
    1.34 +  (make-local-variable 'YaTeX-prefix-map)
    1.35 +  (setq YaTeX-prefix-map yahtml-prefix-map)
    1.36 +  (use-local-map yahtml-mode-map)
    1.37 +  (YaTeX-define-begend-key "bh" "HTML")
    1.38 +  (YaTeX-define-begend-key "bH" "HEAD")
    1.39 +  (YaTeX-define-begend-key "bt" "TITLE")
    1.40 +  (YaTeX-define-begend-key "bb" "BODY")
    1.41 +  (YaTeX-define-begend-key "bd" "DL")
    1.42 +  (YaTeX-define-begend-key "b1" "H1")
    1.43 +  (YaTeX-define-begend-key "b2" "H2")
    1.44 +  (YaTeX-define-begend-key "b3" "H3")
    1.45 +)