Changeset 1540 for lang

Timestamp:

11/15/07 06:53:02 (6 years ago)

Author:

elim

Message:

lang/elisp/simple-hatena-mode: implemented `simple-hatena-setup'.

Files:

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

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

@@ +1 @@
+;;; -*- coding: utf-8; mode: emacs-lisp; indent-tabs-mode: nil -*-
 ;;; simple-hatena-mode.el --- Emacs interface to Hatena::Diary Writer
-;; -*- coding: utf-8; mode:emacs-lisp -*-
 
 ;; Copyright (C) 2007 Kentaro Kuribayashi
@@ -267 +267 @@
 
 (defun simple-hatena-setup ()
-  "ディレクトリ配置をセットアップする。")
+  (interactive)
+  "ディレクトリ配置をセットアップする。"
+
+  (and
+   ;; simple-hatena-bin
+   (simple-hatena-setup-hatena-bin-executable-p)
+
+   ;; hatena id(s)
+   (simple-hatena-setup-id)))
+
+(defun simple-hatena-setup-hatena-bin-executable-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)))
+
+(defun simple-hatena-setup-id ()
+  (let
+      ((ids (list)))
+
+    (when (file-directory-p simple-hatena-root)
+      (dolist (id (simple-hatena-internal-list-directories simple-hatena-root))
+        (add-to-list 'ids id)))
+
+    (when simple-hatena-default-id
+      (add-to-list 'ids simple-hatena-default-id))
+
+    (when (eq (length ids) 0)
+      (add-to-list 'ids (read-string "Please input your default Hatena id: ")))
+
+    (while (y-or-n-p
+            (format
+             "id `%s' found.\nsetup other id(s)? "
+             (mapconcat 'identity
+                        ids "', `")))
+      (add-to-list 'ids (read-string "Please input your other Hatena id: ")))
+
+    (dolist (id ids)
+      (simple-hatena-setup-id-create-directory-and-file id))))
+
+(defun simple-hatena-setup-id-create-directory-and-file (id)
+  (simple-hatena-setup-create-directory-and-file
+   (expand-file-name
+    (format "%s/%s/diary/config.txt"
+            simple-hatena-root id))))
+
+(defun simple-hatena-setup-create-directory-and-file (filename)
+  "setup adirectory and a file.
+NOTE: Create intermediate directories as required."
+  (let
+      ((dirname (file-name-directory filename)))
+    (unless (file-exists-p filename)
+      (unless (file-directory-p dirname)
+        (make-directory dirname 'parents))
+      (append-to-file 1 1 filename))))
 
 (defun simple-hatena (id)