From 43498d3ea1e96540b725e137cc6188a00ecf5140 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 15 Jan 2026 12:56:29 +0100
Subject: [PATCH] gnu: xandikos: Fix entry point script.

Fixes <https://codeberg.org/guix/guix/issues/5514>.

* gnu/packages/dav.scm (xandikos)[arguments]: Replace phase
'create-entrypoints.

Change-Id: I78b1c222026d71297ec912cf9442f2e74a963b34
---
 gnu/packages/dav.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/gnu/packages/dav.scm b/gnu/packages/dav.scm
index 62117f148691f533fbf879a185abd12faa5d702d..4fb7a0eebcd0fe2cbc23010dbabf3f37493e4cd0 100644
--- a/gnu/packages/dav.scm
+++ b/gnu/packages/dav.scm
@@ -7,6 +7,7 @@
 ;;; Copyright © 2022, 2024 Jonathan Brielmaier <jonathan.brielmaier@web.de>
 ;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
 ;;; Copyright © 2025 Junker <dk@junkeria.club>
+;;; Copyright © 2026 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -129,6 +130,22 @@ clients.")
       #:test-backend #~'unittest
       #:phases
       #~(modify-phases %standard-phases
+          (replace 'create-entrypoints
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              (let ((sitedir (site-packages inputs outputs))
+                    (interpreter (which "python"))
+                    (file-path (string-append #$output "/bin/xandikos")))
+                (mkdir-p (string-append #$output "/bin"))
+                (call-with-output-file file-path
+                  (lambda (port)
+                    (format port "#!~a -sP
+# Auto-generated entry point script.
+import sys
+import asyncio
+from xandikos.__main__ import main
+if __name__ == '__main__':
+    sys.exit(asyncio.run(main(sys.argv[1:])))~%" interpreter)))
+                (chmod file-path #o755))))
           (add-before 'check 'check-setup
             (lambda _
               (setenv "XANDIKOSPATH" (mkdtemp "/tmp/xandikospath-XXXXXX")))))))