browse-ghc-extension.el

(require 'thingatpt)

(defun browse-ghc-extension ()
  (interactive)
  (let* ((extension (downcase (thing-at-point 'symbol)))
         (url (concat "https://limperg.de/ghc-extensions#" extension)))
    (browse-url url)
    (with-current-buffer (url-retrieve-synchronously url)
      (let* ((html (libxml-parse-html-region (point-min) (point-max))))
        (message "%s" html)
        (kill-buffer)))))