Changeset 7620 for lang/elisp

Timestamp:

03/07/08 16:15:35 (9 months ago)

Author:

xcezx

Message:

• lang/elisp/simple-hatena-mode/trunk/simple-hatena-mode.el: #77 customze group の追加
  

Files:

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

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

@@ -38 +38 @@
 ;;;; * ヴァージョン
 
-(defconst simple-hatena-version "0.15"
+(defconst simple-hatena-version "0.16"
   "simple-hatena-mode.elのヴァージョン。")
 
@@ -52 +52 @@
 ;;;; * ユーザによるカスタマイズが可能な設定
 
+(defgroup simple-hatena nil
+  "はてなダイアリーライターをEmacsから使うためのメジャーモード")
+
 ;; カスタマイズ変数
-(defvar simple-hatena-bin "hw.pl"
-  "*はてなダイアリーライターのパスを指定する。")
-
-(defvar simple-hatena-root "~/.hatena"
+(defcustom simple-hatena-bin "hw.pl"
+  "*はてなダイアリーライターのパスを指定する。"
+  :type '(file :must-match t)
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-root "~/.hatena"
   "*はてなダイアリーライターのデータを置くディレクトリのルートを指
-定する。")
-
-(defvar simple-hatena-default-id nil
+定する。"
+  :type 'directory
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-default-id nil
   "*はてダラで使うデフォルトのはてなidを指定する。
 
@@ -67 +74 @@
 する必要がない。
 
-このidを変更するには、simple-hatena-change-default-idを実行する。")
-
-(defvar simple-hatena-default-group nil
-  "*デフォルトグループ名を指定する。")
-
-(defvar simple-hatena-use-timestamp-permalink-flag t
+このidを変更するには、simple-hatena-change-default-idを実行する。"
+  :type '(restricted-sexp :match-alternatives
+                          (stringp 'nil))
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-default-group nil
+  "*デフォルトグループ名を指定する。"
+  :type '(restricted-sexp :match-alternatives
+                          (stringp 'nil))
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-use-timestamp-permalink-flag t
   "*はてなダイアリーライターのパーマリンクに、タイムスタンプを使う
-かどうかを指定するフラグ。")
-
-(defvar simple-hatena-time-offset nil
+かどうかを指定するフラグ。"
+  :type 'boolean
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-time-offset nil
   "*日付を計算する際に用いるオフセット。
-6 に設定すると午前6時まで前日の日付として扱われる")
+6 に設定すると午前6時まで前日の日付として扱われる"
+  :type '(restricted-sexp :match-alternatives
+                          (integerp 'nil))
+  :group 'simple-hatena)
 
 ;; はてダラにわたすオプション
-(defvar simple-hatena-option-useragent (simple-hatena-version)
+(defcustom simple-hatena-option-useragent (simple-hatena-version)
   "*はてなダイアリーライターのユーザエージェントオプションを指定す
 る。
 
-実行時に、-aオプションとして使われる。")
-
-(defvar simple-hatena-option-debug-flag nil
+実行時に、-aオプションとして使われる。"
+  :type 'string
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-option-debug-flag nil
   "*はてなダイアリーライターを、デバッグモードで実行するか否かを指
 定するフラグ。
@@ -95 +115 @@
 
 デバッグモードをオン/オフするには、
-simple-hatena-toggle-debug-modeを実行する。")
-
-(defvar simple-hatena-option-timeout 30
+simple-hatena-toggle-debug-modeを実行する。"
+  :type 'boolean
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-option-timeout 30
   "*はてなダイアリーライターのタイムアウトを指定する。
 
-実行時に、-Tオプションとして使われる。")
-
-(defvar simple-hatena-option-cookie-flag t
+実行時に、-Tオプションとして使われる。"
+  :type 'integer
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-option-cookie-flag t
   "*はてなダイアリーライターのログインに、cookieを利用するかどうか
 を指定するフラグ。
 
-実行時に、-cオプションとして使われる。")
-
-(defvar simple-hatena-process-buffer-name "*SimpleHatena*"
-  "*はてダラを実行するプロセスのバッファ名。")
+実行時に、-cオプションとして使われる。"
+  :type 'boolean
+  :group 'simple-hatena)
+
+(defcustom simple-hatena-process-buffer-name "*SimpleHatena*"
+  "*はてダラを実行するプロセスのバッファ名。"
+  :type 'string
+  :group 'simple-hatena)
 
 ;; キーバインド
@@ -128 +156 @@
 
 ;; フック
-(defvar simple-hatena-mode-hook nil
-  "simple-hatena-mode開始時のフック。")
-(defvar simple-hatena-before-submit-hook nil
-  "日記を投稿する直前のフック")
-(defvar simple-hatena-after-submit-hook nil
-  "日記を投稿した直後のフック")
+(defcustom simple-hatena-mode-hook nil
+  "simple-hatena-mode開始時のフック。"
+  :type 'hook
+  :group 'simple-hatena)
+(defcustom simple-hatena-before-submit-hook nil
+  "日記を投稿する直前のフック"
+  :type 'hook
+  :group 'simple-hatena)
+(defcustom simple-hatena-after-submit-hook nil
+  "日記を投稿した直後のフック"
+  :type 'hook
+  :group 'simple-hatena)
 
 ;; フォントロック