Emacsからググる

Emacs から単語や選択テキストをGoogle検索 – my-misc.blog
Emacs ですぐに単語の検索をしたい欲望を叶える Elisp。 – 日々、とんは語る。
Emacs 使用中に素早く検索する – Qiita [キータ]

探したらいろいろ出てきた。
search-web.el が便利そうだけどなんかもうちょっとシンプルでいいかな、ということで↓のようになりました。
リージョンもしくはカーソル付近の単語を検索。
もちろんgoogle以外も作れます。

(defun string-word-or-region ()
(let ((editable (not buffer-read-only))
(pt (save-excursion (mouse-set-point last-nonmenu-event)))
beg end)
(if (and mark-active
(< = (region-beginning) pt) (<= pt (region-end)) )
(setq beg (region-beginning)
end (region-end))
(save-excursion
(goto-char pt)
(backward-char 1)
(setq end (progn (forward-word) (point)))
(setq beg (progn (backward-word) (point)))))
(buffer-substring-no-properties beg end)))

(defun google()
(interactive)
(let* ((str (string-word-or-region)))
(browse-url
(concat "http://google.com/search?q=\"" str "\""))))
(global-set-key "\C-cs" 'google)

 

Emacsからググる」への1件のフィードバック

  1. yemek

    What’s up to every one, since I am truly eager of reading
    this webpage’s post to be updated regularly. It contains
    good information.

コメントを残す

メールアドレスが公開されることはありません。