blob: 5828b2243589f870a8812f87f5d05b8884b72ed2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(defvar steam-host "api.steampowered.com")
(defun set-steam-key (key)
(setf (steam-key *config*) key))
(defun set-steam-id (id)
(setf (steam-user-id *config*) id))
(defun steam-query-key ()
(format nil "key=~a" (steam-key *config*)))
(defun steam-query-user ()
(format nil "steamid=~a" (steam-user-id *config*)))
(defun steam-games-uri ()
(quri:make-uri-http
:host steam-host
:path "IPlayerService/GetOwnedGames/v0001/"
:query (format nil "~a&~a" (steam-query-key) (steam-query-user))))
(defun steam-games ()
(drakma:http-request (quri:render-uri (steam-games-uri))))
|