sjs/config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[CHANGED] removed cruft from emacs config.

Browse source
This commit is contained in:
Sami Samhuri 2009-12-03 23:50:36 -08:00
parent 1df8d20553
commit c5772f07dc
1 changed files with 0 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
emacs
View file

@ -268,12 +268,6 @@
(global-set-key "<" 'tagify-region-or-insert-self) (global-set-key "<" 'tagify-region-or-insert-self)
(global-set-key "\C-zt" 'tagify-region-or-insert-tag) (global-set-key "\C-zt" 'tagify-region-or-insert-tag)
;; mojo keyboard shortcuts
(global-set-key [f2] 'mojo-generate-scene)
(global-set-key [f3] 'mojo-emulate)
(global-set-key [f4] 'mojo-package)
(global-set-key [f5] 'mojo-package-install-and-inspect)
;; XXX:todo need a version of this that inserts a line terminator as well ;; XXX:todo need a version of this that inserts a line terminator as well
;; Use C-j! ;; Use C-j!
;;(global-set-key [M-return] 'move-end-of-line-insert-newline) ;;(global-set-key [M-return] 'move-end-of-line-insert-newline)
@ -324,28 +318,6 @@
fname)))) fname))))
;; quickly search the web
(defun web-search (name url-template)
"Prompt for a query in the minibuffer, launch the web browser and query the url given."
(let ((search (read-from-minibuffer (concat "Search " name ": "))))
(browse-url (concat url-template search))))
(defun web-search-google ()
(interactive)
(web-search "Google" "http://www.google.com/search?q="))
(defun web-search-wikipedia ()
(interactive)
(web-search "Wikipedia" "http://en.wikipedia.org/wiki/Special:Search?search="))
(defun web-search-iso-hunt ()
(interactive)
(web-search "ISO Hunt" "http://www.isohunt.com/torrents/?ihq="))
(defun web-search-pirate-bay ()
(interactive)
(web-search "The Pirate Bay" "http://thepiratebay.org/search/"))
(cond ((file-readable-p "~/.emacs.d/color-theme") (cond ((file-readable-p "~/.emacs.d/color-theme")
(add-to-list 'load-path "~/.emacs.d/color-theme") (add-to-list 'load-path "~/.emacs.d/color-theme")
(require 'color-theme) (require 'color-theme)