Changeset 1670

Timestamp:

11/16/07 21:44:49 (6 years ago)

Author:

kentaro

Message:

lang/elisp/simple-hatena-mode: fixed simple-hatena-setup in case that hw.pl not exists. Anyway, elim++

Files:

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

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

@@ -38 +38 @@
 ;;;; * ヴァージョン
 
-(defconst simple-hatena-version "0.13"
+(defconst simple-hatena-version "0.14"
   "simple-hatena-mode.elのヴァージョン。")
 
@@ -269 +269 @@
   (interactive)
   "ディレクトリ配置をセットアップする。"
-
   (and
    ;; simple-hatena-bin
-   (simple-hatena-setup-hatena-bin-executable-p)
+   (simple-hatena-setup-check-hatena-bin-exists-p)
 
    ;; hatena id(s)
    (simple-hatena-setup-id)))
 
-(defun simple-hatena-setup-hatena-bin-executable-p ()
+(defun simple-hatena-setup-check-hatena-bin-exists-p ()
   (if (file-executable-p simple-hatena-bin)
       t
     (progn
-      (when (y-or-n-p
-             (format
-              (concat
-               "Please download and/or setup `はてなダイアリーライター'.\n"
-               "  open a webpage? ")
-              simple-hatena-bin))
-        (browse-url "http://coderepos.org/share/wiki/SimpleHatenaMode"))
-      (message "Without forgetting the rerun of the simple-hatena-setup.")
-      (read-char) ;; wait user input.
-      nil)))
+      (if (y-or-n-p
+           (format
+            "`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?")
+            (browse-url "http://coderepos.org/share/wiki/SimpleHatenaMode"))
+          (message "You must download and install `Hatena Diary Writer' first")
+          nil)))))
 
 (defun simple-hatena-setup-id ()
@@ -323 +323 @@
 
 (defun simple-hatena-setup-create-directory-and-file (filename)
-  "setup adirectory and a file.
+  "setup a directory and a file.
 NOTE: Create intermediate directories as required."
   (let