;;; 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 comme</td></tr></table>
<table class='tabs'><tr><td>
<a href='/hydrilla-builder/?h=upstream/1.1_beta1'>summary</a><a href='/hydrilla-builder/refs/?h=upstream/1.1_beta1'>refs</a><a class='active' href='/hydrilla-builder/log/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license?h=upstream/1.1_beta1'>log</a><a href='/hydrilla-builder/tree/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license?h=upstream/1.1_beta1'>tree</a><a href='/hydrilla-builder/commit/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license?h=upstream/1.1_beta1'>commit</a><a href='/hydrilla-builder/diff/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license?h=upstream/1.1_beta1'>diff</a></td><td class='form'><form class='right' method='get' action='/hydrilla-builder/log/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license'>
<input type='hidden' name='h' value='upstream/1.1_beta1'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/hydrilla-builder/log/?h=upstream/1.1_beta1'>root</a>/<a href='/hydrilla-builder/log/src?h=upstream/1.1_beta1'>src</a>/<a href='/hydrilla-builder/log/src/hydrilla?h=upstream/1.1_beta1'>hydrilla</a>/<a href='/hydrilla-builder/log/src/hydrilla/schemas?h=upstream/1.1_beta1'>schemas</a>/<a href='/hydrilla-builder/log/src/hydrilla/schemas/1.x?h=upstream/1.1_beta1'>1.x</a>/<a href='/hydrilla-builder/log/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license?h=upstream/1.1_beta1'>api_source_description-1.0.1.schema.json.license</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/hydrilla-builder/log/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license?h=upstream/1.1_beta1&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-06-15 11:09:58 +0200'>2022-06-15</span></td><td><a href='/hydrilla-builder/commit/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license?h=upstream/1.1_beta1&amp;id=22c722bf59e59246f47491c7229b17f9ef783614'>New upstream version 1.1~beta1</a><span class='decoration'><a class='tag-annotated-deco' href='/hydrilla-builder/tag/?h=upstream/1.1_beta1'>upstream/1.1_beta1</a><a class='branch-deco' href='/hydrilla-builder/log/src/hydrilla/schemas/1.x/api_source_description-1.0.1.schema.json.license?h=debian-upstream'>debian-upstream</a></span></td><td>Wojtek Kosior</td></tr>
</table><ul class='pager'></ul></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>
"
                         (("\\. 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)))