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: Thu, 07 Jul 2011 10:24:22 +0200 Message-ID: <4E156D36.3000903@dogan.se> References: <86mxgrlhys.fsf@S0106001636ac5854.gv.shawcable.net> <87zkkrkxg9.fsf@zemblan.newkuwait.org> 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 1310027797 5858 80.91.229.12 (7 Jul 2011 08:36:37 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 7 Jul 2011 08:36:37 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Jul 07 10:36:28 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 1Qek4R-0003mf-Rc for geh-help-gnu-emacs@m.gmane.org; Thu, 07 Jul 2011 10:36:27 +0200 Original-Received: from localhost ([::1]:40859 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Qek4Q-0006pP-LQ for geh-help-gnu-emacs@m.gmane.org; Thu, 07 Jul 2011 04:36:26 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:58926) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QejsJ-0004Hr-CQ for help-gnu-emacs@gnu.org; Thu, 07 Jul 2011 04:23:57 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QejsG-0007R6-Uy for help-gnu-emacs@gnu.org; Thu, 07 Jul 2011 04:23:55 -0400 Original-Received: from mail.sch.se ([81.93.141.11]:38820 helo=SCHSERVER01.sch-got.local) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QejsG-0007Qe-BS for help-gnu-emacs@gnu.org; Thu, 07 Jul 2011 04:23:52 -0400 Original-Received: from [10.0.0.38] ([10.0.0.38]) by SCHSERVER01.sch-got.local with Microsoft SMTPSVC(6.0.3790.4675); Thu, 7 Jul 2011 10:24:22 +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: <87zkkrkxg9.fsf@zemblan.newkuwait.org> X-OriginalArrivalTime: 07 Jul 2011 08:24:22.0254 (UTC) FILETIME=[462980E0:01CC3C7F] 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:81515 Archived-At: On 2011-07-06 21:42, Thamer Mahmoud wrote: > smclean0640@gmail.com writes: >> 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. >> > > The following code should handle both words at point and region. Just do > "M-x google" or "C-c g" + ENTER. > > (defun tma-word-or-region-at-point () > "Return the word or region at point." > (if mark-active > (buffer-substring (region-beginning) (region-end)) > (word-at-point))) > It would make more sense to use `use-region-p' here. > (defun tma-interactive-with-default () > "Allow a user to enter a search word or phrase, but give a sane default." > (list (let* ((default-entry (tma-word-or-region-at-point)) > (input (read-string > (format "Search%s: " > (if (string= default-entry "") > "" > (format " (default %s)" default-entry)))))) > (if (string= input "") > (if (string= default-entry "") > (error "User must provide word or region.") > default-entry) > input)))) > > (defun google (word) > "Use google to search for word or region." > (interactive > (tma-interactive-with-default)) > (browse-url (concat "http://www.google.com/search?q=" word))) > > (global-set-key (kbd "C-c g") 'google) > Deniz