Newstiker の記事を Firefox に飛ばしてはてなブックマークに追加する

Emacs

なんとわかりづらいタイトル.
Newstiker で表示しているエントリで, これははてブたい!しようと思ったのがあったとき,
それを Firefox に飛ばしてさらに, 開くタブは, その記事をはてブに追加というもの.
w3m 版も合わせて作ったけど, どうかなあ・・・.

(defun my-newsticker-do-hatena-bookmark ()
  "ポイント下にある Newsticker で表示している記事を
 Firefox に飛ばしてはてブする関数."
  (interactive)
  (let ((url (get-text-property (point) 'nt-link)))
    (when url
      (browse-url-firefox (concat
                           "http://b.hatena.ne.jp/add?mode=confirm&url="
                           url)))))

(defun my-w3m-do-hatena-bookmark ()
  "w3m で現在表示しているサイト(URL)を Firefox に飛ばしてはてブする関数."
  (interactive)
  (let ((url w3m-current-url))
    (when url
      (browse-url-firefox (concat
                           "http://b.hatena.ne.jp/add?mode=confirm&url="
                           url)))))

;; Newsticker のキーマップに追加
(add-hook
 'newsticker-mode-hook
 '(lambda()
    (define-key newsticker-mode-map "B" 'my-newsticker-do-hatena-bookmark)
    (define-key newsticker-mode-map "E" 'w3m-view-url-with-external-browser)))

;; w3m のキーマップに追加
(add-hook
 'w3m-mode-hook
 '(lambda()
    (define-key w3m-mode-map [(super b)] 'my-w3m-do-hatena-bookmark)))

なーんで, emacs-w3m で完結させなかったかというと,
emacs-w3m ではてなにログインし直すのが面倒だからというグータラな理由.
もし, 使用頻度が Firefox < emacs-w3m になるようであらば,
その時は, emacs-w3m で完結するように実装し直すさ.



(追記)
w3m-mode-hook とあるべきところが, w3m-mode-map となっていた.
こっそり修正.

更新時刻

  • 1かいめ 2007年, 6月23日, 4:00
  • 2かいめ 2007年, 6月23日, 20:15