mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: plan9port: Fix fontsrv and font substitutes.

Browse source 
src/libdraw/openfont.c already substitutes "/lib/font/bit/" to "$PLAN9/font/",
so it's not necessary to do that ourself.

* gnu/packages/plan9.scm (plan9port)[arguments]: Don't remove 'fontsrv' in
INSTALL.  Remove "/lib/font/bit" substitute and substitute more fonts.

Change-Id: Ic99b5ed29e13bcdfde62e065fb189a9c6b5a9580
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Homo 2024-12-30 04:48:39 +02:00 committed by 宋文武
parent 95fd0a5a2c
commit fd6e8c5056
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 28 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
gnu/packages/plan9.scm
View file

@ -117,17 +117,36 @@ (define-public plan9port
(add-after 'unpack 'setup
(lambda _
(let ((dest (string-append #$output "/plan9")))
(substitute* "INSTALL"
;; Install fontsrv, which is enabled in LOCAL.config.
(("rm -f bin/fontsrv") ""))
(delete-file "src/cmd/mk/mk.pdf")
;; TODO: substitute font in src/cmd/venti/srv/graph.c
(substitute* "src/cmd/acme/acme.c"
(("/lib/font/bit/lucsans/euro.8.font")
(string-append dest
"/font/fixed/unicode.5x8.font"))
(("/lib/font/bit/lucm/unicode.9.font")
(string-append dest
"/font/fixed/unicode.6x9.font")))
(substitute* (find-files "src")
(("/lib/font/bit")
(string-append dest "/font")))
(("lucsans/euro.8.font")
"fixed/unicode.8x13.font")
(("lucm/unicode.9.font")
"fixed/unicode.9x15B.font"))
(substitute* "src/cmd/mnihongo/mnihongo.c"
(("pelm/unicode.9x24.font")
"fixed/unicode.10x20.font"))
(substitute* "src/cmd/rio/winwatch.c"
(("lucsans/unicode.8.font")
"fixed/unicode.8x13.font"))
(substitute* "src/cmd/draw/stats.c"
(("pelm/latin1.8.font")
"fixed/unicode.8x13.font"))
(substitute* "src/cmd/faces/main.c"
(("pelm/latin1.8.font")
"fixed/unicode.8x13.font"))
(substitute* "src/cmd/fossil/view.c"
(("lucsans/unicode.8.font")
"fixed/unicode.8x13.font")
(("lucidasans/unicode.8.font")
"fixed/unicode.8x13.font"))
(substitute* "src/cmd/scat/plot.c"
(("luc/unicode.6.font")
"fixed/unicode.6x9.font"))
(substitute* "bin/9c"
(("which")
(which "which")))