Changeset 1813

Timestamp:

11/19/07 22:37:02 (14 months ago)

Author:

iwaim

Message:

lang/elisp/simple-hatena-mode: implemented simple-hatena-group-setup

Files:

• lang/elisp/simple-hatena-mode/simple-hatena-mode.el (modified) (1 diff)

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

@@ -321 +321 @@
     (format "%s/%s/diary/config.txt"
             simple-hatena-root id))))
+
+(defun simple-hatena-group-setup ()
+  (interactive)
+  "ディレクトリにはてなグループを追加する。"
+  ;; hatena group(s)
+  (simple-hatena-setup-group))
+
+(defun simple-hatena-setup-group ()
+  (let
+      ((groups (list))
+       (id simple-hatena-local-current-buffer-id))
+    (add-to-list
+     'groups (read-string
+              (format "Pleas input create Hatena group for id:%s :" id)))
+
+    (while (y-or-n-p
+            (format
+             "group '%s' found.\nsetup other group(s)? "
+             (mapconcat 'identity
+                        groups "', `")))
+      (add-to-list
+       'groups (read-string
+                (format
+                 "Pleas input create Hatena group for id:%s :" id))))
+
+    (dolist (group groups)
+      (simple-hatena-setup-group-create-directory-and-file id group))))
+
+(defun simple-hatena-setup-group-create-directory-and-file (id group)
+  (simple-hatena-setup-create-directory-and-file
+   (expand-file-name
+    (format "%s/%s/group/%s/config.txt"
+            simple-hatena-root id group))))
 
 (defun simple-hatena-setup-create-directory-and-file (filename)