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