;;;; SPDX-FileCopyrightText: 2023 Vasilij Schneidermann <mail@vasilij.de>
;;;;
;;;; SPDX-License-Identifier: MIT

(module conn-setup ()

(import scheme)
(import (chicken base))
(import (chicken condition))
(import (chicken pretty-print))
(import (chicken process-context))
(import (prefix xcb xcb:))

(import (chicken time))
(define x-conn (time (xcb:connect (get-environment-variable "DISPLAY"))))
(import (chicken memory representation))
(pp (record->vector (xcb:connection-setup x-conn)))
(print (xcb:generate-id x-conn))
(print (xcb:generate-id x-conn))
(print (xcb:generate-id x-conn))
(xcb:disconnect x-conn)


)