From 8964a0c26be2fd157c1d1c2d17705dda64862f75 Mon Sep 17 00:00:00 2001
From: JEAN-FRANCOIS GUILLAUME <mrbear@yam-it.net>
Date: Tue, 16 Apr 2024 16:03:38 +0200
Subject: [PATCH] adding forgejo package (dirty)

---
 glicid/packages/forgejo.scm | 42 +++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 glicid/packages/forgejo.scm

diff --git a/glicid/packages/forgejo.scm b/glicid/packages/forgejo.scm
new file mode 100644
index 0000000..0f05bd2
--- /dev/null
+++ b/glicid/packages/forgejo.scm
@@ -0,0 +1,42 @@
+(define-module (glicid packages forgejo)
+               #:use-module (guix)
+               #:use-module (ice-9 match)
+               #:use-module ((guix licenses) #:prefix license:)
+               #:use-module (guix utils)
+               #:use-module (guix download)
+               #:use-module (guix packages)
+               #:use-module (guix build-system trivial)
+               #:use-module (gnu packages bash)
+               #:use-module (gnu packages version-control))
+
+(define-public forgejo-dirty
+               (package
+                 (name "forgejo")
+                 (version "1.21.10-0")
+                 (source (origin
+                           (method url-fetch)
+                           (uri (string-append "https://codeberg.org/" name "/" name "/releases/download/v" version "/" name "-" version "-linux-amd64"))
+                           (file-name (string-append name "-" version "-linux-amd64"))
+                           (sha256 (base32 "1vkp2aipb5d1q4s77dhdwnj66ih3rvbx1bb3fgkvsknyhb1l8mna"))))
+                 (build-system trivial-build-system)
+                 (arguments
+                   '(#:modules ((guix build utils))
+                     #:builder (begin
+                                 (use-modules (guix build utils))
+                                 (let* ((source (assoc-ref %build-inputs "source"))
+                                        (out (assoc-ref %outputs "out"))
+                                        (install-dir (string-append out "/bin"))
+                                        (executable (string-append install-dir "/forgejo"))
+                                        (bash (string-append (assoc-ref %build-inputs "bash") "/bin/"))
+                                        (git-dir (string-append (assoc-ref %build-inputs "git") "/bin/")))
+                                   (setenv "PATH" (string-append (getenv "PATH") ":" bash))
+                                   (mkdir-p install-dir)
+                                   (copy-file source executable)
+                                   (chmod executable #o755)
+                                   (wrap-program executable `("PATH" ":" prefix (,git-dir)))))))
+                 (inputs (list git bash))
+                 (synopsis "Forgejo binary release")
+                 (description
+                   "Forgejo is a self-hosted lightweight software forge. Easy to install and low maintenance, it just does the job.")
+                 (home-page "https://forgejo.org/")
+                 (license license:expat)))