bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ttf2pt1: Modernize.

Browse source 
* gnu/packages/fontutils.scm (ttf2pt1)[source, arguments]: Use gexps.

Change-Id: I1974419be8a95823e29c45bd4c25c16e099002e0
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #5826
This commit is contained in:
Ludovic Courtès 2026-01-22 16:49:56 +01:00
parent 37ef9fb544
commit 6aa00f4084
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 29 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/fontutils.scm
View file

@ -1316,38 +1316,38 @@ TTF (TrueType/OpenType Font) files.")
"1l718n4k4widx49xz7qrj4mybzb8q67kp2jw7f47604ips4654mf")) "1l718n4k4widx49xz7qrj4mybzb8q67kp2jw7f47604ips4654mf"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin #~(begin
;; Include <unistd.h> for the 'getopt' declaration. ;; Include <unistd.h> for the 'getopt' declaration.
(substitute* "t1asm.c" (substitute* "t1asm.c"
(("#include <stdio.h>" all) (("#include <stdio.h>" all)
(string-append all "\n" (string-append all "\n"
"#include <unistd.h>\n"))) "#include <unistd.h>\n")))
;; Remove trailing backslashes in the sed expression of the ;; Remove trailing backslashes in the sed expression of the
;; 'install' rule since sed would otherwise fail. ;; 'install' rule since sed would otherwise fail.
(substitute* "Makefile" (substitute* "Makefile"
(("\\|;\\\\[[:space:]]*$") "|; ")) (("\\|;\\\\[[:space:]]*$") "|; "))
#t)))) #t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f ;no tests (list #:tests? #f ;no tests
#:phases (modify-phases %standard-phases #:phases
(replace 'configure #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (replace 'configure
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key outputs #:allow-other-keys)
(substitute* "Makefile" (let ((out (assoc-ref outputs "out")))
(("INSTDIR =.*") (substitute* "Makefile"
(string-append "INSTDIR = " out "\n")) (("INSTDIR =.*")
(("OWNER = .*") (string-append "INSTDIR = " out "\n"))
"OWNER = `id -un`\n") (("OWNER = .*")
(("GROUP = .*") "OWNER = `id -un`\n")
"GROUP = `id -g`\n")) (("GROUP = .*")
#t))) "GROUP = `id -g`\n")) #t)))
(replace 'build (replace 'build
(lambda _ (lambda _
(invoke "make" "-j" (invoke "make" "-j"
(number->string (parallel-job-count)) (number->string (parallel-job-count))
"all" "CC=gcc")))))) "all" "CC=gcc"))))))
(inputs (list perl)) (inputs (list perl))
(synopsis "Convert TrueType fonts to Postscript Type 1") (synopsis "Convert TrueType fonts to Postscript Type 1")
(description (description