scratch-screen-share/notes.org at 1e06e2e476368ad4e6176af48c3a9ab3f0dabe5e

  (defmacro with-dbus-method-inovaction ((result-var method &rest args) &body body)
  (alexandria:with-gensyms (bus notifications-object)
    `(dbus:with-open-bus (,bus (dbus:session-server-addresses))
       (dbus:with-introspected-object (,notifications-object ,bus "/org/freedesktop/Notifications" "org.freedesktop.Notifications")
         (let ((,result-var (,notifications-object "org.freedesktop.Notifications" ,method ,@args)))
          ,@body)))))

example in cl-notify of working with signals

https://github.com/Lautaro-Garcia/cl-notify/blob/main/src/signals.lisp

they register single handler, and add callbacks dynamically & call them from the registered function

it's the one that's used to create multiplexer for communication i tried to figure out what it means to have event-loops

docs on dbus Screenshots portal

https://flatpak.github.io/xdg-desktop-portal/docs/doc-org.freedesktop.portal.Screenshot.html

the methods and stuff

docs on dbus type system

https://dbus.freedesktop.org/doc/dbus-specification.html#type-system

i.e how to understand types of methods and properties

  CL-USER> (dbus:sigexp "xsaysas")
(:INT64 :STRING (:ARRAY :BYTE) :STRING (:ARRAY :STRING))

function signature explanation can show what should lisp types be https://github.com/death/dbus/issues/17#issuecomment-418920440

example of flameshot how they get Screenshot via dbus

https://github.com/flameshot-org/flameshot/blob/c1dac52231024174faa68a29577129ebca125dff/src/utils/screengrabber.cpp#L59

dbus methods for Notification

https://specifications.freedesktop.org/notification-spec/notification-spec-latest.html#signals

dbus methods of ScreenCast

https://flatpak.github.io/xdg-desktop-portal/docs/doc-org.freedesktop.portal.ScreenCast.html how to start them etc

dbus spec on Request & Response for the async methods

https://flatpak.github.io/xdg-desktop-portal/docs/doc-org.freedesktop.portal.Request.html#org-freedesktop-portal-request

repo for xdg-portal for wayland

https://github.com/emersion/xdg-desktop-portal-wlr

the python snippet to check that ScreenCast via xdg-portal works

https://gitlab.gnome.org/-/snippets/19

[2024-07-20 Sat]

and now i want to try to get display of stuff into gtk window, i guess

doc about cl bindings to gtk3

https://www.crategus.com/books/cl-gtk/gtk-tutorial.html#example-window-simple-c

well, i guess i could go and try to read guide on pipewire with C examples

https://docs.pipewire.org/page_tutorial.html this is tutorial for the system

and here is example program that maybe does similar thing https://docs.pipewire.org/video-play_8c-example.html

[2024-07-28 Sun]

ok, now i'm trying to get frames from the pipewire 'out' node

and one option i'm exploring is gstreamer

which is a framework for creating applications that stream video / audio with some kind of ability to define \ declare pipeline and then start and then use api somehow

there's c api, and gobject accessibility layer so either c to common lisp, or gobject common lisp thingy maybe exist

reading docs

https://gstreamer.freedesktop.org/documentation/frequently-asked-questions/using.html?gi-language=c

added via gst_all_1.gstreamer

i guess i can try to go with the tutorials?

https://gstreamer.freedesktop.org/documentation/tutorials/index.html?gi-language=c

but with common lisp over gobject? i think i'm already using this in the gtk bindings playground? maybe not https://cl-gtk2.common-lisp.dev/doc/gobject/Creating-GObjects-classes-and-implementing-GInterfaces.html

GObject binding at the moment provides only limited scenarios of creating GObject classes.

and there's something

https://github.com/BohongHuang/cl-gobject-introspection-wrapper

which is based on older

https://github.com/andy128k/cl-gobject-introspection

https://search.nixos.org/packages?channel=unstable&from=0&size=50&sort=relevance&type=packages&query=gobject

they are packaged in nix, this is just unbelievable how much is done by humanity, omg

[2024-08-15 Thu]

getting back after a long while.

so, i was at the creating a window, not knowing how to stream video from pipewire out node so. what to do, huh i think gtk3 bindings library was separate from gobject and glib

but maybe it doesn't matter? or maybe i should figure out glib bindings and use gtk3 though it?

well, there's something simple with opening a window

gtk-playground.lisp::defun example-window-simple (

and something extra simple with gstreamer opening separate window for test video source

/efim/scratch-screen-share/src/commit/1e06e2e476368ad4e6176af48c3a9ab3f0dabe5e/gstreamer/tutorial-hello-world.lisp

maybe try to open gstreamer window with screen share?

ok, when i try example of pipewire window on screenshare source i get error that pipewiresrc is not found and that's right, i used system-wide gst-launch-1.0 and when i tried with one in flake shell - it also didn't work

so. tried removing all from shell env, then not found namespace Gst (defvar gstreamer (gir:require-namespace "Gst"))

so. yeah. maybe i need to install dev headers or something?

7.5 KiB Raw Blame History

[2024-06-28 Fri]

well, i'm setting up sbcl and sly?

well, just flake shell and (use-package sly) is enough

[2024-06-29 Sat]

going through the dbus guide, sounds neat

now let's read about calling methods

the receiving of the signals

all the different tabs i had

overall freedesktop portal dbus api docs

searching github for 'get-managed-objects usage

searchin github for 'define-singlan-handler usage examples

example in cl-notify of calling a method 'with-introspected-object