From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Deniz Dogan Newsgroups: gmane.emacs.help Subject: Re: browse select text, text at point Date: Wed, 06 Jul 2011 15:43:34 +0200 Message-ID: <4E146686.2010103@dogan.se> References: <86mxgrlhys.fsf@S0106001636ac5854.gv.shawcable.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: dough.gmane.org 1309961412 19465 80.91.229.12 (6 Jul 2011 14:10:12 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 6 Jul 2011 14:10:12 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Jul 06 16:10:07 2011 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QeSnn-0004Dg-Oo for geh-help-gnu-emacs@m.gmane.org; Wed, 06 Jul 2011 16:10:07 +0200 Original-Received: from localhost ([::1]:47727 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeSnm-0005Se-Ba for geh-help-gnu-emacs@m.gmane.org; Wed, 06 Jul 2011 10:10:06 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:48899) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeSNg-0007WT-Bj for help-gnu-emacs@gnu.org; Wed, 06 Jul 2011 09:43:09 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QeSNd-0002dv-GZ for help-gnu-emacs@gnu.org; Wed, 06 Jul 2011 09:43:08 -0400 Original-Received: from mail.sch.se ([81.93.141.11]:27850 helo=SCHSERVER01.sch-got.local) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QeSNd-0002dK-18 for help-gnu-emacs@gnu.org; Wed, 06 Jul 2011 09:43:05 -0400 Original-Received: from [10.0.0.38] ([10.0.0.38]) by SCHSERVER01.sch-got.local with Microsoft SMTPSVC(6.0.3790.4675); Wed, 6 Jul 2011 15:43:35 +0200 User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.18) Gecko/20110616 Thunderbird/3.1.11 In-Reply-To: <86mxgrlhys.fsf@S0106001636ac5854.gv.shawcable.net> X-OriginalArrivalTime: 06 Jul 2011 13:43:35.0613 (UTC) FILETIME=[B40A66D0:01CC3BE2] X-detected-operating-system: by eggs.gnu.org: Windows 2000 SP4, XP SP1+ X-Received-From: 81.93.141.11 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:81506 Archived-At: 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