From: Efraim Flashner <efraim@flashner.co.il>
To: 30286@debbugs.gnu.org
Cc: Efraim Flashner <efraim@flashner.co.il>
Subject: [bug#30286] [PATCH] gnu: Add culmus.
Date: Mon, 29 Jan 2018 20:58:42 +0200 [thread overview]
Message-ID: <20180129185842.24933-1-efraim@flashner.co.il> (raw)
* gnu/packages/fonts.scm (culmus): New variable.
---
gnu/packages/fonts.scm | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 68 insertions(+)
diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
index ccf05fec2..4933a469f 100644
--- a/gnu/packages/fonts.scm
+++ b/gnu/packages/fonts.scm
@@ -1199,3 +1199,71 @@ that's clean and modern, and can express a wide range of voices & feelings.
It comes in 7 incremental weights:
ExtraLight, Light, Book, Medium, Semibold, Bold & ExtraBold")
(license license:silofl1.1)))
+
+(define-public culmus
+ (package
+ (name "culmus")
+ (version "0.132")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://sourceforge.net/projects/"
+ "culmus/files/culmus/" version "/culmus-src-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "1djxalm26r7bcq33ckmfa15xfs6pmqzvcl64d5lqa1dl01bl4j4z"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f ; no tests
+ #:modules ((guix build utils)
+ (guix build gnu-build-system)
+ (srfi srfi-1)
+ (srfi srfi-26))
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (replace 'build
+ (lambda _
+ (let ((compile
+ (lambda (name ext)
+ (zero? (system*
+ "fontforge" "-lang=ff"
+ "-c" (string-append "Open('" name "');"
+ "Generate('"
+ (basename name "sfd") ext
+ "')"))))))
+ ;; This part based on the fonts shipped in the non-source package.
+ (every (lambda (name)
+ (compile name "ttf"))
+ (find-files "." "^[^Nachlieli].*\\.sfd$"))
+ (every (lambda (name)
+ (compile name "otf"))
+ (find-files "." "^Nachlieli.*\\.sfd$"))
+ #t)))
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref %outputs "out"))
+ (ttf (string-append out "/share/fonts/truetype"))
+ (otf (string-append out "/share/fonts/opentype"))
+ (license (string-append out "/share/doc/" ,name)))
+ (for-each (lambda (file)
+ (install-file file ttf))
+ (find-files "." "\\.ttf$"))
+ (for-each (lambda (file)
+ (install-file file otf))
+ (find-files "." "\\.otf$"))
+ (for-each (lambda (file)
+ (install-file file license))
+ '("GNU-GPL" "LICENSE" "LICENSE-BITSTREAM"))
+ #t))))))
+ (native-inputs
+ `(("fontforge" ,fontforge)))
+ (home-page "http://culmus.sourceforge.net/")
+ (synopsis "TrueType and Type1 Hebrew Fonts for X11")
+ (description "14 Hebrew trivial families. Contain ASCII glyphs from various
+sources. Those families provide a basic set of a serif (Frank Ruehl), sans
+serif (Nachlieli) and monospaced (Miriam Mono) trivials. Also included Miriam,
+Drugulin, Aharoni, David, Hadasim etc. Cantillation marks support is
+available in Keter YG.")
+ (license license:gpl2))) ; consult the LICENSE file included
--
2.16.1
next reply other threads:[~2018-01-29 19:00 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-01-29 18:58 Efraim Flashner [this message]
2018-01-29 21:49 ` [bug#30286] [PATCH] gnu: Add culmus Leo Famulari
2018-01-30 7:07 ` Efraim Flashner
2018-01-30 22:45 ` Leo Famulari
2018-02-13 19:44 ` bug#30286: " Efraim Flashner
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20180129185842.24933-1-efraim@flashner.co.il \
--to=efraim@flashner.co.il \
--cc=30286@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.