lhtrpgをCommon Lispでいじる
(mapc #'ql:quickload | |
(list :drakma :jonathan)) | |
(setq drakma:*drakma-default-external-format* :utf-8) | |
(pushnew '("application" . "json") drakma:*text-content-types* :test #'equal) | |
(defun dl-lhz (label) | |
(jonathan:parse (drakma:http-request (format nil "http://lhrpg.com/lhz/api/~a.json" label)) :as :hash-table)) | |
(defparameter *skills* (dl-lhz "skills")) | |
(defparameter *items* (dl-lhz "items")) | |
(defparameter *prefixed-effects* (dl-lhz "prefixed_effects")) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment