From e6f26581bf22e266c5056eddfb264eca2efb6ef4 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Thu, 11 Jul 2024 17:11:25 +0200
Subject: Wayland-based desktop support

Add a separate home service to configure a Wayland-based desktop instead of an
X11 one.

Screensharing in Zoom doesn't work unfortunately, but it worked (at least for
a while) through OBS.

Waybar might need some work to bring it in line with the previous polybar
configuration, especially in terms of aesthetics.
---
 tw/gexp.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'tw/gexp.scm')

diff --git a/tw/gexp.scm b/tw/gexp.scm
index 2f1705b7..0770f250 100644
--- a/tw/gexp.scm
+++ b/tw/gexp.scm
@@ -1,4 +1,5 @@
 (define-module (tw gexp)
+  #:use-module (gnu packages guile)
   #:use-module (guix gexp)
   #:use-module (guix modules))
 
@@ -19,3 +20,11 @@
                             (lambda (iport)
                               (dump-port iport oport))))
                         '#$files)))))))
+
+(define-public (json-file name value)
+  (computed-file name
+    (with-extensions (list guile-json-4)
+      #~(begin
+          (use-modules (json) (srfi srfi-26))
+          (call-with-output-file #$output
+            (cut scm->json '#$value <> #:unicode #t))))))
-- 
cgit v1.2.3