初めてのはてな

今夜16日 南の風　晴れ
晴れ 波　０．５メートル

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 *1
  (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 *2
  (setq st (replace-regexp-in-string "[0-9][0-9]-.+$" "" st))
  (setq st (replace-regexp-in-string "^[　 ]+" "" st))
  (insert st)
  )

*1:point (line-beginning-position))) (forward-paragraph) (setq st (buffer-substring point (point)))) (kill-buffer (current-buffer

*2:point (line-beginning-position))) (forward-paragraph) (setq st (buffer-substring point (point)))) (kill-buffer (current-buffer