From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:43233) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1egEez-0001MQ-Mq for guix-patches@gnu.org; Mon, 29 Jan 2018 14:00:06 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1egEew-0004Yk-LJ for guix-patches@gnu.org; Mon, 29 Jan 2018 14:00:05 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:40302) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1egEew-0004YP-IK for guix-patches@gnu.org; Mon, 29 Jan 2018 14:00:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1egEew-0002RJ-8F for guix-patches@gnu.org; Mon, 29 Jan 2018 14:00:02 -0500 Subject: [bug#30286] [PATCH] gnu: Add culmus. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:43050) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1egEe2-0001AU-8s for guix-patches@gnu.org; Mon, 29 Jan 2018 13:59:07 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1egEdz-0003WM-79 for guix-patches@gnu.org; Mon, 29 Jan 2018 13:59:06 -0500 Received: from flashner.co.il ([178.62.234.194]:41456) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1egEdy-0003UU-Ti for guix-patches@gnu.org; Mon, 29 Jan 2018 13:59:03 -0500 From: Efraim Flashner Date: Mon, 29 Jan 2018 20:58:42 +0200 Message-Id: <20180129185842.24933-1-efraim@flashner.co.il> MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 30286@debbugs.gnu.org Cc: Efraim Flashner * 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 ra= nge 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=3Dff" + "-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), s= ans +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 --=20 2.16.1