diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-07-30 08:46:07 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-07-30 08:46:42 +0200 |
| commit | 4eca7833ef0b16fb3cdda138e3ee1e5824c36e41 (patch) | |
| tree | a87586e931bd51f2e87d07b5fbdd83bce0ccaacd /guix/profiles.scm | |
| parent | 4c204d01d57ac7da11a5772d5d4e3254d1c2408f (diff) | |
| parent | 6a2b5c66bf57bd1bbc6300e1f99e16e65f2478e8 (diff) | |
| download | guix-4eca7833ef0b16fb3cdda138e3ee1e5824c36e41.tar guix-4eca7833ef0b16fb3cdda138e3ee1e5824c36e41.tar.gz | |
Merge branch 'master' into gnome-team
Diffstat (limited to 'guix/profiles.scm')
| -rw-r--r-- | guix/profiles.scm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index 605d43f111..4835def536 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -1815,6 +1815,21 @@ MANIFEST." #:create-all-directories? #t #:log-port (%make-void-port "w")) + ;; Clear files that are going to be regenerated. + (with-directory-excursion "/tmp/texlive/share/texmf-dist" + (for-each delete-file + (list "fonts/map/dvipdfmx/updmap/kanjix.map" + "fonts/map/dvips/updmap/builtin35.map" + "fonts/map/dvips/updmap/download35.map" + "fonts/map/dvips/updmap/ps2pk.map" + "fonts/map/dvips/updmap/psfonts.map" + "fonts/map/dvips/updmap/psfonts_pk.map" + "fonts/map/dvips/updmap/psfonts_t1.map" + "fonts/map/pdftex/updmap/pdftex.map" + "fonts/map/pdftex/updmap/pdftex_dl14.map" + "fonts/map/pdftex/updmap/pdftex_ndl14.map" + "web2c/updmap.cfg"))) + ;; XXX: This is annoying, but it's necessary because ;; texlive-libkpathsea does not provide wrapped executables. (setenv "PATH" @@ -1866,8 +1881,6 @@ MANIFEST." (let ((a (string-append #$output "/share/texmf-dist")) (b "/tmp/texlive/share/texmf-dist") (mktexlsr #$(file-append texlive-scripts "/bin/mktexlsr"))) - ;; Ignore original "updmap.cfg" from texlive-scripts input. - (delete-file "/tmp/texlive/share/texmf-dist/web2c/updmap.cfg") (copy-recursively a b) (invoke mktexlsr b) (install-file (string-append b "/ls-R") a)))))) |