2007/03/03

先月だかその前だかにBloggerをβから正規版に乗り換えたところ、コメントのお知らせメールの転送が止ってしまって、いただいた希少なコメントに気付くのが遅くなってしまった。すみません。そのうえ、これまでつかっていたatom-blogger.elが使えなくなっちゃったので、更新するのがやたらに面倒。結局2月は1件しか書かなかったのか。

反省して、まずは新しいBloggerのEmacsクライアント(g-clientというらしい)を導入する。

An Emacs Client For Blogger
http://buzz.blogger.com/2007/03/emacs-client-for-blogger.html

上記ページの手順で英語の記事はうまくいくんだけど、日本語の記事はうまくアップできないようだ(つまり、このエントリはg-clientではアップしていない)。

あと備忘録。そのままでは毎回atomのURLを入力しなければならず使いにくいので、将来インストールしなおすときはmakeの前にgblogger.elを編集するのを忘れないこと。
(defun gblogger-new-entry (url)
"Create a new Blog post."
(interactive
(list
(let ((url (read-from-minibuffer "Post URL:")))
(cond ((string= url "")
"http://k16ex\.blogspot\.com/feeds/posts/default")
((string= url "note")
"http://k16journal\.blogspot\.com/feeds/posts/default")))))
(declare (special gblogger-auth-handle gblogger-new-entry-template
gblogger-generator-name gblogger-publish-action))
(g-auth-ensure-token gblogger-auth-handle)
(let* ((title (read-string "Title: "))
(buffer (get-buffer-create (if (string= title "") "temp" title))))
(save-excursion
(set-buffer buffer)
(erase-buffer)
(gblogger-mode)
(setq gblogger-this-url url)
(goto-char (point-max))
(insert
(format gblogger-new-entry-template
gblogger-generator-name gblogger-generator-name
gblogger-author title)))
(switch-to-buffer buffer)
(setq gblogger-publish-action 'gblogger-post-entry)
(search-backward "<div" nil t)
(forward-line 1)
(message
(substitute-command-keys "Use \\[gblogger-publish] to publish your edits ."))))

No comments :