Changeset 462 for lang/elisp/simple-hatena-mode/simple-hatena-mode.el

Timestamp:

10/12/07 12:56:51 (6 years ago)

Author:

xcezx

Message:

/lang/elisp/simple-hatena-mode/simple-hatena-mode.el: デフォルトグループを指定できるようにしてみたり。まずかったら誰か直してください。'

Files:

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

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

@@ -68 +68 @@
 
 このidを変更するには、simple-hatena-change-default-idを実行する。")
+
+(defcustom simple-hatena-default-group nil
+  "デフォルトグループ名を指定する。"
+  :type 'string
+  :group 'simple-hatena)
 
 (defcustom simple-hatena-use-timestamp-permalink-flag t
@@ -288 +293 @@
        (list
         simple-hatena-default-id
-        (simple-hatena-internal-completing-read-group simple-hatena-default-id))
+        (if simple-hatena-default-group
+            simple-hatena-default-group
+          (simple-hatena-internal-completing-read-group simple-hatena-default-id)))
      (let ((id (simple-hatena-internal-completing-read-id simple-hatena-root)))
        (list
         id
-        (simple-hatena-internal-completing-read-group id)))))
+        (if simple-hatena-default-group
+            simple-hatena-default-group
+          (simple-hatena-internal-completing-read-group id))))))
   (simple-hatena-internal-safe-find-file (concat
               simple-hatena-root