From: Jonathan Groll <lists@groll.co.za>
To: Thamer Mahmoud <thamer.mahmoud@gmail.com>,
help-gnu-emacs <help-gnu-emacs@gnu.org>
Subject: Re: browse select text, text at point
Date: Thu, 07 Jul 2011 11:24:32 +0200 [thread overview]
Message-ID: <87k4bua1f3.wl%lists@groll.co.za> (raw)
In-Reply-To: <87zkkrkxg9.fsf@zemblan.newkuwait.org>
On Wed, 06 Jul 2011 22:42:30 +0300, Thamer Mahmoud <thamer.mahmoud@gmail.com> 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)))
>
> (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)
>
Almost there - think it'll need some string escaping, as a search on
"google+ emacs client" dropped the "+".
Cheers,
Jonathan
--
jjg: Jonathan J. Groll : groll co za
has_one { :blog => "http://bloggroll.com" }
Sent from my computer device which runs on free software
prev parent reply other threads:[~2011-07-07 9:24 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-07-06 12:19 browse select text, text at point smclean0640
2011-07-06 13:43 ` Deniz Dogan
2011-07-06 17:35 ` Andreas Röhler
2011-07-06 19:59 ` Deniz Dogan
2011-07-07 7:07 ` Andreas Röhler
2011-07-07 7:28 ` Deniz Dogan
2011-07-06 15:26 ` Drew Adams
2011-07-08 12:05 ` Stuart McLean
2011-07-06 19:42 ` Thamer Mahmoud
2011-07-07 8:24 ` Deniz Dogan
2011-07-07 9:24 ` Jonathan Groll [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87k4bua1f3.wl%lists@groll.co.za \
--to=lists@groll.co.za \
--cc=help-gnu-emacs@gnu.org \
--cc=thamer.mahmoud@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.