changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/lib/packy/client.lisp

changeset 698: 96958d3eb5b0
parent: ea4f008ad13f
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes
240
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
1 
 ;;; packy/client.lisp --- Packy Client
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
2 
 
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
3 
 ;; Client-side API for Packy.
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
4 
 
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
5 
 ;;; Commentary:
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
6 
 
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
7 
 ;; The client is responsible for fetching packages from a registry,
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
8 
 ;; organizing packages, and making them available at build-time.
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
9 
 
a3b65a8138ac html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
10 
 ;;; Code:
214
0d46ef787334 db updates
Richard Westhaver <ellis@rwest.io>
parents: 162
diff changeset
11 
 (in-package :packy/client)
439
ea4f008ad13f packy work, added json-trailing-whitespace-p variable for json readers
Richard Westhaver <ellis@rwest.io>
parents: 240
diff changeset
12 
 
ea4f008ad13f packy work, added json-trailing-whitespace-p variable for json readers
Richard Westhaver <ellis@rwest.io>
parents: 240
diff changeset
13 
 (defun pk-index (&optional (name "packs"))
ea4f008ad13f packy work, added json-trailing-whitespace-p variable for json readers
Richard Westhaver <ellis@rwest.io>
parents: 240
diff changeset
14 
   (let ((url (obj/uri:merge-uris (concatenate 'string name ".json") *packy-url*)))
ea4f008ad13f packy work, added json-trailing-whitespace-p variable for json readers
Richard Westhaver <ellis@rwest.io>
parents: 240
diff changeset
15 
     (with-input-from-string (s (req:get url))
ea4f008ad13f packy work, added json-trailing-whitespace-p variable for json readers
Richard Westhaver <ellis@rwest.io>
parents: 240
diff changeset
16 
       (dat/json::json-read s nil))))