seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-04-28 16:55:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

import: %cloudflare-warp-updater: Use recutils->alist.

Browse Source 
* guix/import/rosenthal-updaters.scm (cloudflare-warp-import): Use
recutils->alist.
This commit is contained in:
Hilton Chain 2025-01-17 14:11:07 +08:00
parent 3384f38b2b
commit 157db5d7ff
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
guix/import/rosenthal-updaters.scm
View File

@ -1,32 +1,28 @@
(define-module (guix import rosenthal-updaters)
#:use-module (ice-9 regex)
#:use-module (rnrs bytevectors)
#: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 content (http-get source-uri))
(content (utf8->string content))
(response port (http-get source-uri #:streaming? #t))
(content (recutils->alist port))
(_ (close port))
(name (package-upstream-name pkg))
(newest-version
(or version
(match:substring
(string-match "\nVersion: (.*)\nLicense" content)
1)))
(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/"
(match:substring
(string-match "\nFilename: (.*)\nSize" content)
1)))))
(assoc-ref content "Filename")))))
(upstream-source
(package name)
(version newest-version)