until i figure out how to implement the binary-build-system

ajatt/packages/utils.scm

@@ -1,70 +0,0 @@
-(define-module (ajatt packages utils))
-
-(use-modules (gnu)
-             (guix gexp)
-             (guix packages)
-             (guix download)
-             (guix build utils)
-             (guix build-system gnu)
-             (guix build-system copy)
-             (nonguix build-system binary)
-             ((guix licenses) #:prefix license:))
-
-(use-package-modules version-control gcc bash certs admin linux)
-(use-service-modules certbot shepherd configuration networking ssh web)
-
-(define forgejo
-  (let ((version "1.20.5-0"))
-    (package
-     (name "forgejo")
-     (version version)
-     (source
-      (origin
-       (method url-fetch)
-       (uri (string-append "https://codeberg.org/forgejo/forgejo/releases/download/v" version "/forgejo-" version "-linux-amd64"))
-       (file-name "forgejo")
-       (sha256
-        (base32 "0jj13qwq67acbqsina3gqi5fr2lsm80jxjmm26i1ixxhf0r0w641"))))
-     (build-system binary-build-system)
-     (arguments
-      `(#:phases (modify-phases %standard-phases
-                                (add-after 'unpack 'chmod-to-allow-patchelf
-                                           (lambda _
-                                             (chmod "forgejo" #o755))))
-        #:install-plan `(("forgejo" "bin/"))))
-     (propagated-inputs (list git git-lfs))
-     (home-page "https://forgejo.org")
-     (synopsis "A self-hosted lightweight software forge.")
-     (description "Forgejo is a self-hosted lightweight software forge.")
-     (license license:expat))))
-
-
-
-(define loophole
-  (let ((version "1.0.0-beta.15"))
-    (package
-     (name "loophole")
-     (version version)
-     (source
-      (origin
-       (method url-fetch)
-       (uri "https://github.com/loophole/cli/releases/download/1.0.0-beta.15/loophole-cli_1.0.0-beta.15_linux_64bit.tar.gz")
-       (file-name "loophole")
-       (sha256
-        (base32 "1bk5dqvw6zkjablc6b29y7a59mkh4ivziss0s2z13zvjbll315jd"))))
-     (build-system binary-build-system)
-     (arguments
-      `(#:phases (modify-phases %standard-phases
-				;; fix: patchelf isn't working, but
-				;;  patchelf --set-interpreter "$(patchelf --print-interpreter "$(realpath "$(which sh)")")"
-				;; works
-                                (add-after 'unpack 'chmod-to-allow-patchelf
-                                           (lambda _
-                                             (chmod "loophole" #o755))))
-        #:install-plan `(("loophole" "bin/"))))
-     (home-page "https://loophole.cloud/")
-     (synopsis "Instant hosting, right from your local machine.")
-     (description "No more hassle with port-forwarding, bypassing firewalls, or setting up dynamic.")
-     (license license:expat))))
-
-forgejo