(defvar *google-base-query* "http://www.google.com/search?q=")

(defun google-build-query (ask &optional query-prefix query-suffix)
  "Return a google query string."
  (concatenate 'string *google-base-query*
	       (if query-prefix query-prefix "")
	       (read-string ask)
	       (if query-suffix query-suffix "")))

(defun google-define ()
  "Ask google for the definition of a word"
  (interactive)
  (browse-url (google-build-query "Define: " "define%3A")))

(defun google-search ()
  "Query google"
  (interactive)
  (browse-url (google-build-query "Google: ")))

(defun google-mp3 ()
  "hmm.."
  (interactive)
  (browse-url (google-build-query "Artist: " "intitle%3Aindex.of+%22mp3%22+%2B%22" "%22+-htm+-html+-php+-asp+%22Last%20Modified%22&btnG=Search")))

(defun wtf ()
  "Acronym search."
  (interactive)
  (browse-url 
   (concatenate 'string 
		"http://acronyms.thefreedictionary.com/"
		(read-string "wtf: "))))