Starting a Scheme SDK for Equinix Metal

metalapi/device.scm

@@ -0,0 +1,11 @@
+(define-module (metalapi device)
+  #:use-module (metalapi requests)
+  #:use-module (metalapi project)
+  #:export (build-device
+	    list-all-devices))
+
+(define (build-device device-alist)
+  (extract-attrs device-alist "id" "hostname"))
+
+(define (list-all-devices project)
+  (handle-pagination (format #f "/projects/~a/devices" (project->id project)) "devices" build-device))