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

12
prelude-core.el
View file

@ -50,7 +50,7 @@ Emacs load path."
(prelude-add-subfolders-to-load-path vendor-dir) (prelude-add-subfolders-to-load-path vendor-dir)
(defun prelude-open-with () (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." file of a buffer in an external program."
(interactive) (interactive)
(when buffer-file-name (when buffer-file-name
@ -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."