[WIP] gnu: Add fd. (rust)

[Tanguy Le Carrour]

Dear Guix,

I'm back on (trying to) package fd [1][].

[1]: https://github.com/sharkdp/fd

I've just submitted 2 patches to add 2 trivial rust dependencies I need.
But even with those, `fd` does not build! :-(
I have the following error:

```
starting phase `build'
error: no matching package named `term_size` found
location searched: registry `https://github.com/rust-lang/crates.io-index`
perhaps you meant: term_size
required by package `clap v2.33.0`
    ... which is depended on by `fd-find v7.4.0 
(/tmp/guix-build-fd-7.4.0.drv-0/fd-find-7.4.0)`
command "cargo" "build" "--release" failed with status 101
```

I tried adding `term_size` to `cargo-inputs` or to `cargo-development-inputs`,
but it did not solve my problem. Am I missing something?!

I'm not a rust specialist, so any help would be welcome!

Regards

-- 
Tanguy


* gnu/packages/rust-apps.scm (fd): New variable.
---
 gnu/packages/rust-apps.scm | 43 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/gnu/packages/rust-apps.scm b/gnu/packages/rust-apps.scm
index 5b61cdc542..5e7fc557b6 100644
--- a/gnu/packages/rust-apps.scm
+++ b/gnu/packages/rust-apps.scm
@@ -254,3 +254,46 @@ gitignore rules.")
 show number of files, total lines within those files and code, comments, and
 blanks grouped by language.")
     (license (list license:expat license:asl2.0))))
+
+(define-public fd
+  (package
+    (name "fd")
+    (version "7.4.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "fd-find" version))
+       (file-name
+        (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "147m872zff0srwq9vaxkkbab06g3fkklbk1g2lx90vdhgs37f5xj"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:cargo-inputs
+       (("rust-ansi-term" ,rust-ansi-term-0.12)
+        ("rust-atty" ,rust-atty-0.2)
+        ("rust-ctrlc" ,rust-ctrlc-3.1)
+        ("rust-globset" ,rust-globset-0.4)
+        ("rust-humantime" ,rust-humantime-1.3)
+        ("rust-ignore" ,rust-ignore-0.4)
+        ("rust-jemallocator" ,rust-jemallocator-0.3)
+        ("rust-lazy-static" ,rust-lazy-static-1.3)
+        ("rust-lscolors" ,rust-lscolors-0.6)
+        ("rust-num-cpus" ,rust-num-cpus-1.10)
+        ("rust-regex" ,rust-regex-1.1)
+        ("rust-regex-syntax" ,rust-regex-syntax-0.6))
+       #:cargo-development-inputs
+       (("rust-clap" ,rust-clap-2)
+        ("rust-diff" ,rust-diff-0.1)
+        ("rust-filetime" ,rust-filetime-0.2)
+        ("rust-tempdir" ,rust-tempdir-0.3)
+        ("rust-term-size" ,rust-term-size-1.0) ;; not listed as a dependency
+        ("rust-version-check" ,rust-version-check-0.9))))
+    (home-page "https://github.com/sharkdp/fd";)
+    (synopsis "A simple, fast and user-friendly alternative to find")
+    (description
+     "`fd` is a simple, fast and user-friendly alternative to `find`.
+While it does not seek to mirror all of `find`'s powerful functionality,
+it provides sensible (opinionated) defaults for 80% of the use cases.")
+    (license license:asl2.0)))
-- 
2.25.0