Changeset 460 for lang/elisp

Timestamp:

10/11/07 22:15:40 (6 years ago)

Author:

kentaro

Message:

• lang/elisp/simple-hatena-mode: id:odz氏によるコードをマージし、simple-hatena-electric-asteriskを追加した(http://d.hatena.ne.jp/odz/20071011/1192082406)。
  
• lang/elisp/simple-hatena-mode: id:odz氏によるコードをマージし、simple-hatenaおよびsimple-hatena-groupにて、日付が変るタイミングを指定できるようにした(http://d.hatena.ne.jp/odz/20071011/1192082406)。
  
• lang/elisp/simple-hatena-mode: その他、変数・コマンドのドキュメント文字列を若干調整した。
  

Files:

• lang/elisp/simple-hatena-mode/simple-hatena-mode.el (modified) (6 diffs)

lang/elisp/simple-hatena-mode/simple-hatena-mode.el

@@ -38 +38 @@
 ;;;; * ヴァージョン
 
-(defconst simple-hatena-version "0.04"
+(defconst simple-hatena-version "0.05"
   "simple-hatena-mode.elのヴァージョン。")
 
@@ -69 +69 @@
 このidを変更するには、simple-hatena-change-default-idを実行する。")
 
+(defcustom simple-hatena-use-timestamp-permalink-flag t
+  "はてなダイアリーライターのパーマリンクに、タイムスタンプを使う
+かどうかを指定するフラグ。")
+
+(defcustom simple-hatena-time-offset nil
+  "日付を計算する際に用いるオフセット。
+6 に設定すると午前6時まで前日の日付として扱われる"
+  :type 'integer
+  :group 'simple-hatena)
+
 ;; はてダラにわたすオプション
 (defcustom simple-hatena-option-useragent (simple-hatena-version)
   "はてなダイアリーライターのユーザエージェントオプションを指定す
-る。実行時に、-aオプションとして使われる。")
+る。
+
+実行時に、-aオプションとして使われる。")
 
 (defcustom simple-hatena-option-debug-flag nil
-  "はてなダイアリーライターを、デバッグモードで実行するか否かを示
-すフラグ。
+  "はてなダイアリーライターを、デバッグモードで実行するか否かを指
+定するフラグ。
 
 はてなダイアリーライター実行時に、-dオプションとしてわたされ、また、
@@ -85 +97 @@
 
 (defcustom simple-hatena-option-timeout "30"
-  "はてなダイアリーライターのタイムアウトを指定する。実行時に、-T
-オプションとして使われる。")
+  "はてなダイアリーライターのタイムアウトを指定する。
+
+実行時に、-Tオプションとして使われる。")
 
 (defcustom simple-hatena-option-cookie-flag t
   "はてなダイアリーライターのログインに、cookieを利用するかどうか
-を指定するフラグ。実行時に、-cオプションとして使われる。")
+を指定するフラグ。
+
+実行時に、-cオプションとして使われる。")
 
 ;; キーバインド
@@ -105 +120 @@
 (define-key simple-hatena-mode-map (kbd "C-c C-d") 'simple-hatena-toggle-debug-mode)
 (define-key simple-hatena-mode-map (kbd "C-c C-e") 'simple-hatena-exit)
+
+;; simple-hatena-use-timestamp-permalink-flagがtなら、*に
+;; simple-hatena-electric-asteriskを割り当てる。
+(when simple-hatena-use-timestamp-permalink-flag
+  (define-key simple-hatena-mode-map "*" 'simple-hatena-electric-asterisk))
 
 ;; フック
@@ -355 +375 @@
   (message "simple-hatena-mode has been exited"))
 
+(defun simple-hatena-electric-asterisk (arg)
+  "＊(アスタリスク)押下により、タイムスタンプ付き小見出しを挿入する。
+
+ポイントが行頭にある場合のみ、タイムスタンプを挿入し、その他の場合
+は、通常通りアスタリスクを挿入する。"
+  (interactive "*p")
+  (if (zerop (current-column))
+      (simple-hatena-timestamp)
+    (self-insert-command arg)))
+
 ;;;; * 内部関数
 
@@ -376 +406 @@
          (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)