From 749734fc412def963e590241e85428ed18c516a6 Mon Sep 17 00:00:00 2001
From: paladhammika <paladhammika@protonmail.com>
Date: Mon, 3 Jan 2022 18:37:55 -0500
Subject: [PATCH] gnu: Add fff.

---
 gnu/packages/disk.scm | 47 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index ac8b561e79..1ebc629da7 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -22,6 +22,7 @@
 ;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
 ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
 ;;; Copyright © 2021 Justin Veilleux <terramorpha@cock.li>
+;;; Copyright © 2022 Disseminate Dissent <disseminatedissent@protonmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -770,6 +771,52 @@ (define-public ranger
 automatically finding out which program to use for what file type.")
     (license license:gpl3)))
 
+(define-public fff
+  (package
+   (name "fff")
+   (version "2.2")
+   (source (origin
+            (method git-fetch)
+            (uri (git-reference
+                  (url "https://github.com/dylanaraps/fff")
+                  (commit version)))
+            (file-name (git-file-name name version))
+            (sha256
+             (base32
+              "14ymdw6l6phnil0xf1frd5kgznaiwppcic0v4hb61s1zpf4wrshg"))))
+   (build-system gnu-build-system)
+   (inputs
+    `(("bash" ,bash)
+      ("coreutils" ,coreutils)
+      ("file" ,file)))
+   ;; ("xdg-utils" ,xdg-utils)))
+   (native-inputs
+    `(("pkg-config" ,pkg-config)))
+   (arguments
+    `(#:tests? #f                      ; no tests
+      #:make-flags
+      (list
+       (string-append "PREFIX="
+                      (assoc-ref %outputs "out"))
+       (string-append "CC=" ,(cc-for-target))
+       (string-append "PKG_CONFIG=" ,(pkg-config-for-target)))
+      #:phases
+      (modify-phases %standard-phases
+        (add-after 'unpack 'refer-to-inputs
+          (lambda* (#:key inputs #:allow-other-keys)
+            (let ((file (assoc-ref inputs "file")))
+              (substitute* "fff"
+                (("\\bfile [-\"]" match)
+                 (string-append file "/bin/" match))))))
+        (delete 'configure))))          ; no configure script
+   (home-page "https://github.com/dylanaraps/fff")
+   (synopsis "Simple file manager written in bash")
+   (description
+    "@command{fff} (fast file-manager) is a simple, blazing fast and minimal
+file manager for Linux, written in bash.  It only requires bash and coreutils,
+and its highly optimized now for efficient performance.")
+   (license license:expat)))
+
 (define-public volume-key
   (package
     (name "volume-key")
-- 
2.34.0