From c20359ed14f3fc533f728c20b8123290bfc3902a Mon Sep 17 00:00:00 2001
From: alex <alex@infiniteadaptability.org>
Date: Wed, 22 Mar 2023 00:29:32 -0700
Subject: [PATCH] channel creation

---
 events.scm    | 39 +++++++++++++++++++++++++++++++++++++++
 git-extra.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 workouts.scm  | 40 ++++++++++++++++++++++++++++++++++++++++
 3 files changed, 130 insertions(+)
 create mode 100644 events.scm
 create mode 100644 git-extra.scm
 create mode 100644 workouts.scm

diff --git a/events.scm b/events.scm
new file mode 100644
index 0000000..b6e07c2
--- /dev/null
+++ b/events.scm
@@ -0,0 +1,39 @@
+(define-module (infiniteadaptability packages events)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages sqlite)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix licenses)
+  #:use-module (guix packages))
+
+(define-public events
+  (let ((version "1.2.0")
+        (commit "5fadb6b3668a38d63ce93dc0c24eb462f59f34be")
+        (revision 0))
+    (package
+      (name "events")
+      (version (if (zero? revision) version
+                   (string-append version "-"
+                                  (number->string revision) "."
+                                  (string-take commit 7))))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://git.infiniteadaptability.org/events.git")
+                      (commit commit)))
+                (sha256
+                 (base32
+                  "01z9c45whazh76mn6f87z3xc7r3swwkl6ysfvqcqkw6sqzbjgabd"))
+                (file-name (string-append "events-" version "-checkout"))))
+      (build-system gnu-build-system)
+      (arguments
+       (list #:tests? #f))
+      (native-inputs `(("autoconf" ,autoconf)
+                       ("automake" ,automake)))
+      (home-page "https://git.infiniteadaptability.org/events")
+      (synopsis "utility for managing events")
+      (description "command-line utility for managing events.")
+      (license unlicense))))
+
+events
diff --git a/git-extra.scm b/git-extra.scm
new file mode 100644
index 0000000..0ae8120
--- /dev/null
+++ b/git-extra.scm
@@ -0,0 +1,51 @@
+(define-module (infiniteadaptability packages git-extra)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix gexp)
+  #:use-module (guix licenses)
+  #:use-module (guix packages)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages debian)
+  #:use-module (gnu packages haskell-apps)
+  #:use-module (gnu packages version-control))
+
+(define-public git-extra
+  (let ((version "1.0.3")
+        (commit "60ae39e09cfc64765f32d580e5c6854ed0cccabb")
+        (revision 0))
+    (package
+      (name "git-extra")
+      (version (if (zero? revision) version
+                   (string-append version "-"
+                                  (number->string revision) "."
+                                  (string-take commit 7))))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url
+                       "https://git.infiniteadaptability.org/git-extra.git")
+                      (commit commit)))
+                (sha256
+                 (base32
+                  "10ysy0zmlxl1wxgb07gkjw4b16vc6ikqzlizqicia43af7kyr34g"))
+                (file-name (string-append "git-extra-" version "-checkout"))))
+      (build-system gnu-build-system)
+      (arguments
+       '(#:phases (modify-phases %standard-phases
+                    (delete 'configure)
+                    (delete 'build))
+         #:make-flags (list (string-append "PREFIX=" %output)
+                            (string-append "BASHCOMPDIR=" %output
+                                           "/etc/bash_completion.d"))))
+      (native-inputs `(("bash" ,bash)
+                       ("debianutils" ,debianutils)
+                       ("shellcheck" ,shellcheck)))
+      (propagated-inputs `(("git" ,git)))
+      (home-page "https://git.infiniteadaptability.org/git-extra")
+      (synopsis "git extension for storing data in branches")
+      (description
+       "Minimal utility for storing notes/bugs/etc. in an extra branch within git.")
+      (license unlicense))))
+
+git-extra
diff --git a/workouts.scm b/workouts.scm
new file mode 100644
index 0000000..0a572e8
--- /dev/null
+++ b/workouts.scm
@@ -0,0 +1,40 @@
+(define-module (infiniteadaptability packages workouts)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages sqlite)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix licenses)
+  #:use-module (guix packages))
+
+(define-public workouts
+  (let ((version "1.1.0")
+        (commit "8a8d7c9f2666ce077adb42d8809df2f24d0836d5")
+        (revision 0))
+    (package
+      (name "workouts")
+      (version (if (zero? revision) version
+                   (string-append version "-"
+                                  (number->string revision) "."
+                                  (string-take commit 7))))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://git.infiniteadaptability.org/workouts.git")
+                      (commit commit)))
+                (sha256
+                 (base32
+                  "1mr4cghc55lzcfphxyk26w8laj3gardsn2j02bj06qdc4kzf2jv7"))
+                (file-name (string-append "workouts-" version "-checkout"))))
+      (build-system gnu-build-system)
+      (arguments
+       (list #:parallel-tests? #f))
+      (native-inputs `(("autoconf" ,autoconf)
+                       ("automake" ,automake)))
+      (inputs `(("sqlite" ,sqlite)))
+      (home-page "https://git.infiniteadaptability.org/workouts")
+      (synopsis "utility for managing workouts")
+      (description "command-line utility for managing workouts.")
+      (license unlicense))))
+
+workouts
-- 
2.39.5