11 lines
371 B
Common Lisp
11 lines
371 B
Common Lisp
(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")
|
|
|