From 13fc6e318ba7a3191b845f46ca0c391911da5e37 Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@protonmail.com>
Date: Sat, 24 Aug 2024 18:37:00 +0200
Subject: [PATCH] feat: add xdg desktop gtk, wlr

---
 home/home-configuration.scm              | 26 +++++++++++++++++++-----
 home/modules/ruther/home/dwl/scripts.scm |  1 +
 2 files changed, 22 insertions(+), 5 deletions(-)

diff --git a/home/home-configuration.scm b/home/home-configuration.scm
index 6428fcf..111d45c 100644
--- a/home/home-configuration.scm
+++ b/home/home-configuration.scm
@@ -11,6 +11,7 @@
              (gnu packages gnupg)
              (gnu packages emacs)
              (gnu packages shellutils)
+             (gnu packages freedesktop)
              (gnu services)
              (gnu home services fontutils)
              (gnu home services desktop)
@@ -23,6 +24,7 @@
              (ruther home dwl scripts)
              (ruther home themes)
              (ruther home services gtk)
+             (ruther home services xdg-desktop-portals)
              (ruther home services wayland)
              (ruther home services kanshi))
 
@@ -35,6 +37,7 @@
     dwl-mine)
    (specifications->packages
     (list
+     "slurp"
      ;; HW interactions
      "pavucontrol"
 
@@ -258,6 +261,23 @@
                                   (position '(1920 . 0))
                                   (enable #t)))))))))))
 
+         (service home-xdg-desktop-portal-service-type
+                  (xdg-desktop-portal-configuration
+                   (implementations
+                    (list
+                     xdg-desktop-portal-gtk
+                     xdg-desktop-portal-wlr))
+                   (configs
+                    (list
+                     (xdg-desktop-portals-conf
+                      (name "wlroots")
+                      (config
+                       '((preferred ((default . gtk)
+                                     (org.freedesktop.impl.portal.ScreenCast . wlr)
+                                     (org.freedesktop.impl.portal.Screenshot . wlr)
+                                     ;; https://github.com/labwc/labwc/discussions/1503
+                                     (org.freedesktop.impl.portal.Inhibit . none))))))))))
+
          (service home-gpg-agent-service-type
                   (home-gpg-agent-configuration
                    (pinentry-program
@@ -265,8 +285,4 @@
          (service home-pipewire-service-type)
          (service home-dbus-service-type))))
 
-;; dwl package the scripts for starting, make them in Guile
-
-;; xdg desktop portal, wlr
-
-;; redshift equivalent
+;; swayidle
diff --git a/home/modules/ruther/home/dwl/scripts.scm b/home/modules/ruther/home/dwl/scripts.scm
index b3d1953..3adf80d 100644
--- a/home/modules/ruther/home/dwl/scripts.scm
+++ b/home/modules/ruther/home/dwl/scripts.scm
@@ -190,6 +190,7 @@
 
       (spawn (string-append #$dbus "/bin/dbus-update-activation-environment")
              '("dbus-update-activation-environment"
+               "XDG_DESKTOP_PORTAL_DIR"
                "WAYLAND_DISPLAY"
                "XDG_CURRENT_DESKTOP"
                "DISPLAY"))
-- 
2.48.1