« howm と calendar と diary の連携、その後。 | トップページ | memo »

Amazon.co.jp のアソシエイト・プログラム

Meadow や Emacs Lisp のことでお世話になっているこせきさん(と言っても面識があるわけではないが)の日記のページの「ぶっちゃけアマゾンアソシってもうかるの?」(2004年2月2日)に、アマゾンのアソシエイト・プログラムの運用のためにためになるコードが紹介されていた。

ちょっと、改造してみた。直接、href を作ってしまう。

(defun tkr-link-Amazon ()
  (interactive)
  (let (end isbn)
    (end-of-line)
    (setq end (point))
    (beginning-of-line)
    (setq isbn (buffer-substring-no-properties (point) end))
    (insert "<a href=\"http://www.amazon.co.jp/exec/obidos/ASIN/")
    (end-of-line)
    (insert "/associate-ID/ref=nosim\">")
    (insert (format "<img alt=\"ISBN %s\" border=\"0\" src=\"http://images-jp.amazon.com/images/P/%s.09.MZZZZZZZ.jpg\">" isbn isbn))
    (insert "</a>")))

associate-ID は、自分のものにするのを忘れずに。

ISBN を入力して、実行すれば、リンクが出来上がる。実際は、適当なキーにバインドして、使うのが便利だろう。

|

« howm と calendar と diary の連携、その後。 | トップページ | memo »

emacs 関係」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)


コメントは記事投稿者が公開するまで表示されません。



トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/11083/178568

この記事へのトラックバック一覧です: Amazon.co.jp のアソシエイト・プログラム:

« howm と calendar と diary の連携、その後。 | トップページ | memo »