mirror of
https://gitlab.com/nonguix/nonguix.git
synced 2025-10-02 02:14:59 +00:00
7a67115e0d
* guix/import/firefox.scm: Implement basic firefox updater. Signed-off-by: Hilton Chain <hako@ultrarare.space> Modified-by: Hilton Chain <hako@ultrarare.space>
47 lines
1.6 KiB
Scheme
47 lines
1.6 KiB
Scheme
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
|
|
|
|
;;; This file is not part of GNU Guix but requires this naming scheme
|
|
;;; so that the %firefox-updater is properly read when using
|
|
;;; `guix refresh -L$(pwd) firefox' in nonguix root.
|
|
|
|
(define-module (guix import firefox)
|
|
#:use-module (guix import json)
|
|
#:use-module (guix memoization)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix upstream)
|
|
#:export (%firefox-updater))
|
|
|
|
(define firefox-json-url "https://product-details.mozilla.org/1.0/firefox_versions.json")
|
|
|
|
(define firefox-versions
|
|
(memoize
|
|
(lambda _
|
|
(let ((alist (json-fetch firefox-json-url)))
|
|
(list (cons "firefox" (assoc-ref alist "LATEST_FIREFOX_VERSION"))
|
|
(cons "firefox-esr" (assoc-ref alist "FIREFOX_ESR")))))))
|
|
|
|
(define* (latest-release package #:key (version #f) partial-version?)
|
|
"Return an <upstream-source> for the latest-release of PACKAGE."
|
|
(let* ((name (package-name package))
|
|
(version (or version (assoc-ref (firefox-versions) name))))
|
|
(upstream-source
|
|
(package name)
|
|
(version version)
|
|
(urls
|
|
(list (string-append "https://archive.mozilla.org/pub/firefox/releases/"
|
|
version "/source/firefox-"
|
|
version ".source.tar.xz"))))))
|
|
|
|
(define (firefox-package? package)
|
|
"Return true if PACKAGE is Firefox."
|
|
(member (package-name package) (list "firefox" "firefox-esr")))
|
|
|
|
(define %firefox-updater
|
|
(upstream-updater
|
|
(name 'firefox)
|
|
(description "Updater for Firefox packages")
|
|
(pred firefox-package?)
|
|
(import latest-release)))
|
|
|
|
;;; firefox.scm ends here.
|