mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-04-13 09:34:33 +00:00
dd5d17c654
$ reuse lint # SUMMARY * Bad licenses: 0 * Deprecated licenses: 0 * Licenses without file extension: 0 * Missing licenses: 0 * Unused licenses: 0 * Used licenses: GPL-3.0-or-later, CC0-1.0 * Read errors: 0 * Files with copyright information: 25 / 25 * Files with license information: 25 / 25 Congratulations! Your project is compliant with version 3.3 of the REUSE Specification :-)
42 lines
1.5 KiB
Scheme
42 lines
1.5 KiB
Scheme
;; SPDX-FileCopyrightText: 2024, 2025 Hilton Chain <hako@ultrarare.space>
|
|
;;
|
|
;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
(define-module (guix import rosenthal-updaters)
|
|
#:use-module (srfi srfi-71)
|
|
#:use-module (web client)
|
|
|
|
#:use-module (guix packages)
|
|
#:use-module (guix records)
|
|
#:use-module (guix upstream)
|
|
#:export (%cloudflare-warp-updater))
|
|
|
|
(define* (cloudflare-warp-import pkg #:key (version #f))
|
|
(let* ((source-uri (assq-ref (package-properties pkg) 'release-monitoring-url))
|
|
(response port (http-get source-uri #:streaming? #t))
|
|
(content (recutils->alist port))
|
|
(_ (close port))
|
|
(name (package-upstream-name pkg))
|
|
(newest-version
|
|
(or version
|
|
(assoc-ref content "Version")))
|
|
(url
|
|
(if version
|
|
(string-append "https://pkg.cloudflareclient.com/"
|
|
"pool/bookworm/main/c/cloudflare-warp/"
|
|
"cloudflare-warp_" version "_amd64.deb")
|
|
(string-append "https://pkg.cloudflareclient.com/"
|
|
(assoc-ref content "Filename")))))
|
|
(upstream-source
|
|
(package name)
|
|
(version newest-version)
|
|
(urls (list url)))))
|
|
|
|
(define %cloudflare-warp-updater
|
|
(upstream-updater
|
|
(name 'cloudflare-warp)
|
|
(description "Updater for Cloudflare WARP client")
|
|
(pred (lambda (package)
|
|
(string=? "cloudflare-warp" (package-upstream-name package))))
|
|
(import cloudflare-warp-import)))
|