Vivien Kraus wrote 1 years ago
(address . guix-patches@gnu.org)
0846c80615d07096b4b52f5799d9e3dc54d33b3c.1700594819.git.vivien@planete-kraus.eu
* gnu/packages/gnome.scm (gnome-remote-desktop): New variable.
Change-Id: I93d542ef04a703a0c9614968eb71ce85a83d62f4
---
gnu/packages/gnome.scm | 95 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 95 insertions(+)
Toggle diff (117 lines)
diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index ab485cffb1..89148c1ec1 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -146,6 +146,7 @@ (define-module (gnu packages gnome)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
+ #:use-module (gnu packages hardware)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages ibus)
#:use-module (gnu packages icu4c)
@@ -13489,6 +13490,100 @@ (define-public xffm+
(license license:gpl3+)
(properties '((upstream-name . "xffm")))))
+(define-public gnome-remote-desktop
+ (package
+ (name "gnome-remote-desktop")
+ (version "44.2")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://gnome/sources/" name "/"
+ (version-major version) "/"
+ name "-" version ".tar.xz"))
+ (sha256
+ (base32
+ "13kvr1f2vk0qfqr9alpz7wb542b5d5i9ypk74rnn7jsz3csgv7vs"))))
+ (build-system meson-build-system)
+ (arguments
+ (list #:configure-flags
+ #~'("-Dsystemd=false"
+ ;; RDP support requires CUDA (ffnvcodec)
+ "-Drdp=false"
+ ;; This is for the RDP back-end
+ "-Dfdk_aac=false"
+ ;; Enable VNC support
+ "-Dvnc=true")
+ #:glib-or-gtk? #t
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'shorten-vnc-test
+ (lambda _
+ ;; The VNC test sets up the connection, parses a message
+ ;; from the server, and then waits forever. This
+ ;; modification lets it succeed once it has parsed a
+ ;; message from the server.
+ (substitute* "tests/test-client-vnc.c"
+ (("while \\(TRUE\\)")
+ "int ret = 0; while (ret == 0)")
+ (("int ret;") ""))))
+ (delete 'check)
+ (add-after 'install 'check
+ (assoc-ref %standard-phases
+ 'check))
+ (add-before 'check 'pre-check
+ (lambda* (#:key tests? #:allow-other-keys)
+ (when tests?
+ (setenv "HOME" "/tmp")
+ (setenv "XDG_RUNTIME_DIR" (string-append (getcwd) "/runtime-dir"))
+ (mkdir (getenv "XDG_RUNTIME_DIR"))
+ (chmod (getenv "XDG_RUNTIME_DIR") #o700)
+ (setenv "GSETTINGS_SCHEMA_DIR"
+ (string-append #$output "/share/glib-2.0/schemas"))
+ ;; Unless enabled by the user, the VNC server will not
+ ;; start.
+ (invoke "gsettings"
+ "set"
+ "org.gnome.desktop.remote-desktop.vnc"
+ "enable" "true")
+ ;; Pipewire is required.
+ (setenv "PIPEWIRE_DEBUG" "2")
+ (setenv "PIPEWIRE_LOG" "meson-logs/pipewire.log")
+ (invoke "pipewire" "--version")
+ (system "pipewire &")))))))
+ (inputs
+ (list cairo
+ glib
+ libdrm
+ libepoxy
+ libgudev
+ libnotify
+ libsecret
+ ;; Cyclic modular dependency
+ (module-ref
+ (resolve-interface
+ '(gnu packages vnc))
+ 'libvnc)
+ pipewire
+ tpm2-tss))
+ (native-inputs
+ (list asciidoc
+ dbus
+ docbook-xsl
+ docbook-xml-4.3
+ gettext-minimal
+ `(,glib "bin")
+ itstool
+ libxml2
+ libxslt
+ mutter
+ pkg-config
+ python
+ python-dbus
+ python-pygobject))
+ (home-page "https://gitlab.gnome.org/GNOME/gnome-remote-desktop")
+ (synopsis "Share GNOME desktop with remote sessions")
+ (description "This package provides a remote desktop server for GNOME.")
+ (license license:gpl2+)))
+
(define-public libcall-ui
(package
(name "libcall-ui")
base-commit: 1cc3b7e80f60a2a5a6a1400ed0b025efeae7a523
--
2.41.0