emacs-fdroid.scm: Provides Guix package for git checkout

1 files changed, 39 insertions, 0 deletions

diff --git a/emacs-fdroid.scm b/emacs-fdroid.scm
new file mode 100644
index 0000000..cad578e
--- /dev/null
+++ b/emacs-fdroid.scm
@@ -0,0 +1,39 @@
+(define-module (emacs-fdroid)
+  #:use-module (ice-9 popen)
+  #:use-module (ice-9 rdelim)
+  #:use-module (guix packages)
+  #:use-module (guix build-system emacs)
+  #:use-module (guix git-download)
+  #:use-module (gnu packages emacs-xyz)
+  #:use-module (guix build utils)
+  #:use-module (guix gexp)
+  #:use-module ((guix licenses) #:prefix license:))
+
+(define %source-dir (dirname (current-filename)))
+
+(define (emacs-fdroid-git-version)
+  (let* ((port (with-directory-excursion
+                %source-dir
+                (open-input-pipe "git describe --always --tags")))
+         (version (read-line port)))
+    (close-pipe port)
+    version))
+
+(define-public emacs-fdroid
+  (package
+    (name "emacs-fdroid")
+    (version (emacs-fdroid-git-version))
+    (source
+     (local-file %source-dir
+                 #:recursive? #t
+                 #:select? (git-predicate %source-dir)))
+    (build-system emacs-build-system)
+    (propagated-inputs
+     (list emacs-consult emacs-embark))
+    (home-page "https://github.com/efimerspan/fdroid.el")
+    (synopsis "An Emacs interface to manage F-Droid repositories.")
+    (description "fdroid.el is an Emacs interface to fdroidcl. Its purpose is to aid the
+ management of F-Droid repository packages to be installed in an Android device from the comfort of Emacs.")
+    (license license:gpl3+)))
+
+emacs-fdroid