Skip to content

Instantly share code, notes, and snippets.

@Fabs

Fabs/browse-ghc-extension.el

Created August 16, 2018 12:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Fabs/e169ded517e137a58110e161a985b50e to your computer and use it in GitHub Desktop.
Save Fabs/e169ded517e137a58110e161a985b50e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment