[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: browse select text, text at point

From: Deniz Dogan
Subject: Re: browse select text, text at point
Date: Wed, 06 Jul 2011 15:43:34 +0200
User-agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv: Gecko/20110616 Thunderbird/3.1.11

On 2011-07-06 14:19, address@hidden wrote:

I am wondering whether anyone in the group knows a package that will
accomplish the following:
- I am on a word, say "limousine", by pressing a keystroke I can browse
   this word in google (or a chosen search engine) with my default browser,
- I have selected a region of text and I want to search that text in my
   default browser.

Any ideas as to how to most effectively accomplish this? Downloading a
packaged would be ideal, but I am willing to try my hand at elisp.


Something like this should google the word at point.

(defun google-word-at-point ()
  (let ((word (thing-at-point 'word)))
    (if word
        (funcall browse-url-browser-function
                 (concat ""; word))
      (error "No word at point!"))))

You can either call this using M-x google-word-at-point RET or bind it to a suitable key:

(global-set-key (kbd "C-c g") 'google-word-at-point)

You could extend the function `google-word-at-point' further to check if `use-region-p' returns non-nil and if so use the region as the "word".

Hope that helps,

reply via email to

[Prev in Thread] Current Thread [Next in Thread]