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