From 63c7442dce7caf2e09bdb9936763c5c599e276d2 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@empowerunited.com>
Date: Mon, 10 Oct 2011 17:29:52 +0300
Subject: [PATCH] added prelude-google defun
---
prelude-core.el | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/prelude-core.el b/prelude-core.el
index 4525db4..9e24e25 100644
--- a/prelude-core.el
+++ b/prelude-core.el
@@ -50,7 +50,7 @@ Emacs load path."
(prelude-add-subfolders-to-load-path vendor-dir)
(defun prelude-open-with ()
- "Simple function that allows us to open the underlying
+ "Simple function that allows us to open the underlying
file of a buffer in an external program."
(interactive)
(when buffer-file-name
@@ -68,6 +68,16 @@ file of a buffer in an external program."
(ansi-term "/bin/zsh")
(switch-to-buffer "*ansi-term*")))
+(defun prelude-google ()
+ "Googles a query or region if any."
+ (interactive)
+ (browse-url
+ (concat
+ "http://www.google.com/search?ie=utf-8&oe=utf-8&q="
+ (if mark-active
+ (buffer-substring (region-beginning) (region-end))
+ (read-string "Google: ")))))
+
(defun prelude-indent-rigidly-and-copy-to-clipboard (begin end indent)
"Copy the selected code region to the clipboard, indented according
to Markdown blockquote rules."