V0.0.3 Nodejs support.

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

View file

@ -1,6 +1,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; github.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
@ -18,6 +18,7 @@
#:use-module (ebuild defs)
#:use-module (ebuild fetchers raw)
#:use-module (ebuild utils)
#:use-module (ebuild semver)
#:use-module (curl)
#:use-module (json)
#:use-module (ice-9 pretty-print)
@ -63,10 +64,12 @@
(if responce
(begin (check-github-errors responce)
(let ((scm-responce (json-string->scm responce)))
(if (< 100 (vector-length scm-responce))
(vector-append (fetch-github-pages url
(if (= 100 (vector-length scm-responce))
(vector-append scm-responce
(fetch-github-pages url
token
verbosity
(+1 page)))
(1+ page)))
(begin (if (>= verbosity verbosity-info)
(pretty-print scm-responce))
scm-responce))))
@ -156,6 +159,8 @@
(set! sha7 (string-take sha 7))
(assoc-set! release "version" version-final)
(append release
(list (cons "version-values"
(semver->comps version-final)))
(list (cons "sha" sha))
(list (cons "github-user" user))
(list (cons "github-repo" repo))
@ -200,6 +205,8 @@
repo)))
(assoc-set! tag "version" version-final)
(append tag
(list (cons "version-values"
(semver->comps version-final)))
(list (cons "github-user" user))
(list (cons "github-repo" repo))
(list (cons "sha7" sha7))