random-inspiration.el

(defun random-dark-inspiration ()
  "Downloads a random (dark) Inspiration theme and evaluates it."
  (interactive)
  (let* ((num (number-to-string (+ 500000 (random 399999)))))
    (inspiration num)))

(defun inspiration (num)
  "Fetches and evaluates the specified color theme from Inspiration."
  (interactive)
  (let* ((buffer (url-retrieve-synchronously
                 (concat "http://inspiration.sweyla.com/code/emacs/inspiration"
                         num
                         ".el"))))
    (save-excursion
      (set-buffer buffer)
      (goto-char (point-min))
      (re-search-forward "^$" nil 'move)
      (eval-region (point) (point-max))
      (kill-buffer (current-buffer))
      (funcall (intern-soft (concat "inspiration-" num))))))

;Example
(inspiration "912804")