Add Guix channel

1 files changed, 59 insertions, 0 deletions

diff --git a/guix/channel/xyz/euandreh/remembering/channel.scm b/guix/channel/xyz/euandreh/remembering/channel.scm
new file mode 100644
index 0000000..20eb01e
--- /dev/null
+++ b/guix/channel/xyz/euandreh/remembering/channel.scm
@@ -0,0 +1,59 @@
+(define-module (xyz euandreh remembering channel)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix transformations)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix utils)
+  #:use-module (guix build-system gnu))
+
+(define-public remembering
+  (package
+    (name "remembering")
+    (version "0.1.0") ;; VERSION_MARKER
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                     "https://git.euandreh.xyz/remembering/snapshot/remembering-v"
+                     version
+                     ".tar.gz"))
+              (sha256
+               (base32 "0mraz2d85hgalkdml92x78br31rlbz298r8hf75fcsdlrf7n3d0p"))))
+    (build-system gnu-build-system)
+    (arguments
+      `(#:make-flags
+        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
+        #:phases
+        (modify-phases %standard-phases
+          (delete 'configure))))
+    (synopsis "Add memory to dmenu, fzf and similar tools") ;; DESCRIPTION_MARKER
+    (description "remembering allows you to wrap calls to dmenu
+and fzf and see your previous choices start appearing at the beginning
+of the list.")
+    (home-page "https://remembering.euandreh.xyz")
+    (license license:agpl3+)))
+
+(define remembering-master
+  (let ((remembering-from-master
+         ((options->transformation
+           '((with-git-url . "remembering=git://git.euandreh.xyz/remembering")))
+          remembering)))
+    (package
+      (inherit remembering-from-master)
+      (name "remembering-master"))))
+
+(define repository-root
+  (canonicalize-path
+   (string-append (current-source-directory)
+                  "/../../../../..")))
+
+(define remembering-dev
+  (package
+    (inherit remembering-master)
+    (source (local-file repository-root
+                        #:recursive? #t
+                        #:select? (git-predicate repository-root)))))
+
+remembering-dev
+remembering-master