me
/
guix
Archived
1
0
Fork 0
Code

import: texlive: Take different package database as optional argument. 

* guix/import/texlive.scm (tlpdb->package): Expect PACKAGE-DATABASE as
argument.
(texlive->guix-package): Accept PACKAGE-DATABASE keyword.
master
Ricardo Wurmus 2021-11-17 21:38:24 +00:00
parent a030511fd9
commit 424f2c92b4
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/import/texlive.scm
View File

@ -203,8 +203,8 @@
files)
equal?)))
(define (tlpdb->package name)
(and-let* ((data (assoc-ref (tlpdb) name))
(define (tlpdb->package name package-database)
(and-let* ((data (assoc-ref package-database name))
(dirs (files->directories
(map (lambda (dir)
(string-drop dir (string-length "texmf-dist/")))
@ -254,10 +254,10 @@
(define texlive->guix-package
(memoize
(lambda* (name #:key repo version)
(lambda* (name #:key repo version (package-database tlpdb))
"Find the metadata for NAME in the tlpdb and return the `package'
s-expression corresponding to that package, or #f on failure."
(tlpdb->package name))))
(tlpdb->package name (package-database)))))
(define (texlive-recursive-import name)
(recursive-import name