Changeset 1848 for lang/elisp

Timestamp:

11/20/07 20:19:28 (6 years ago)

Author:

kentaro

Message:

lang/elisp/simple-hatena-mode:

• Improved document strings... I think.
  
• Fixed an error in simple-hatena-setup-group function. It requires let* syntax instead of let.
  
• Added directories: trunk, tags
  
• Moved simple-hatena-mode into trunk dir.
  

Location:

lang/elisp/simple-hatena-mode

Files:

• . (modified) (1 prop)
• tags (added)
• trunk (added)
• trunk/simple-hatena-mode.el (moved) (moved from lang/elisp/simple-hatena-mode/simple-hatena-mode.el) (8 diffs)

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

@@ -38 +38 @@
 ;;;; * ヴァージョン
 
-(defconst simple-hatena-version "0.14"
+(defconst simple-hatena-version "0.15"
   "simple-hatena-mode.elのヴァージョン。")
 
@@ -295 +295 @@
 
    ;; hatena group
-   (when (y-or-n-p
-          "do the setting of the 'Hatena group' successively? ")
-     (simple-hatena-group-setup))))
+   (if (y-or-n-p
+        "Set up about `Hatena::Group' next? ")
+       (simple-hatena-group-setup)
+     (message "Enjoy!"))))
 
 (defun simple-hatena-setup-check-hatena-bin-exists-p ()
@@ -305 +306 @@
       (if (y-or-n-p
            (format
-            "`Hatena Diary Writer' not found in %s. Are you sure to continue setup?"
+            "`Hatena Diary Writer' not found in %s. Are you sure to continue setup? "
             simple-hatena-bin))
           t
         (progn
           (when (y-or-n-p
-                 "Open the documentation of simple-hatnea-mode in your browser?")
+                 "Open the documentation of simple-hatnea-mode in your browser? ")
             (browse-url "http://coderepos.org/share/wiki/SimpleHatenaMode"))
           (message "You must download and install `Hatena Diary Writer' first")
@@ -329 +330 @@
             (y-or-n-p
              (format
-              "existing id(s) '%s'.\nsetup other id? "
+              "Existing id(s): `%s'\nSet up other id? "
               (mapconcat 'identity
-                         ids "', '"))))
+                         ids "', `"))))
       (add-to-list
        'ids (simple-hatena-read-string-and-match-check
              "Please input your other Hatena id: "
              simple-hatena-id-regex
-             "`%s' is invalid hatena id.")))
+             "`%s' is invalid as a Hatena id.")))
 
     (dolist (id ids)
@@ -355 +356 @@
 
 (defun simple-hatena-setup-group ()
-  (let
+  (let*
       ((groups (list))
        (id (condition-case err
@@ -374 +375 @@
             (y-or-n-p
              (format
-              "existing group(s) '%s'.\nsetup other group? "
+              "Existing group(s): `%s'\nSet up other group? "
               (mapconcat 'identity
-                         groups "', '"))))
+                         groups "', `"))))
       (add-to-list
        'groups (simple-hatena-read-string-and-match-check
                 (format
-                 "Please input create Hatena group for id:%s :" id)
+                 "Please input a group name for id:%s: " id)
                 simple-hatena-group-regex
-             "`%s' is invalid hatena group.")))
+             "`%s' is invalid as a group name.")))
 
     (dolist (group groups)
       (if (string-match simple-hatena-group-regex group)
           (simple-hatena-setup-group-create-directory-and-file id group)
-        (message (format "`%s' is invalid hatena group." group))))))
+        (message (format "`%s' is invalid as a group name." group))))))
 
 (defun simple-hatena-setup-group-create-directory-and-file (id group)
@@ -396 +397 @@
 
 (defun simple-hatena-setup-create-directory-and-file (filename)
-  "setup a directory and a file.
+  "Set up a directory and file.
+
 NOTE: Create intermediate directories as required."
   (let
@@ -408 +410 @@
                                                          &optional errmsg)
   "Read a string from the minibuffer, prompting with string prompt,
-and Cheking input value. If non-nil, third args, you can set error message.
-NOTE: Please refer to `format' for the format of the error message."
+and Cheking input value.
+
+If non-nil, third args, you can set error message.
+
+NOTE: Please refer to `format' for the format of the error
+message."
   (let
       ((input nil)
        (errmsg (or errmsg
-                   "your input is invalid...")))
+                   "Your input is invalid...")))
     (while
         (and