01/03: doc: cookbook: Update example my-libgit2 package.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 5cf38fb6d6f4ab68cff5d58a91d7907a0b9f1327
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Jun 5 20:09:06 2023 +0300

    doc: cookbook: Update example my-libgit2 package.
    
    * doc/guix-cookbook.texi (Packaging Tutorial): Improve the code quality
    of the example my-libgit2 package.
---
 doc/guix-cookbook.texi | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/doc/guix-cookbook.texi b/doc/guix-cookbook.texi
index b9f5f6b6a9..b3c3bac971 100644
--- a/doc/guix-cookbook.texi
+++ b/doc/guix-cookbook.texi
@@ -844,12 +844,12 @@ another, more sophisticated package (slightly modified 
from the source):
   #:use-module (guix packages)
   #:use-module (guix git-download)
   #:use-module (guix build-system cmake)
-  #:use-module (gnu packages ssh)
-  #:use-module (gnu packages web)
+  #:use-module (gnu packages compression)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages python)
-  #:use-module (gnu packages compression)
-  #:use-module (gnu packages tls))
+  #:use-module (gnu packages ssh)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages web))
 
 (define-public my-libgit2
   (let ((commit "e98d0a37c93574d2c6107bf7f31140b548c6a7bf")
@@ -886,9 +886,11 @@ another, more sophisticated package (slightly modified 
from the source):
                  (("/bin/rm") (which "rm")))))
            ;; Run checks more verbosely.
            (replace 'check
-             (lambda _ (invoke "./libgit2_clar" "-v" "-Q")))
+             (lambda* (#:key tests? #:allow-other-keys)
+               (when tests?
+                 (invoke "./libgit2_clar" "-v" "-Q"))))
            (add-after 'unpack 'make-files-writable-for-tests
-             (lambda _ (for-each make-file-writable (find-files "." ".*")))))))
+             (lambda _ (for-each make-file-writable (find-files ".")))))))
       (inputs
        (list libssh2 http-parser python-wrapper))
       (native-inputs