hatena-mode.el

id:hikigaeru:20040617#p1 さんところのhatena-mode.elにパッチをあてて
動かしてみるてすと。

ということで、勉強がてらパッチを書いてみました。
初心者が勝手に書いたパッチですが、
当方ではなんとなく動いている気配です。

バージョン番号はどうあげるかわからなかったので
+1とか、コメント足したりとかしてます。
マージ時は適当に処理の方よろしくお願いします。_o_

  * rkm patch.
diff -rN old-hatena-mode/hatena-mode.el new-hatena-mode/hatena-mode.el
10,11c10,11
< 
< (defconst hatena-version "0.9.3" "Version number of hatena.el")
---
> ;; add patch.+1 for hiddentag by moAnnetenna
> (defconst hatena-version "0.9.3+1" "Version number of hatena.el")
185a186,201
>   (if (not userid) 
>       (setq userid hatena-usrid))
> 
>   (save-excursion
> 	  (call-process hatena-curl-command nil nil nil 
>                  "-o" hatena-tmpfile
>                  "-b" hatena-cookie
> 		  (concat "http://d.hatena.ne.jp/" userid "/edit")
>                   )
>         (find-file hatena-tmpfile)
>         (prog1 
>             (string-match "name=\"rkm\" value=\"\\(.*\\)\">"
>                           (buffer-string))
> 	    (setq hatena-rkmkey (match-string 1 (buffer-string)))
> 	)
>   )
224,225d239
<   (if (not userid) 
<       (setq userid hatena-usrid))
266a281,282
> 		      "&dummy=1"
> 		      "&rkm=" hatena-rkmkey