グループに登録・はてダラの設定

http://www.hyuki.com/techinfo/hatena_diary_writer.html#faq_groupdiary

せっかくグループに加入したので、はてダラ側の設定もやる。 けどほぼ同じ内容の設定ファイルを蒔き散らかすのはDRYに反してて好きではない。 config.txt一括生成スクリプトmake-group-config.rbを書いた。

俺の設定では ~/memo/hatena にはてな日記を置いているので、make-group-config.rbもそこに置く。

require 'fileutils'

TEMPLATE = <<'XXX'
id:USERNAME
password:PASSWORD
cookie:~/memo/hatena/cookie.txt
filter:nkf -w %s
g:__GROUP__
XXX

for group in ARGV
  config = "#{group}/config.txt"
  puts "Writing #{config}"
  FileUtils.mkdir_p group
  open(config, "w") do |f|
    f.print TEMPLATE.sub(/__GROUP__/, group)
  end
end

ruby make-group-config.rb ruby rubyist

のようにグループ名を引数にして実行〜

Emacs側にはこれを加えておいた。

(defvar hatena-groups '("dprogramming" "lisp" "ruby" "rubyist"))

(defun hatena-group (group)
  "Open today's hatena group diary file."
  (interactive
   (list (completing-read "Group: " (mapcar 'list hatena-groups) nil t)))
  (find-file
   (concatenate 'string hatena-dir "/" group "/"
                (format-time-string "%Y-%m-%d.txt" (current-time)))))