cor/ebuild-autogen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

V0.0.3 Nodejs support.

Browse source
This commit is contained in:
Cor Legemaat 2026-03-30 07:00:06 +02:00
commit 54f494163a
17 changed files with 1871 additions and 484 deletions
Download patch file Download diff file Expand all files Collapse all files

14
ebuild/fetchers/forgejo.scm
View file

@ -1,6 +1,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; forgejo.scm
;; Copyright (C) 2025 Cor Legemaat <cor@cor.za.net>
;; Copyright (C) 2025, 2026 Cor Legemaat <cor@cor.za.net>
;;
;; This file is part of ebuild-autogen: you can redistribute it and/or modify it
;; under the terms of the GNU Affero General Public License as published by the
@ -17,6 +17,7 @@
(define-module (ebuild fetchers forgejo)
#:use-module (ebuild defs)
#:use-module (ebuild fetchers raw)
#:use-module (ebuild semver)
#:use-module (ebuild utils)
#:use-module (curl)
#:use-module (json)
@ -58,11 +59,12 @@
(if responce
(begin (check-forgejo-errors responce)
(let ((scm-responce (json-string->scm responce)))
(if (< 100 (vector-length scm-responce))
(vector-append (fetch-forgejo-pages url
(if (= 100 (vector-length scm-responce))
(vector-append scm-responce
(fetch-forgejo-pages url
auth-token
verbosity
(+1 page)))
(1+ page)))
(begin (if (>= verbosity verbosity-info)
(pretty-print scm-responce))
scm-responce))))
@ -143,6 +145,8 @@
(set! scm (json-string->scm json))
(assoc-set! release "version" version-final)
(append release
(list (cons "version-values"
(semver->comps version-final)))
(list (cons "repo-user" user))
(list (cons "repo-repo" repo))
;;TODO append this with list of custom assets.
@ -178,6 +182,8 @@
(base-asset-url (string-append host "/" user "/" repo)))
(assoc-set! tag "version" version-final)
(append tag
(list (cons "version-values"
(semver->comps version-final)))
(list (cons "repo-user" user))
(list (cons "repo-name" repo))
(list