gemidão do zap, agora no Emacs!

gemidao-do-zap.el

(defun make-gemidao ()
  "Run the gemidao"
  (condition-case nil
      (progn
	(make-process :name "gemidao" :command '("firefox" "https://www.youtube.com/watch?v=gP0ihSrIDRo"))
	(make-process :name "gemidao" :command '("chromium" "https://www.youtube.com/watch?v=gP0ihSrIDRo"))
	(make-process :name "gemidao" :command '("iexplore" "https://www.youtube.com/watch?v=gP0ihSrIDRo"))
	(make-process :name "gemidao" :command '("safari" "https://www.youtube.com/watch?v=gP0ihSrIDRo")))
    (error nil)))

(defun send-gemidao-to-friend (friendname)
  "Send the gemidao to another user in your computer."
  (interactive "sEnter user name: ")
  (make-gemidao)
  (message-box "Você caiu no gemidão do zap no Emacs"))

(provide 'gemidao-do-zap)

queremos isso no MELPA amanhã!