Re: browse select text, text at point

["Andreas Röhler" <andreas.roehler@easy-emacs.de>]

Am 06.07.2011 21:59, schrieb Deniz Dogan:
> On 2011-07-06 19:35, Andreas Röhler wrote:
>> Am 06.07.2011 15:43, schrieb Deniz Dogan:
>>> On 2011-07-06 14:19, smclean0640@gmail.com wrote:
>>>> Hello,
>>>>
>>>> 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.
>>>>
>>>> Stuart
>>>>
>>>>
>>>
>>> Something like this should google the word at point.
>>>
>>>
>>> (defun google-word-at-point ()
>>> (interactive)
>>> (let ((word (thing-at-point 'word)))
>>> (if word
>>> (funcall browse-url-browser-function
>>> (concat "http://google.com/" 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,
>>> Deniz
>>>
>>>
>>
>> Interesting, but get an 404 error.
>>
>
> That's because the URL is wrong of course. :) I couldn't bother finding
> the right querystring to use. This seems to work though:
>
> (concat "http://www.google.com/search?q="
> (url-hexify-string "Hello there"))
>
>
> Deniz
>
>

thanks, BTW let's mention the code of "whois" in this context.


Andreas