top  Index  Search  Changes  RSS  Login

howm wiki - IsbnJump Diff

  • Added parts are displayed like this.
  • Deleted parts are displayed like this.

[[2ch2:351-352n]]

;; ISBN:4-906391-70-2 とか ISBN:4906391702 とかの文字列をリンクに
;; (文字列上で RET → 外部ブラウザで該当ページを表示)

;; howm のロードより後に…
(setq my-action-lock-isbn-url "http://d.hatena.ne.jp/asin/%s") ;; 例: はてな
(setq my-action-lock-isbn-regexp "ISBN:\\([-0-9]+[xX]?\\)")
(setq my-action-lock-isbn-regexp-pos 1)
(defun my-browse-isbn (isbn)
   (setq isbn (replace-regexp-in-string "-" "" isbn))
   (browse-url (format my-action-lock-isbn-url isbn)))
(defun my-action-lock-isbn (regexp arg-pos &optional hilit-pos)
   (action-lock-general #'my-browse-isbn regexp arg-pos hilit-pos))
(add-to-list 'action-lock-default-rules
              (my-action-lock-isbn my-action-lock-isbn-regexp
                                   my-action-lock-isbn-regexp-pos))

----

作っといてなんだけど, これよりも, M-x mybib RET 4906391702 RET で
  やさしいEmacs-Lisp講座, 広瀬 雄二, カットシステム, 1999. (ISBN:4906391702)
  http://d.hatena.ne.jp/asin/4906391702
とかを挿入してくれる方がうれしいかも?
検索にもひっかかるし, ジャンプは http:// からできるし.
howm と関係なく誰か作ってないかな.

----

*2004-08-14 (土) 07:51:30 ''[[名無しさん]]'' : 名無しさんの指摘「番号に最後 X つくときもあるやん」を修正. thx.
*2004-09-27 (月) 02:25:56 ''[[名無しさん]]'' : tDiary用のamazon.rb とか使えばいけそうじゃないですか?
{{comment}}
----