yuuji@13: ;;; -*- Emacs-Lisp -*-
yuuji@60: ;;; (c ) 1994-1997 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
yuuji@60: ;;; Last modified Fri Jan 24 18:03:01 1997 on supra
yuuji@54: ;;; $Id$
yuuji@54:
yuuji@58: ;;;[Installation]
yuuji@58: ;;;
yuuji@58: ;;; First, you have to install YaTeX and make sure it works fine. Then
yuuji@58: ;;; put these expressions into your ~/.emacs
yuuji@58: ;;;
yuuji@58: ;;; (setq auto-mode-alist
yuuji@58: ;;; (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist))
yuuji@58: ;;; (autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
yuuji@58: ;;; (setq yahtml-www-browser "netscape")
yuuji@58: ;;; ;Write your favorite browser. But netscape is advantageous.
yuuji@58: ;;; (setq yahtml-path-url-alist
yuuji@58: ;;; '(("/home/yuuji/public_html" . "http://www.mynet/~yuuji")
yuuji@58: ;;; ("/home/staff/yuuji/html" . "http://www.othernet/~yuuji")))
yuuji@58: ;;; ;Write correspondence alist from ABSOLUTE unix path name to URL path.
yuuji@58: ;;;
yuuji@54: ;;;[Commentary]
yuuji@13: ;;;
yuuji@54: ;;; It is assumed you are already familiar with YaTeX. The following
yuuji@54: ;;; completing featureas are available: ([prefix] means `C-c' by default)
yuuji@54: ;;;
yuuji@54: ;;; * [prefix] b X Complete environments such as `H1' which
yuuji@57: ;;; normally requires closing tag `
yuuji@57: ;;; ... is also classified into
yuuji@57: ;;; this group
yuuji@59: ;;; When input `href=...', you can complete file
yuuji@59: ;;; name or label(href="#foo") by typing TAB.
yuuji@54: ;;; * [prefix] s Complete declarative notations such as
yuuji@57: ;;; ` '
yuuji@57: ;;; ` '
yuuji@54: ;;; * [prefix] l Complete typeface-changing commands such as
yuuji@54: ;;; ` ... ' or ` ... '
yuuji@60: ;;; This completion can be used to make in-line
yuuji@60: ;;; tags which is normally completed with [prefix] b.
yuuji@57: ;;; * [prefix] m Complete single commands such as
yuuji@58: ;;; ` ' or `
or ...'
yuuji@59: ;;; * M-RET Intelligent newline; if current TAG is one of
yuuji@59: ;;; ul, ol, or dl. insert newline and or
yuuji@59: ;;; or suitable for current condition.
yuuji@54: ;;; * menu-bar yahtml Complete all by selecting a menu item (Though I
yuuji@54: ;;; hate menu, this is most useful)
yuuji@58: ;;; * [prefix] g Goto corresponding Tag or HREF such as
yuuji@59: ;;; <-> or href="xxx".
yuuji@59: ;;; Or invoke image viewer if point is on .
yuuji@58: ;;; * [prefix] k Kill html tags on the point. If you provide
yuuji@58: ;;; universal-argument, kill surrounded contents too.
yuuji@58: ;;; * [prefix] c Change html tags on the point.
yuuji@59: ;;; When typeing [prefix] c on `href="xxx"', you can
yuuji@59: ;;; change the reference link with completion.
yuuji@60: ;;; * [prefix] t j Call weblint on current file.
yuuji@60: ;;; * [prefix] t p View current html with WWW browser
yuuji@58: ;;; (To activate this, never fail to set the lisp
yuuji@58: ;;; variable yahtml-www-browser. Recommended value
yuuji@58: ;;; is "netscape")
yuuji@59: ;;; * [prefix] a YaTeX's accent mark's equivalent of yahtml.
yuuji@59: ;;; This function can input $lt, $gt or so.
yuuji@58: ;;;
yuuji@54:
yuuji@13:
yuuji@13: (require 'yatex)
yuuji@60: ;;; --- customizable variable starts here ---
yuuji@58: (defvar yahtml-image-viewer "xv" "*Image viewer program")
yuuji@58: (defvar yahtml-www-browser "netscape"
yuuji@58: "*WWW Browser command")
yuuji@58: (defvar yahtml-kanji-code 2
yuuji@58: "Kanji coding system of html file; 1=sjis, 2=jis, 3=euc")
yuuji@58: ;;(defvar yahtml-www-server "www" "*Host name of your domain's WWW server")
yuuji@58: (defvar yahtml-path-url-alist nil
yuuji@58: "*Alist of unix path name vs. URL name of WWW server.
yuuji@58: Ex.
yuuji@58: '((\"/usr/home/yuuji/http\" . \"http://www.comp.ae.keio.ac.jp/~yuuji\")
yuuji@58: (\"/usr/home/yuuji/darts/http\" . \"http://inspire.comp.ae.keio.ac.jp/~darts\"))")
yuuji@58: (defvar yahtml-directory-index "index.html"
yuuji@58: "*Directory index file name;
yuuji@58: Consult your site's WWW administrator.")
yuuji@57:
yuuji@60: (defvar yahtml-environment-indent YaTeX-environment-indent
yuuji@60: "*Indentation depth of HTML's listing environment")
yuuji@60:
yuuji@60: (defvar yahtml-lint-program (if YaTeX-japan "jweblint" "weblint")
yuuji@60: "*Program name to lint HTML file")
yuuji@60: (defvar yahtml-hate-too-deep-indentation nil
yuuji@60: "*Non-nil for this variable suppress deep indentation in listing environments.")
yuuji@60:
yuuji@60: ;;; --- customizable variable ends here ---
yuuji@60:
yuuji@60: (defvar yahtml-prefix-map nil)
yuuji@60: (defvar yahtml-mode-map nil "Keymap used in yahtml-mode.")
yuuji@60: (defvar yahtml-lint-buffer-map nil "Keymap used in lint buffer.")
yuuji@60: (defvar yahtml-shell-command-option
yuuji@60: (or (and (boundp 'shell-command-option) shell-command-option)
yuuji@60: (if (eq system-type 'ms-dos) "/c" "-c")))
yuuji@60:
yuuji@60:
yuuji@57: (defun yahtml-define-begend-key-normal (key env &optional map)
yuuji@60: "Define short cut yahtml-insert-begend key."
yuuji@57: (YaTeX-define-key
yuuji@57: key
yuuji@57: (list 'lambda '(arg) '(interactive "P")
yuuji@60: (list 'yahtml-insert-begend 'arg env))
yuuji@57: map))
yuuji@57:
yuuji@57: (defun yahtml-define-begend-region-key (key env &optional map)
yuuji@60: "Define short cut yahtml-insert-begend-region key."
yuuji@57: (YaTeX-define-key key (list 'lambda nil '(interactive)
yuuji@60: (list 'yahtml-insert-begend t env)) map))
yuuji@57:
yuuji@57: (defun yahtml-define-begend-key (key env &optional map)
yuuji@57: "Define short cut key for begin type completion both for
yuuji@57: normal and region mode. To customize yahtml, user should use this function."
yuuji@57: (yahtml-define-begend-key-normal key env map)
yuuji@57: (if YaTeX-inhibit-prefix-letter nil
yuuji@57: (yahtml-define-begend-region-key
yuuji@57: (concat (upcase (substring key 0 1)) (substring key 1)) env)))
yuuji@57:
yuuji@57:
yuuji@13: (if yahtml-mode-map nil
yuuji@57: (setq yahtml-mode-map (make-sparse-keymap)
yuuji@57: yahtml-prefix-map (make-sparse-keymap))
yuuji@54: (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map)
yuuji@58: (define-key yahtml-mode-map "\M-\C-@" 'yahtml-mark-begend)
yuuji@58: (if (and (boundp 'window-system) (eq window-system 'x) YaTeX-emacs-19)
yuuji@58: (define-key yahtml-mode-map [?\M-\C- ] 'yahtml-mark-begend))
yuuji@54: (define-key yahtml-mode-map "\M-\C-a" 'YaTeX-beginning-of-environment)
yuuji@57: (define-key yahtml-mode-map "\M-\C-e" 'YaTeX-end-of-environment)
yuuji@58: (define-key yahtml-mode-map "\M-\C-m" 'yahtml-intelligent-newline)
yuuji@58: (define-key yahtml-mode-map "\C-i" 'yahtml-indent-line)
yuuji@57: (define-key yahtml-mode-map YaTeX-prefix yahtml-prefix-map)
yuuji@57: (let ((map yahtml-prefix-map))
yuuji@57: (YaTeX-define-key "^" 'yahtml-visit-main map)
yuuji@57: (YaTeX-define-key "4^" 'yahtml-visit-main-other-window map)
yuuji@57: (YaTeX-define-key "4g" 'yahtml-goto-corresponding-*-other-window map)
yuuji@57: (YaTeX-define-key "44" 'YaTeX-switch-to-window map)
yuuji@57: (and YaTeX-emacs-19 window-system
yuuji@57: (progn
yuuji@57: (YaTeX-define-key "5^" 'yahtml-visit-main-other-frame map)
yuuji@57: (YaTeX-define-key "5g" 'yahtml-goto-corresponding-*-other-frame map)
yuuji@57: (YaTeX-define-key "55" 'YaTeX-switch-to-window map)))
yuuji@57: (YaTeX-define-key "v" 'YaTeX-version map)
yuuji@57: (YaTeX-define-key "}" 'YaTeX-insert-braces-region map)
yuuji@57: (YaTeX-define-key "]" 'YaTeX-insert-brackets-region map)
yuuji@57: (YaTeX-define-key ")" 'YaTeX-insert-parens-region map)
yuuji@57: (YaTeX-define-key "s" 'yahtml-insert-form map)
yuuji@57: (YaTeX-define-key "l" 'yahtml-insert-tag map)
yuuji@57: (YaTeX-define-key "m" 'yahtml-insert-single map)
yuuji@60: (YaTeX-define-key "n" '(lambda () (interactive) (if yahtml-prefer-upcases (insert " ")(insert " "))) map)
yuuji@57: (if YaTeX-no-begend-shortcut
yuuji@57: (progn
yuuji@57: (YaTeX-define-key "B" 'yahtml-insert-begend-region map)
yuuji@57: (YaTeX-define-key "b" 'yahtml-insert-begend map))
yuuji@60: (yahtml-define-begend-key "bh" "html" map)
yuuji@60: (yahtml-define-begend-key "bH" "head" map)
yuuji@60: (yahtml-define-begend-key "bt" "title" map)
yuuji@59: (yahtml-define-begend-key "bT" "table" map)
yuuji@60: (yahtml-define-begend-key "bb" "body" map)
yuuji@60: (yahtml-define-begend-key "bc" "center" map)
yuuji@60: (yahtml-define-begend-key "bd" "dl" map)
yuuji@60: (yahtml-define-begend-key "bu" "ul" map)
yuuji@60: (yahtml-define-begend-key "b1" "h1" map)
yuuji@60: (yahtml-define-begend-key "b2" "h2" map)
yuuji@60: (yahtml-define-begend-key "b3" "h3" map)
yuuji@57: (yahtml-define-begend-key "ba" "a" map)
yuuji@57: (yahtml-define-begend-key "bf" "form" map)
yuuji@57: (yahtml-define-begend-key "bs" "select" map)
yuuji@57: (YaTeX-define-key "b " 'yahtml-insert-begend map)
yuuji@58: (YaTeX-define-key "B " 'yahtml-insert-begend-region map)
yuuji@57: )
yuuji@58: (YaTeX-define-key "e" 'YaTeX-end-environment map)
yuuji@57: (YaTeX-define-key ">" 'yahtml-comment-region map)
yuuji@57: (YaTeX-define-key "<" 'yahtml-uncomment-region map)
yuuji@57: (YaTeX-define-key "g" 'yahtml-goto-corresponding-* map)
yuuji@58: (YaTeX-define-key "k" 'yahtml-kill-* map)
yuuji@58: (YaTeX-define-key "c" 'yahtml-change-* map)
yuuji@58: (YaTeX-define-key "t" 'yahtml-browse-menu map)
yuuji@59: (YaTeX-define-key "a" 'yahtml-complete-mark map)
yuuji@60: (YaTeX-define-key "'" 'yahtml-prev-error map)
yuuji@58: ;;;;;(YaTeX-define-key "i" 'yahtml-fill-item map)
yuuji@60: ))
yuuji@60:
yuuji@60: (if yahtml-lint-buffer-map nil
yuuji@60: (setq yahtml-lint-buffer-map (make-keymap))
yuuji@60: (define-key yahtml-lint-buffer-map " " 'yahtml-jump-to-error-line))
yuuji@60:
yuuji@54:
yuuji@59: (defvar yahtml-paragraph-start
yuuji@59: (concat
yuuji@60: "^$\\|")
yuuji@58: (make-local-variable 'indent-line-function)
yuuji@58: (setq indent-line-function 'yahtml-indent-line)
yuuji@58: (make-local-variable 'YaTeX-item-regexp)
yuuji@58: (setq YaTeX-item-regexp "<\\(li\\|d[td]\\)>")
yuuji@60: (make-local-variable 'YaTeX-typesetting-mode-map)
yuuji@60: (setq YaTeX-typesetting-mode-map yahtml-lint-buffer-map)
yuuji@54: (set-syntax-table yahtml-syntax-table)
yuuji@13: (use-local-map yahtml-mode-map)
yuuji@54: (run-hooks 'yahtml-mode-hook))
yuuji@54:
yuuji@54: (defun yahtml-define-menu (keymap bindlist)
yuuji@54: (mapcar
yuuji@54: (function
yuuji@54: (lambda (bind)
yuuji@54: (define-key keymap (vector (car bind)) (cdr bind))))
yuuji@54: bindlist))
yuuji@54:
yuuji@54: (defvar yahtml-menu-map nil "Menu map of yahtml")
yuuji@54: (defvar yahtml-menu-map-sectioning nil "Menu map of yahtml(sectioning)")
yuuji@54: (defvar yahtml-menu-map-listing nil "Menu map of yahtml(listing)")
yuuji@54: (defvar yahtml-menu-map-logical nil "Menu map of yahtml(logical tags)")
yuuji@54: (defvar yahtml-menu-map-typeface nil "Menu map of yahtml(typeface tags)")
yuuji@54:
yuuji@54: ;;; Variables for mosaic url history
yuuji@54: (defvar yahtml-urls nil "Alist of global history")
yuuji@54: (defvar yahtml-url-history-file "~/.mosaic-global-history"
yuuji@54: "File name of url history")
yuuji@54:
yuuji@54: (cond
yuuji@54: ((and YaTeX-emacs-19 (null yahtml-menu-map))
yuuji@54: (setq yahtml-menu-map (make-sparse-keymap "yahtml menu"))
yuuji@54: (setq yahtml-menu-map-sectioning (make-sparse-keymap "sectioning menu"))
yuuji@54: (yahtml-define-menu
yuuji@54: yahtml-menu-map-sectioning
yuuji@54: (nreverse
yuuji@58: '((1 "H1" . (lambda () (interactive) (yahtml-insert-begend nil "H1")))
yuuji@58: (2 "H2" . (lambda () (interactive) (yahtml-insert-begend nil "H2")))
yuuji@58: (3 "H3" . (lambda () (interactive) (yahtml-insert-begend nil "H3")))
yuuji@58: (4 "H4" . (lambda () (interactive) (yahtml-insert-begend nil "H4")))
yuuji@58: (5 "H5" . (lambda () (interactive) (yahtml-insert-begend nil "H5")))
yuuji@58: (6 "H6" . (lambda () (interactive) (yahtml-insert-begend nil "H6")))
yuuji@54: )))
yuuji@54: (setq yahtml-menu-map-logical (make-sparse-keymap "logical tags"))
yuuji@54: (yahtml-define-menu
yuuji@54: yahtml-menu-map-logical
yuuji@54: (nreverse
yuuji@54: '((em "Embolden" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "EM")))
yuuji@60: (dfn "Define a word" .
yuuji@60: (lambda () (interactive) (yahtml-insert-tag nil "DFN")))
yuuji@54: (cite "Citation" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "CITE")))
yuuji@54: (code "Code" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "CODE")))
yuuji@54: (kbd "Keyboard" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "KBD")))
yuuji@54: (samp "Sample display" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "SAMP")))
yuuji@54: (strong "Strong" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "STRONG")))
yuuji@54: (VAR "Variable notation" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "VAR")))
yuuji@54: )))
yuuji@54: (setq yahtml-menu-map-typeface (make-sparse-keymap "typeface tags"))
yuuji@54: (yahtml-define-menu
yuuji@54: yahtml-menu-map-typeface
yuuji@54: (nreverse
yuuji@54: '((b "Bold" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "B")))
yuuji@54: (i "Italic" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "I")))
yuuji@54: (tt "Typewriter" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "TT")))
yuuji@54: (u "Underlined" .
yuuji@58: (lambda () (interactive) (yahtml-insert-tag nil "U")))
yuuji@54: )))
yuuji@54: (setq yahtml-menu-map-listing (make-sparse-keymap "listing"))
yuuji@54: (yahtml-define-menu
yuuji@54: yahtml-menu-map-listing
yuuji@54: (nreverse
yuuji@58: '((ul "Unordered" .
yuuji@58: (lambda () (interactive) (yahtml-insert-begend nil "UL")))
yuuji@58: (ol "Ordered" .
yuuji@58: (lambda () (interactive) (yahtml-insert-begend nil "OL")))
yuuji@58: (dl "Definition" .
yuuji@58: (lambda () (interactive) (yahtml-insert-begend nil "DL")))
yuuji@54: )))
yuuji@57: (setq yahtml-menu-map-item (make-sparse-keymap "item"))
yuuji@57: (yahtml-define-menu
yuuji@57: yahtml-menu-map-item
yuuji@57: (nreverse
yuuji@57: '((li "Simple item" .
yuuji@57: (lambda () (interactive) (yahtml-insert-single "li")))
yuuji@57: (dt "Define term" .
yuuji@57: (lambda () (interactive) (yahtml-insert-single "dt")))
yuuji@57: (dd "Description of term" .
yuuji@57: (lambda () (interactive) (yahtml-insert-single "dd")))
yuuji@57: )))
yuuji@54: (define-key yahtml-mode-map [menu-bar yahtml]
yuuji@54: (cons "yahtml" yahtml-menu-map))
yuuji@58: (let ((keys (where-is-internal 'fill-paragraph global-map)))
yuuji@58: (while keys
yuuji@58: (define-key yahtml-mode-map (car keys) 'yahtml-fill-paragraph)
yuuji@58: (setq keys (cdr keys))))
yuuji@54: (yahtml-define-menu
yuuji@54: yahtml-menu-map
yuuji@54: (nreverse
yuuji@54: (list
yuuji@54: (cons (list 'sect "Sectioning")
yuuji@54: (cons "sectioning" yahtml-menu-map-sectioning))
yuuji@54: (cons (list 'list "Listing")
yuuji@54: (cons "Listing" yahtml-menu-map-listing))
yuuji@57: (cons (list 'item "Item")
yuuji@57: (cons "Itemizing" yahtml-menu-map-item));;;
yuuji@54: (cons (list 'logi "Logical tags")
yuuji@54: (cons "logical" yahtml-menu-map-logical))
yuuji@54: (cons (list 'type "Typeface tags")
yuuji@54: (cons "typeface" yahtml-menu-map-typeface))
yuuji@54: )))
yuuji@54: ))
yuuji@54:
yuuji@54: (defun yahtml-collect-url-history ()
yuuji@54: "Collect urls from global history file."
yuuji@54: (interactive)
yuuji@54: (save-excursion
yuuji@54: (set-buffer
yuuji@54: (find-file-noselect (expand-file-name yahtml-url-history-file)))
yuuji@54: (goto-char (point-min))
yuuji@54: (setq yahtml-urls)
yuuji@54: (message "Collecting global history...")
yuuji@54: (while (re-search-forward "^[A-Za-z]+:" nil t)
yuuji@54: (setq yahtml-urls
yuuji@54: (cons (list
yuuji@54: (buffer-substring
yuuji@54: (progn (beginning-of-line) (point))
yuuji@54: (progn (skip-chars-forward "^ ") (point))))
yuuji@54: yahtml-urls)))
yuuji@54: (message "Collecting global history...Done")))
yuuji@54:
yuuji@57: ;;; ----------- Completion ----------
yuuji@57: (defvar yahtml-last-begend "html")
yuuji@58: (defun yahtml-insert-begend (&optional region env)
yuuji@57: "Insert ... ."
yuuji@57: (interactive "P")
yuuji@58: (let*((completion-ignore-case t)
yuuji@58: (cmd
yuuji@58: (or env
yuuji@58: (YaTeX-cplread-with-learning
yuuji@57: (format "Environment(default %s): " yahtml-last-begend)
yuuji@58: 'yahtml-env-table 'yahtml-user-env-table 'yahtml-tmp-env-table)))
yuuji@58: (bolp (save-excursion
yuuji@58: (skip-chars-backward " \t" (point-beginning-of-line)) (bolp)))
yuuji@58: (cc (current-column)))
yuuji@57: (if (string< "" cmd) (setq yahtml-last-begend cmd))
yuuji@58: (setq yahtml-last-begend
yuuji@58: (or (cdr (assoc yahtml-last-begend yahtml-env-table))
yuuji@58: yahtml-last-begend))
yuuji@57: (setq cmd yahtml-last-begend)
yuuji@60: (if yahtml-prefer-upcases (setq cmd (upcase cmd)))
yuuji@57: (if region
yuuji@57: (let ((beg (region-beginning))
yuuji@57: (end (region-end))
yuuji@57: (addin (yahtml-addin cmd)))
yuuji@57: (goto-char end)
yuuji@57: (insert (format "%s>%s" cmd (if bolp "\n" "")))
yuuji@57: (goto-char beg)
yuuji@57: (insert (format "<%s%s>%s" cmd addin (if bolp "\n" ""))))
yuuji@58: (insert (format "<%s%s>" cmd (yahtml-addin cmd)))
yuuji@58: (save-excursion
yuuji@60: (insert "\n")
yuuji@60: (indent-to-column cc)
yuuji@60: (insert (format "%s>" cmd)))
yuuji@60: (yahtml-intelligent-newline nil))))
yuuji@57:
yuuji@57: (defun yahtml-insert-begend-region ()
yuuji@57: "Call yahtml-insert-begend in the region mode."
yuuji@57: (interactive)
yuuji@57: (yahtml-insert-begend t))
yuuji@57:
yuuji@57:
yuuji@54: (defun yahtml-insert-form (&optional form)
yuuji@57: "Insert