23 lines
587 B
Common Lisp
23 lines
587 B
Common Lisp
(defpackage :lispostory
|
|
(:use cl))
|
|
|
|
(in-package :lispostory)
|
|
|
|
(defun http-get-json (url)
|
|
(multiple-value-bind (body status) (drakma:http-request url)
|
|
(if (/= status 200)
|
|
nil
|
|
(let ((body-str (flexi-streams:octets-to-string body)))
|
|
(shasht:read-json body-str)))))
|
|
|
|
(defun alist (&rest pairs)
|
|
(loop for (key value) on pairs by #'cddr
|
|
collect (cons key value)))
|
|
|
|
(defun map-vector (func vec)
|
|
(map 'vector func vec))
|
|
|
|
(defun string-to-hash-table-key (s)
|
|
(let ((k2 (string-upcase (serapeum:string-replace " " s ""))))
|
|
(intern k2 :keyword)))
|