(defcommand firefox () ()
            "Run or raise Firefox."
            (run-or-raise "firefox" '(:class "Firefox") t nil))