日付変更時間の設定
Index: simple-hatena-mode.el =================================================================== --- simple-hatena-mode.el (revision 454) +++ simple-hatena-mode.el (working copy) @@ -91,6 +91,12 @@ "はてなダイアリーライターのログインに、cookieを利用するかどうか を指定するフラグ。実行時に、-cオプションとして使われる。") +(defcustom simple-hatena-time-offset nil + "日付を計算する際に用いるオフセット。 +6 に設定すると午前6時まで前日の日付として扱われる" + :type 'integer + :group 'simple-hatena) + ;; キーバインド (setq simple-hatena-mode-map (make-keymap)) @@ -375,7 +381,9 @@ (encode-time s min h (+ d i) mon y))) (if date (append '(0 0 0) date) - (decode-time)))) + (apply (lambda (s min h d mon y &rest rest) + (list s min (- h (or simple-hatena-time-offset 0)) d mon y)) + (decode-time))))) (defun simple-hatena-internal-go-for (i) "引数の数だけ前後の日付のファイ名バッファへ移動する。"
できた。こんなのでいいかな。