[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/06: gnu: Add ttf2pt1.
From: |
Ludovic Courtès |
Subject: |
05/06: gnu: Add ttf2pt1. |
Date: |
Tue, 9 Oct 2018 12:54:29 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 64965a068d82d1730097e61f6443a8812051934b
Author: Ludovic Courtès <address@hidden>
Date: Tue Oct 9 15:21:54 2018 +0200
gnu: Add ttf2pt1.
* gnu/packages/fontutils.scm (ttf2pt1): New variable.
---
gnu/packages/fontutils.scm | 53 ++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 53 insertions(+)
diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm
index 30143eb..09ba9b7 100644
--- a/gnu/packages/fontutils.scm
+++ b/gnu/packages/fontutils.scm
@@ -7,6 +7,7 @@
;;; Copyright © 2017 Leo Famulari <address@hidden>
;;; Copyright © 2017 Nils Gillmann <address@hidden>
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <address@hidden>
+;;; Copyright © 2018 Ludovic Courtès <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -190,6 +191,58 @@ TTF (TrueType/OpenType Font) files.")
(license license:bsd-2)
(home-page "https://github.com/wget/ttf2eot")))
+(define-public ttf2pt1
+ (package
+ (name "ttf2pt1")
+ (version "3.4.4")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://sourceforge/ttf2pt1/ttf2pt1/"
+ version "/ttf2pt1-" version ".tgz"))
+ (sha256
+ (base32
+ "1l718n4k4widx49xz7qrj4mybzb8q67kp2jw7f47604ips4654mf"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ ;; 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"))))))
+ (inputs `(("perl" ,perl)))
+ (synopsis "Convert TrueType fonts to Postscript Type 1")
+ (description
+ "TTF2PT1 provides tools to convert most TrueType fonts (or other formats
+supported by the FreeType library) to an Adobe Type 1 @file{.pfa} or
address@hidden file. Another use is as a hinting engine: feed it an unhinted or
+poorly hinted Adobe Type 1 font through the FreeType library and get it back
+with freshly generated hints. The files produced by default are in
+human-readable form, which further needs to be encoded with t1utilities to
+work with most software requiring Type 1 fonts.")
+ (home-page "http://ttf2pt1.sourceforge.net/")
+ (license license:bsd-3)))
+
(define-public woff2
(let ((commit "4e698b8c6c5e070d53c340db9ddf160e21070ede")
(revision "1"))
- branch master updated (1fe57b3 -> b33e191), Ludovic Courtès, 2018/10/09
- 03/06: pull: '-l' now honors '-p'., Ludovic Courtès, 2018/10/09
- 05/06: gnu: Add ttf2pt1.,
Ludovic Courtès <=
- 04/06: profiles: Make Geiser happy., Ludovic Courtès, 2018/10/09
- 02/06: status: Gracefully handle invalid UTF-8 in build logs., Ludovic Courtès, 2018/10/09
- 01/06: tests: "make check-system" produces colored output., Ludovic Courtès, 2018/10/09
- 06/06: guix build: '-f' accepts file-like objects., Ludovic Courtès, 2018/10/09