Plaster

(defmacro use-browser-for-function (browse-url-name function-name) `(defadvice ,function-name (around ,browse-url-name activate) (let ((browse-url-browser-function ',browse-url-name)) ad-do-it))) ;; Commented because eww is too annyoing for that. ;; ;; (use-browser-for-function eww-browse-url common-lisp-hyperspec) ;; (use-browser-for-function eww-browse-url common-lisp-hyperspec-lookup-reader-macro) ;; (use-browser-for-function eww-browse-url common-lisp-hyperspec-format)