(load (sb-ext:posix-getenv "ASDF")) (asdf:load-system 'dbus) (defpackage #:screencasting (:use #:cl)) (in-package #:screencasting) ;; https://flatpak.github.io/xdg-desktop-portal/docs/doc-org.freedesktop.portal.ScreenCast.html (defconstant +screen-cast-interface+ "org.freedesktop.portal.ScreenCast") (defconstant +request-interface+ "org.freedesktop.portal.Request")