jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added prelude-google defun

Browse source
This commit is contained in:
Bozhidar Batsov 2011-10-10 17:29:52 +03:00
parent 7c430da6b4
commit 63c7442dce
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
prelude-core.el
View file

@ -68,6 +68,16 @@ file of a buffer in an external program."
(ansi-term "/bin/zsh") (ansi-term "/bin/zsh")
(switch-to-buffer "*ansi-term*"))) (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) (defun prelude-indent-rigidly-and-copy-to-clipboard (begin end indent)
"Copy the selected code region to the clipboard, indented according "Copy the selected code region to the clipboard, indented according
to Markdown blockquote rules." to Markdown blockquote rules."