gnu: services: Add gpu-screen-recorder-service-type.

* gnu/services/desktop.scm: Import (gnu packages video).
(gpu-screen-recorder-configuration): Export.
(gpu-screen-recorder-configuration?): Export.
(gpu-screen-recorder-service-type): Export.
(<gpu-screen-recorder-configuration>): New record type.
(gpu-screen-recorder-privileged-programs): New procedure.
(gpu-screen-recorder-service-type): New variable.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
Merges: guix/guix#10400

1 files changed, 44 insertions, 0 deletions

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 5b6c10b0e72..d731354f8ed 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -83,6 +83,7 @@
   #:use-module (gnu packages enlightenment)
   #:use-module (gnu packages haskell-apps)
   #:use-module (gnu packages rust-apps)
+  #:use-module (gnu packages video)
   #:use-module (guix deprecation)
   #:use-module (guix i18n)
   #:use-module (guix records)
@@ -138,6 +139,10 @@
             kanata-configuration-kanata
             kanata-configuration-keymaps
 
+            gpu-screen-recorder-configuration
+            gpu-screen-recorder-configuration?
+            gpu-screen-recorder-service-type
+
             geoclue-application
             geoclue-configuration
             geoclue-configuration?
@@ -1197,6 +1202,45 @@ the functionalities of different keyboards.")))
 
 
 ;;;
+;;; GPU Screen Recorder.
+;;;
+
+(define-record-type* <gpu-screen-recorder-configuration>
+  gpu-screen-recorder-configuration
+  make-gpu-screen-recorder-configuration
+  gpu-screen-recorder-configuration?
+  (package
+    gpu-screen-recorder-configuration-package
+    (default gpu-screen-recorder)))
+
+(define (gpu-screen-recorder-privileged-programs config)
+  (list
+   (privileged-program
+     (program
+      (file-append
+       (gpu-screen-recorder-configuration-package config)
+       "/bin/gsr-kms-server"))
+     (capabilities "cap_sys_admin=ep"))))
+
+(define gpu-screen-recorder-service-type
+  (service-type
+    (name 'gpu-screen-recorder)
+    (extensions
+     (list
+      (service-extension
+       profile-service-type
+       (compose list gpu-screen-recorder-configuration-package))
+      (service-extension
+       privileged-program-service-type
+       gpu-screen-recorder-privileged-programs)))
+    (default-value (gpu-screen-recorder-configuration))
+    (description
+     "Install GPU Screen Recorder and grant its @command{gsr-kms-server}
+helper the @code{CAP_SYS_ADMIN} capability required for direct KMS
+capture.")))
+
+
+;;;
 ;;; UDisks.
 ;;;