diff options
Diffstat (limited to 'gnu/packages/vnc.scm')
| -rw-r--r-- | gnu/packages/vnc.scm | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm index e260a17437..f87f0c1430 100644 --- a/gnu/packages/vnc.scm +++ b/gnu/packages/vnc.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2020 Marius Bakke <marius@gnu.org> ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2021, 2022, 2024 Tobias Geerinckx-Rice <me@tobias.gr> -;;; Copyright © 2022, 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2022, 2024 Maxim Cournoyer <maxim@guixotic.coop> ;;; Copyright © 2022 Mehmet Tekman <mtekman89@gmail.com> ;;; Copyright @ 2022, Kitzman <kitzman@disroot.org> ;;; @@ -192,19 +192,12 @@ RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.") ;; bundled under java/org. These are used by the 'vncviewer' ;; program. The jsch copy is modified and integrates changes from ;; https://github.com/mwiede/jsch, so cannot easily be un-bundled. - (define (directory? x) - (and=> (stat x #f) (compose (cut eq? 'directory <>) stat:type))) - (define (delete-all-but directory . preserve) (with-directory-excursion directory - (let* ((pred (negate (cut member <> (append '("." "..") - preserve)))) + (let* ((pred (negate (cut member <> + (cons* "." ".." preserve)))) (items (scandir "." pred))) - (for-each (lambda (item) - (if (directory? item) - (delete-file-recursively item) - (delete-file item))) - items)))) + (for-each (cut delete-file-recursively <>) items)))) ;; d3des, rfb (headers) and turbojpeg-jni are small and not ;; packaged in Guix, so preserve them. @@ -412,7 +405,7 @@ mouse) with any VNC viewer.") (define-public libvnc (package (name "libvnc") - (version "0.9.13") + (version "0.9.15") (source (origin (method git-fetch) @@ -421,7 +414,7 @@ mouse) with any VNC viewer.") (commit (string-append "LibVNCServer-" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0zz0hslw8b1p3crnfy3xnmrljik359h83dpk64s697dqdcrzy141")))) + (base32 "0b3ik1dbd9lyiiavv3zpyb3iycnfvjgsjym0ilyr1yac6899qxkb")))) (build-system cmake-build-system) (arguments '(#:phases (modify-phases %standard-phases |