;;; This file is part of GNU Guix.
;;; Copyright © 2024 Nicolas Debonnaire <nicolas.debonnaire@gmail.com>
;;; Copyright © 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages nx)
#:use-module (guix build-system gnu)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages commencement)
#:use-module (gnu packages cups)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages man)
#:use-module (gnu packages onc-rpc)
#:use-module (gnu packages openldap)
#:use-module (gnu packages patchutils)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python)
#:use-module (gnu packages qt)
#:use-module (gnu packages ssh)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg))
(define-public nx-libs
(package
(name "nx-libs")
(version "3.5.99.27")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ArcticaProject/nx-libs")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0ykbza39ksycpyydaiwwbp7hkmdk96v7b36pn989k39lhfwnn8kz"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no test suite
;; The build randomly fails when run in parallel (see:
;; https://github.com/ArcticaProject/nx-libs/issues/1072).
#:parallel-build? #f
#:make-flags #~(let ((sh (search-input-file %build-inputs "bin/sh")))
(list (string-append "PREFIX=" #$output)
(string-append "ETCDIR_NX=" #$output "/etc")
(string-append "LOCAL_LDFLAGS=-Wl,"
"-rpath=" #$output "/lib,"
"-rpath=" #$output "/lib/nx/X11")
(string-append "IMAKE_DEFINES=-DUseTIRPC=1"
" -DBourneShell=" sh
" -DProjectRoot=" #$output
" -DDefaultUserPath="
#$output "/bin")
(string-append "CONFIG_SHELL=" sh)
(string-append "SHELL=" sh)
;; Autoreconf being run by Make, the generated
;; configure script shebangs thus haven't been
;; patched; workaround this by running explicitly
;; via the shell.
(string-append "CONFIGURE=" sh " ./configure "
"--prefix=" #$output)
"VERBOSE=1"))
#:phases #~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'adjust-Makefile
(lambda _
;; It's best to source a script via its absolute path,
;; otherwise it's looked from PATH and fails for POSIX
;; shells, such as our Bash-provided 'sh' (see:
;; https://github.com/ArcticaProject/nx-libs/issues/1071).
(substitute* "Makefile"
(("\\. replace.sh")
". ./replace.sh"))))
(add-after 'install 'wrap-nxdialog
(lambda* (#:key inputs #:allow-other-keys)
(wrap-program (string-append #$output "/bin/nxdialog")
`("GUIX_PYTHONPATH" =
(,(getenv "GUIX_PYTHONPATH")))
;; Ensure GObject Introspection typelibs are found.
`("GI_TYPELIB_PATH" ":" =
(,(getenv "GI_TYPELIB_PATH")))))))))
(native-inputs
(list autoconf
automake
bash-minimal ;for wrap-program
font-util
gccmakedep
imake
libtool
perl
pkg-config
quilt
which))
(inputs
(list gtk+
libjpeg-turbo
libtirpc
libxcomposite
libxdamage
libxext
libxfont
libxinerama
libxml2
libxpm
libxrandr
libxtst
pixman
python-pygobject
python-wrapper
xkbcomp))
(propagated-inputs
(list libpng)) ;in Requires of nxcomp.pc
(synopsis "NX X11 protocol compression libraries")
(description "NX is a software suite which implements very efficient
compression of the X11 protocol. This increases performance when using X
applications over a network, especially a slow one. This package provides the
following libraries:
@table @code
@item NX_X11
NX's modified X Window System (X11) library
@item Xcomp
NX differential compression library for X11
@item Xcompshad
Session shadowing library
@end table
The following commands are also provided:
@table @command
@item nxagent
Agent providing NX transport of X sessions
@item nxproxy
The NX proxy (client) binary
@item nxdialog
Helper script
@end table")
(home-page "https://github.com/ArcticaProject/nx-libs")
(license license:gpl2)))
(define-public x2goclient
(package
(name "x2goclient")
(version "4.1.2.3")
(source
(origin
(method url-fetch)
(uri (string-append
"https://code.x2go.org/releases/source/x2goclient/x2goclient-"
version ".tar.gz"))
(sha256
(base32 "0g6aba8kpsixq4486a8mga945lp31y0mzwa2krs5qqiiip3v72xb"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no test suite
#:make-flags
#~(list (string-append "SHELL="
(search-input-file %build-inputs "bin/bash"))
"QT_VERSION=5"
"INSTALL_DIR=install -d -m 755"
"INSTALL_FILE=install -m 644"
"INSTALL_PROGRAM=install -m 755"
(string-append "PREFIX=" #$output)
(string-append "ETCDIR=" #$output "/etc"))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/onmainwindow.cpp"
(("/usr/sbin/sshd")
(search-input-file inputs "sbin/sshd"))))))))
(native-inputs
(list man2html
pkg-config
qtbase-5
qttools-5))
(inputs
(list cups
libssh
libxpm
nx-libs
openldap
openssh
pulseaudio
qtbase-5
qtx11extras
qtsvg-5))
(synopsis "Remote desktop and application solution")
(description
"X2Go enables you to access a graphical desktop of a computer via
SSH (Secure Shell). This package provides the X2Go Client, which can connect
to the X2Go Server. Basic features of X2Go include:
@itemize
@item
Graphical remote desktop that works well over both low bandwidth and high
bandwidth connections
@item
The ability to disconnect and reconnect to a session, even from another
client
@item
Support for sound
@item
Support for as many simultaneous users as the computer's resources will
allow
@item
Traffic is securely tunneled over SSH
@item
File sharing from client to server
@item
Printer sharing from client to server
@item
Easily select from multiple desktop environments (e.g., MATE, GNOME, KDE)
@item
Remote support possible via desktop sharing
@item
The ability to access single applications by specifying the name of the
desired executable in the client configuration or selecting one of the
pre-defined common applications.
@end itemize")
(home-page "https://wiki.x2go.org/doku.php")
(license license:gpl2)))
