;;; pypi.el --- Handle work with Python pypi site.

;;; Commentary:

;;

(require 'url-handlers)

(require 'thingatpt)

;;; Code:

(defvar pypi.buffer-name "*Pip*")

(defvar pypi.pkg-history nil)

(defvar pypi.url "https://pypi.python.org/pypi/%s/json")

(defun pypi.pkg-callback (status)

  (let ( (buffer (current-buffer)) content-type status )

    (setq content-type (mail-fetch-field "Content-Type"))

    (setq status url-http-response-status)

    (switch-to-buffer pypi.buffer-name)

    (erase-buffer)

    (url-insert buffer)

    (fundamental-mode)

    (when (and (eq status 200) (string-match "application/json" content-type))

      (js-mode))))

;;;###autoload

(defun pypi.pkg (pkg)

  (interactive (list

                (read-string "Python package: "

                             (if (region-active-p) (buffer-substring (mark) (point)) (thing-at-point 'symbol))

                             'pypi.pkg-history)))

  (url-retrieve (format pypi.url pkg) #'pypi.pkg-callback))

(provide 'pypi)

;;; pypi.el ends here