amaharaneko/nonguix-mirrors
1
0
Fork 0
mirror of https://gitlab.com/nonguix/nonguix.git synced 2025-10-02 02:14:59 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: nvidia: Refresh urls and simplify.

Browse source 
* guix/import/nvidia.scm
(archive->guix-arch, archive?): Delete them, replacing with...
(nvidia-system-links):...this new variable.
(nvidia-versions): Update accordingly.

Signed-off-by: Hilton Chain <hako@ultrarare.space>
This commit is contained in:
Nicolas Graves 2025-08-06 23:02:48 +02:00 • committed by Hilton Chain
parent b746284bda
commit e7ca367627
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
1 changed files with 4 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

19
guix/import/nvidia.scm
View file

@ -21,18 +21,9 @@
(define nvidia-latest-url "https://www.nvidia.com/en-us/drivers/unix/") (define nvidia-latest-url "https://www.nvidia.com/en-us/drivers/unix/")
(define (archive->guix-arch system) (define nvidia-system-links
(match system '(("https://download.nvidia.com/XFree86/Linux-x86_64/" . "x86_64-linux")
("https://www.nvidia.com/object/linux-amd64-display-archive.html" ("https://download.nvidia.com/XFree86/Linux-aarch64/" . "aarch64-linux")))
"x86_64-linux")
("https://www.nvidia.com/en-us/drivers/unix/linux-aarch64-archive/"
"aarch64-linux")
(_ #f)))
(define (archive? cand)
(or (string= cand (string-append nvidia-latest-url "linux-aarch64-archive/"))
(and (string-prefix? "https://www.nvidia.com/object/" cand)
(string-suffix? "-archive.html" cand))))
(define nvidia-versions (define nvidia-versions
(memoize (memoize
@ -68,9 +59,7 @@
(list (or (string= version "Archive") (list (or (string= version "Archive")
(string-trim version)) (string-trim version))
...) ...)
(list (if (archive? url) (list (or (assoc-ref nvidia-system-links url) url)
(archive->guix-arch url)
url)
...))))) ...)))))
(system #f) (system #f)
(versions (versions