<![CDATA[;;; -*- emacs-lisp -*-
(load "autoinsert")
(add-hook 'find-file-hooks 'auto-insert)
(if (boundp 'auto-insert-alist)
(setq auto-insert-alist
(append
'(((yahtml-mode . "YaHTML mode")
"Title: "
"<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">\n"
"<HTML>\n<HEAD>\n"
"<TITLE>" str "</TITLE>\n"
"<META http-equiv=\"Content-Type\""
" content=\"text/html; charset=x-sjis\">\n"
"</HEAD>\n"
(let ((v1 (concat auto-insert-directory "body.html")))
(if (file-readable-p v1)
(progn
(insert-file-contents v1)
(end-of-buffer))
(insert "<BODY bgcolor=\"#ffffff\">\n")
nil))
"<H3>" str "</H3>\n" _ "\n"
(let ((v1 (concat auto-insert-directory "link.html")))
(if (file-readable-p v1)
(progn
(insert-file-contents v1)
(end-of-buffer))
nil))
"<HR>\n<ADDRESS>\n"
"<A href=\"http://your.web.site/\">your@mail.address</A><BR>\n"
"Created: "
(let ((time-string (current-time-string)))
(format "%s %s, %s --\n"
(substring time-string 4 7)
(substring time-string 8 10)
(substring time-string 20 24)))
"Last Modified: "
(let ((time-string (current-time-string)))
(format "%s %s, %s\n"
(substring time-string 4 7)
(substring time-string 8 10)
(substring time-string 20 24)))
"</ADDRESS>\n</BODY>\n</HTML>\n"))
auto-insert-alist)))
;; yahtml-new-file.el ends here
]]>