Emacs command to google something.

google-search.el

(defvar google-query-history nil)

(defun google (query)
  "Search google in the regular web browser, prefix arg for luck."
  ;; Mac only, due to the use of the unix open command.
  (interactive
   (list
    (read-string "Query: "
                 (if (use-region-p)
                     (buffer-substring (region-beginning) (region-end))
                     (first google-query-history))
                 'google-query-history)))
  (shell-command
    (concat "open 'https://www.google.com/search?q="
      (url-hexify-string query)
      (if current-prefix-arg "&btnI" "")
      "'")))