37. テンプレートと更新時刻の入力 (2007/12/19)

(setq time-stamp-start "Time-stamp:[ \t]*<")
(setq time-stamp-end ">")

(setq time-stamp-format "%:y 年/%02m 月/%02d 日 %02H 時%02M 分%02S 秒")

(if (not (memq 'time-stamp write-file-hooks))
    (setq write-file-hooks
          (cons 'time-stamp write-file-hooks)))

 (add-hook 'yahtml-mode-hook
           '(lambda ()
              (setq time-stamp-start "Time-stamp:[ \t]+<")
              (setq time-stamp-end ">")
              (setq time-stamp-format "%:y 年/%02m 月/%02d 日")
              ))

(setq time-stamp-format
   '(time-stamp-yyyy/mm/dd time-stamp-hh:mm:ss))

(defun time-stamp-yyyy/mm/dd ()
  "Return the current date as a string in \"YYYY/MM/DD\" form."
  (format-time-string "%Y/%m/%d"))

(defun time-stamp-japanese-a ()
  "Return a day of the week"
  (let ((aw (string-to-number (format-time-string "%w" (current-time)))))
    (cond
     ((= aw 0)
      "日曜日")
     ((= aw 1)
      "月曜日")
     ((= aw 2)
      "火曜日")
     ((= aw 3)
      "水曜日")
     ((= aw 4)
      "木曜日")
     ((= aw 5)
      "金曜日")
     ((= aw 6)
      "土曜日"))))


(setq time-stamp-format
      '(time-stamp-yyyy/mm/dd time-stamp-hh:mm:ss
                              time-stamp-japanese-a))

(defvar my-save-buffer-hook nil)
(defun save-buffer-wrapper ()
  (interactive)
  (let ((tostr (concat "$Lastupdate: " (format-time-string "%Y/%m/%d %k:%M:%S") " $")))
    (save-excursion
        (goto-char (point-min))
        (while (re-search-forward
                "\\$Lastupdate\\([0-9/: ]*\\)?\\$" nil t)
          (replace-match tostr nil t)))
    (run-hooks 'my-save-buffer-hook)
    (save-buffer)))

(global-set-key "\C-x\C-s" 'save-buffer-wrapper)

(defun my-insert-time ()
  (interactive)
  (insert (concat
           "Time:" (format-time-string "%H:%M:%S"))))

;;; -*- Emacs-Lisp  ; Coding: iso-2022-jp -*-
;; Masatake YAMATO ;; Insert current time string;;
;; C-x T でこんな風に: Thu Apr 25 09:58:35 1996
;; C-u C-x T で日本語で: 1996 年 4 月 25 日 09 時 58 分 52 秒 (木曜日)
;; な風に現在時刻が入ります。
;;
;; 日本語に変換する時に current-time-string を分解しているので,
;; そこを変えればお好みのスタイルに加工できると思います。
(define-key ctl-x-map "T" 'insert-time)
(defun insert-time (arg)
  "Insert current time.
With prefix argumet ARG, insert current time string in Japanese."
  (interactive "P")
  (if arg
      (insert (current-time-japanese-string))
    (insert (current-time-string))))
(defun current-time-japanese-string ()
  "Return the current time, as a human-readable JAPANESE string."
  (let ((base (current-time-string))
        (time-j-table
         '(("Jan" . "1") ("Feb" . "2") ("Mar" . "3")
           ("Apr" . "4") ("May" . "5") ("Jun" . "6")
           ("Jul" . "7") ("Aug" . "8") ("Sep" . "9")
           ("Oct" . "10") ("Nov" . "11") ("Dec" . "12")
           ("Mon" . "月") ("Tue" . "火") ("Wed" . "水")
           ("Thu" . "木") ("Fri" . "金") ("Sat" . "土")
           ("Sun" . "日")))
        jadotw jmonth jday jhour jmin jsec jyear
        last)
    (string-match
       (mapconcat
        (lambda (f) f)
        '(
          "\\([a-zA-Z]+\\)\\W+"
          "\\([a-zA-Z]+\\)\\W+"
          "\\([0-9]+\\)\\W+"
          "\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)"
          "\\W+\\([0-9]+\\)"
          ) "")
     base)
    (setq jadotw (substring base (match-beginning 1) (match-end 1)))
    (setq jmonth (substring base (match-beginning 2) (match-end 2)))
    (setq jday (substring base (match-beginning 3) (match-end 3)))
    (setq jhour (substring base (match-beginning 4) (match-end 4)))
    (setq jmin (substring base (match-beginning 5) (match-end 5)))
    (setq jsec (substring base (match-beginning 6) (match-end 6)))
    (setq jyear (substring base (match-beginning 7) (match-end 7)))
    (setq last (concat jyear "年 "))
    (setq last (concat last (cdr (assoc jmonth time-j-table)) "月 "))
    (setq last (concat last jday "日 "))
    (setq last (concat last jhour "時 "))
    (setq last (concat last jmin "分 "))
    (setq last (concat last jsec "秒 "))
    (setq last (concat last "(" (cdr (assoc jadotw time-j-table)) "曜日)"))
    last))

(autoload 'instamp
  "instamp" "Insert TimeStamp on the point" t)
(define-key global-map "\C-cs" 'instamp)

;; テンプレートの保存先
(setq auto-insert-directory "~/insert/")
(auto-insert-mode 1)
;; テンプレート挿入時に尋ねない
;; デフォルトは 'function
(setq auto-insert-query nil)

(setq auto-insert-alist
      (append
       '(
         ;; モード名で指定
         (yahtml-mode . "test.html")
         ;; ファイル名で指定
         ("\\.html$" . "test.html")
         )
       auto-insert-alist))

(setq auto-insert-alist
  (append
   '(
     (yahtml-mode
      "\n"
      "\n"
      "\n"
      "