猫熊は燃えつきた？！日記

○ Meadow 掲示板の更新チェック

そういえば、Meadow 掲示板の antenna チェッカって、公開したことがなかったかも。標準のチェック方法だとうまく動かない。
こんな関数を ~/.emacs または ~/.emacs-w3m にでも書いておいて、

(defun w3m-antenna-check-tcupbbs (site handler)
  (lexical-let ((site site)
		(url (w3m-antenna-site-key site)))
    (w3m-process-do-with-temp-buffer
	(type (w3m-retrieve url nil 'nocache nil nil handler))
      (let (time)
	(when type
	  (w3m-decode-buffer url)
	  (goto-char (point-min))
	  (when (re-search-forward
		 (concat "投稿日： *\\([0-9]+\\)月 *\\([0-9]+\\)日(.)"
			 " *\\([0-9]+\\)時 *\\([0-9]+\\)分 *\\([0-9]+\\)秒") nil t)
	    (let ((mon (string-to-number (match-string 1)))
		  (day (string-to-number (match-string 2)))
		  (hour (string-to-number (match-string 3)))
		  (min (string-to-number (match-string 4)))
		  (sec (string-to-number (match-string 5)))
		  (year (string-to-number (format-time-string "%Y" (current-time)))))
	      (setq time (encode-time sec min hour day mon year 32400)))))
	(if time
	    (w3m-antenna-site-update site (w3m-antenna-site-key site) time nil)
	  (w3m-antenna-check-page site handler))))))

antenna の画面で "E" w3m-edit-current-url() を動かして、custom で以下の様に追加する。

INS DEL URL: http://6629.teacup.com/yutopia/bbs
       Title: Meadow掲示板
       Procedure: Value Menu Check with a user defined function: <= これとか
       Function: w3m-antenna-check-tcupbbs <= これね
       Arguments:
       INS

しかし、年をまたぐときはうまく動かないでしょう。新年になって、だれかが投稿すれば大丈夫なような気がする ^^;;;

○ いかん

年末調整の締切、明日だ。全然書いていないぞ。

○ というわけで、

年末調整の書類を書くために、いつもより早く帰ってきた。よくよく「書き方」を読むと、なんだか去年までより提出しなくちゃならない証明書とか増えているんですけど。。。