五十の手習い日記

2012-11-16

初めてのはてな

| 19:51



今夜16日 南の風 晴れ
晴れ 波 0.5メートル


Emacsから「はてな」に投稿するには


http://hatena-diary-el.sourceforge.jp/



http://d.hatena.ne.jp/amt/20060115/HatenaHelperMode

を参考に、

(require 'hatena-diary-mode)
(setq hatena-usrid "chikkun530")
(setq hatena-twitter-flag t)
(require 'hatenahelper-mode) (global-set-key "\C-xH" 'hatenahelper-mode)
(add-hook 'hatena-diary-mode-hook '(lambda () (hatenahelper-mode 1)))


http://d.hatena.ne.jp/yokochie/20070518/1179486027

のPDFを手元に置いておかないと、おじさんは覚えられません・涙。

天気予報を取得するelisp(とってもざっくりだけど)


上の天気は以下の関数で挿入しました。


(require 'w3m)
(defun kyo() (interactive) (setq w3m-async-exec nil) (w3m-browse-url "http://www.jma.go.jp/jp/yoho/319.html") (search-forward-regexp "東京地方" nil t) (next-line 2) (setq st "") (let ((point (line-beginning-position))) (forward-paragraph) (setq st (buffer-substring point (point)))) (kill-buffer (current-buffer)) (setq st (replace-regexp-in-string "[0-9][0-9]-.+$" "" st)) (setq st (replace-regexp-in-string "^[  ]+" "" st)) (insert st) )

(defun asu() (interactive) (setq w3m-async-exec nil) (w3m-browse-url "http://www.jma.go.jp/jp/yoho/319.html") (search-forward-regexp "明日" nil t) (setq st "") (let ((point (line-beginning-position))) (forward-paragraph) (setq st (buffer-substring point (point)))) (kill-buffer (current-buffer)) (setq st (replace-regexp-in-string "[0-9][0-9]-.+$" "" st)) (setq st (replace-regexp-in-string "^[  ]+" "" st)) (insert st) )