[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: browse select text, text at point

From: Deniz Dogan
Subject: Re: browse select text, text at point
Date: Thu, 07 Jul 2011 10:24:22 +0200
User-agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv: Gecko/20110616 Thunderbird/3.1.11

On 2011-07-06 21:42, Thamer Mahmoud wrote:
address@hidden 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))

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.")

(defun google (word)
   "Use google to search for word or region."
   (browse-url (concat ""; word)))

(global-set-key (kbd "C-c g") 'google)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]