Re: browse select text, text at point

[Deniz Dogan <deniz@dogan.se>]

On 2011-07-07 09:07, Andreas Röhler wrote:
> 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.
>

What?