diff options
Diffstat (limited to 'gnu/packages/vnc.scm')
| -rw-r--r-- | gnu/packages/vnc.scm | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm index e260a17437..daa1fb6f92 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. |