AmazonのURLを貼り付ける作業が面倒

　毎回Amazonからコード取得してテキストリンクを貼り付ける作業が面倒だったので、xyzzyで適当に置換するように出来るかなぁと試してみた。とりあえず、テキストリンクをAmazonの検索でしたページに貼り付けるように。商品のカテゴリーとかを全商品にしてしまわないと指定する記入量が多くなるので、なんか楽にするつもりが色々微妙かなぁとかで。まあ全商品でいいことにした。

■具体的にすること
　$で挟んだ単語をamazonの検索ワードにしてリンクを造るだけ。つまり単に置換してるだけなんだけど。

こんなのを

$hoge$

こうする

<a href='http://www.amazon.co.jp/gp/search?ie=UTF8&keywords=hoge&tag=hdn-22&index=blended&linkCode=ur2&camp=247&creative=1211'>hoge</a><img src='http://www.assoc-amazon.jp/e/ir?t=hdn-22&amp;l=ur2&amp;o=9' width='1' height='1' border='0' alt='hoge' style='border:none !important; margin:0px !important;' />

■適当なスクリプト

(defun AmazonT(from to)
  (interactive "*r")
  (if (> from to)
	  (rotatef from to))
  (save-excursion
	(save-restriction
	  (narrow-to-region from to)
	  (goto-char from)
	  (while (scan-buffer "\\$\\(.*\\)\\$" :regexp t :tail nil)
		(replace-match "<a href='http://www.amazon.co.jp/gp/search?ie=UTF8&keywords=\\1&tag=hdn-22&index=blended&linkCode=ur2&camp=247&creative=1211'>\\1</a><img src='http://www.assoc-amazon.jp/e/ir?t=hdn-22&amp;l=ur2&amp;o=9' width='1' height='1' border='0' alt='\\1' style='border:none !important; margin:0px !important;' />"))
	  )))

つかうならアソシエイトのタグが違うので、適当に自分のに置き換えたらいいと思う。久しぶりに書いたら書き方を色々忘れてる件。