From 63c7442dce7caf2e09bdb9936763c5c599e276d2 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov 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."