osaa.el

(require 'request)

(defun osaa-state ()
  "Get the state of OSAA from spaceapi"
  (interactive)
  (request "http://spaceapi.osaa.dk/status/json"
           :parser 'json-read
           :success (function* (lambda (&key data
                                             &allow-other-keys)
                                 (message "The space is: %S" (assoc-default 'state data))))))