google each line in dired -- useful for exploring other people's elpa packages

my-google-it.el

(defun my-google-it ()
  (interactive)
  (let ((line (buffer-substring-no-properties (point-at-bol)
                                              (point-at-eol))))
    (setq line (car (last (split-string line))))
    (setq line
          (replace-regexp-in-string "[-.0-9]" " " line))
    (setq line (string-trim line))
    (setq line (concat "emacs " line))
    (setq line (replace-regexp-in-string " " "+" line))
    (shell-command
     (format "open https://www.google.com/#q=%s" line))))