guix_mirror_bot pushed a commit to branch gnome-team
in repository guix.
commit 541f9a623d0dfd10232be4a2f30a12653ffdd50f
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Wed Aug 26 23:00:01 2026 +0900
gnu: gnome-remote-desktop: Update to 50.2 and enable RDP support.
* gnu/packages/gnome.scm (gnome-remote-desktop): Update to 50.2.
[#:configure-flags]: Remove -Drdp=false.
[inputs]: Add freerdp, fuse, glslang, libfdk, libva, mit-krb5, opus, polkit,
and vulkan-loader.
[native-inputs]: Add nv-codec-headers, shaderc, and spirv-tools.
Signed-off-by: Liliana Marie Prikler <[email protected]>
---
gnu/packages/gnome.scm | 24 +++++++++---
gnu/system/examples/desktop.tmpl | 85 ++++++++++++++++++----------------------
2 files changed, 57 insertions(+), 52 deletions(-)
diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 85365a53ebe..e18835ae2f4 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -109,6 +109,7 @@
#:use-module (gnu packages admin)
#:use-module (gnu packages aidc)
#:use-module (gnu packages aspell)
+ #:use-module (gnu packages audio)
#:use-module (gnu packages autotools)
#:use-module (gnu packages backup)
#:use-module (gnu packages base)
@@ -239,6 +240,7 @@
#:use-module (gnu packages video)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages vpn)
+ #:use-module (gnu packages vulkan)
#:use-module (gnu packages web)
#:use-module (gnu packages webkit)
#:use-module (gnu packages window-management)
@@ -13752,7 +13754,7 @@ historical battery usage and related statistics.")
(define-public gnome-remote-desktop
(package
(name "gnome-remote-desktop")
- (version "49.2")
+ (version "50.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
@@ -13760,13 +13762,11 @@ historical battery usage and related statistics.")
name "-" version ".tar.xz"))
(sha256
(base32
- "1b8nv7iacp0xjb74hidbrypli70xzv6i4mpzh0an5qblfhg4xm3k"))))
+ "07q9vwbql7y6igjj3vavv0y67v9sfq0w13gwdw9kymqk867n5pri"))))
(build-system meson-build-system)
(arguments
(list #:configure-flags
#~'("-Dsystemd=false"
- ;; RDP support requires CUDA (ffnvcodec)
- "-Drdp=false"
;; Enable VNC support
"-Dvnc=true")
#:glib-or-gtk? #t
@@ -13798,21 +13798,30 @@ historical battery usage and related statistics.")
(system "pipewire &")))))))
(inputs
(list cairo
+ freerdp
+ fuse
glib
+ glslang
libdrm
libei
libepoxy
+ libfdk
libgudev
libnotify
libsecret
+ libva
;; Cyclic modular dependency
(module-ref
(resolve-interface
'(gnu packages vnc))
'libvnc)
+ mit-krb5
+ opus
pipewire
- wireplumber
- tpm2-tss))
+ polkit
+ tpm2-tss
+ vulkan-loader
+ wireplumber))
(native-inputs
(list asciidoc
dbus
@@ -13824,10 +13833,13 @@ historical battery usage and related statistics.")
libxml2
libxslt
mutter
+ nv-codec-headers
pkg-config
python
python-dbus-1.2
python-pygobject
+ shaderc
+ spirv-tools
xdg-desktop-portal-gnome))
(home-page "https://gitlab.gnome.org/GNOME/gnome-remote-desktop";)
(synopsis "Share GNOME desktop with remote sessions")
diff --git a/gnu/system/examples/desktop.tmpl b/gnu/system/examples/desktop.tmpl
index afe5ae2d2ba..748aa0695e6 100644
--- a/gnu/system/examples/desktop.tmpl
+++ b/gnu/system/examples/desktop.tmpl
@@ -5,7 +5,7 @@
(use-modules (gnu) (gnu system nss) (guix utils)
(guix packages))
-(use-service-modules desktop sddm xorg)
+(use-service-modules desktop sddm spice ssh xorg)
(use-package-modules gnome)
(operating-system
@@ -15,58 +15,57 @@
;; Choose US English keyboard layout. The "altgr-intl"
;; variant provides dead keys for accented characters.
- (keyboard-layout (keyboard-layout "us" "altgr-intl"))
+ (keyboard-layout (keyboard-layout "us" "dvorak"))
;; Use the UEFI variant of GRUB with the EFI System
;; Partition mounted on /boot/efi.
(bootloader (bootloader-configuration
- (bootloader grub-efi-bootloader)
- (targets '("/boot/efi"))
+ (bootloader grub-bootloader)
+ (targets '("/dev/sda"))
(keyboard-layout keyboard-layout)))
;; Specify a mapped device for the encrypted root partition.
;; The UUID is that returned by 'cryptsetup luksUUID'.
- (mapped-devices
- (list (mapped-device
- (source (uuid "12345678-1234-1234-1234-123456789abc"))
- (target "my-root")
- (type luks-device-mapping))))
(file-systems (append
(list (file-system
- (device (file-system-label "my-root"))
+ (device "/dev/sda")
(mount-point "/")
- (type "ext4")
- (dependencies mapped-devices))
- (file-system
- (device (uuid "1234-ABCD" 'fat))
- (mount-point "/boot/efi")
- (type "vfat")))
+ (type "ext4")))
%base-file-systems))
;; Specify a swap file for the system, which resides on the
;; root file system.
(swap-devices (list (swap-space
- (target "/swapfile"))))
+ (target "/swapfile"))))
;; Create user `bob' with `alice' as its initial password.
- (users (cons (user-account
- (name "bob")
- (comment "Alice's brother")
- (password (crypt "alice" "$6$abc"))
- (group "students")
- (supplementary-groups '("wheel" "netdev"
- "audio" "video")))
- %base-user-accounts))
+ (users (cons* (user-account
+ (name "bob")
+ (comment "Alice's brother")
+ (password "")
+ (group "students")
+ (supplementary-groups '("wheel" "netdev"
+ "audio" "video")))
+ (user-account
+ (name "maxim")
+ (comment "Maude's brother")
+ (password "")
+ (group "users")
+ (supplementary-groups '("wheel" "netdev"
+ "audio" "video")))
+ %base-user-accounts))
;; Add the `students' group
(groups (cons* (user-group
- (name "students"))
+ (name "students"))
%base-groups))
;; This is where we specify system-wide packages.
(packages (append (list
;; for user mounts
+ ;; `(,gdm "debug")
+ ;; gdb
gvfs)
%base-packages))
@@ -74,26 +73,20 @@
;; by clicking the gear. Use the "desktop" services, which
;; include the X11 log-in service, networking with
;; NetworkManager, and more.
- (services (if (supported-package? gnome
- (or (and=> (%current-target-system)
- gnu-triplet->nix-system)
- (%current-system)))
- (append (list (service gnome-desktop-service-type)
- (service xfce-desktop-service-type)
- (set-xorg-configuration
- (xorg-configuration
- (keyboard-layout keyboard-layout))))
- %desktop-services)
-
- ;; FIXME: Since Gnome depends on Rust and Rust is currently
- ;; unavailable on some platforms, we use MATE here instead of
- ;; GNOME.
- (append (list (service mate-desktop-service-type)
- (service xfce-desktop-service-type)
- (set-xorg-configuration
- (xorg-configuration
- (keyboard-layout keyboard-layout))))
- %desktop-services)))
+ (services (cons* (service gnome-desktop-service-type)
+ (set-xorg-configuration
+ (xorg-configuration
+ (keyboard-layout keyboard-layout)))
+ (service openssh-service-type
+ (openssh-configuration
+ (permit-root-login #t)
+ (allow-empty-passwords? #t)))
+ (service spice-vdagent-service-type)
+ (modify-services %desktop-services
+ (gdm-service-type config =>
+ (gdm-configuration
+ (inherit config)
+ (debug? #t))))))
;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss))
