gnu: Add rust-clap-complete-4.

* gnu/packages/crates-io.scm (rust-clap-complete-4): New variable.

gnu/packages/crates-io.scm

@@ -11250,6 +11250,36 @@ Command Line Argument Parser.")
         ("rust-version-sync" ,rust-version-sync-0.8))))
     (license license:expat)))
 
+(define-public rust-clap-complete-4
+  (package
+    (name "rust-clap-complete")
+    (version "4.1.2")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "clap-complete" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32 "1zinf9gdr0fh1aff71nwqf51w856sbsbgq0dqpmmbhplggl5n4mx"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:cargo-inputs
+       (("rust-clap" ,rust-clap-4)
+        ("rust-clap-lex" ,rust-clap-lex-0.3)
+        ("rust-is-executable" ,rust-is-executable-1)
+        ("rust-os-str-bytes" ,rust-os-str-bytes-6)
+        ("rust-pathdiff" ,rust-pathdiff-0.2)
+        ("rust-shlex" ,rust-shlex-1)
+        ("rust-unicode-xid" ,rust-unicode-xid-0.2))
+       #:cargo-development-inputs
+       (("rust-clap" ,rust-clap-4)
+        ("rust-snapbox" ,rust-snapbox-0.4)
+        ("rust-trycmd" ,rust-trycmd-0.14))))
+    (home-page "https://github.com/clap-rs/clap/tree/master/clap_complete")
+    (synopsis "Generate shell completion scripts for your clap::Command")
+    (description
+     "Generate shell completion scripts for your @code{clap::Command}.")
+    (license (list license:expat license:asl2.0))))
+
 (define-public rust-clap-complete-3
   (package
     (name "rust-clap-complete")