From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
To: Leo Prikler <leo.prikler@student.tugraz.at>
Cc: 48620-done@debbugs.gnu.org
Subject: bug#48620: [PATCH] gnu: Add font-ipa-ex.
Date: Sun, 22 May 2022 00:12:19 -0400 [thread overview]
Message-ID: <87wnee6w9o.fsf@gmail.com> (raw)
In-Reply-To: <20210524084644.31047-1-leo.prikler@student.tugraz.at> (Leo Prikler's message of "Mon, 24 May 2021 10:46:45 +0200")
Hello!
Leo Prikler <leo.prikler@student.tugraz.at> writes:
> * gnu/packages/fonts.scm (font-ipa-ex): New variable.
> ---
> gnu/packages/fonts.scm | 43 ++++++++++++++++++++++++++++++++++++++++++
> 1 file changed, 43 insertions(+)
>
> diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm
> index 726bef183c..711344191c 100644
> --- a/gnu/packages/fonts.scm
> +++ b/gnu/packages/fonts.scm
> @@ -2031,6 +2031,49 @@ orthography of Roman glyphs of Meera Inimai are also based on this
> characteristic so that they sit smoothly with the Tamil glyphs.")
> (license license:silofl1.1)))
>
> +(define-public font-ipa-ex
> + (package
> + (name "font-ipa-ex")
> + (version "004.01")
> + (source (origin
> + (method url-fetch/zipbomb)
> + (uri (string-append "https://moji.or.jp/wp-content/ipafont/IPAexfont/"
> + "IPAexfont" (string-join (string-split version #\.) "")
> + ".zip"))
> + (sha256
> + (base32
> + "0jwpszgisrls1lsgq1ngcm99zjaikb8hshr02512qrzrnd53gy5w"))))
> + (build-system font-build-system)
> + (arguments
> + `(#:phases
> + (modify-phases %standard-phases
> + (add-after 'unpack 'make-read-only
> + (lambda _
> + (for-each
> + (lambda (file)
> + (chmod file #o444))
> + (find-files "." #:directories? #f))
> + #t))
> + (add-after 'install 'install-doc
> + (lambda* (#:key outputs #:allow-other-keys)
> + (let ((font+version (string-append
> + "IPAexfont"
> + ,(string-join (string-split version #\.) "")))
> + (doc-dir (string-append (assoc-ref outputs "out")
> + "/share/doc/font-ipa-ex")))
> + (with-directory-excursion font+version
> + (mkdir-p doc-dir)
> + (copy-file (string-append "Readme_" font+version ".txt")
> + (string-append doc-dir "/README"))
> + (copy-file "IPA_Font_License_Agreement_v1.0.txt"
> + (string-append doc-dir "/LICENSE")))
> + #t))))))
> + (home-page "https://moji.or.jp/ipafont/")
> + (synopsis "Japanese font from the Information-technology Promotion Agency")
> + (description "IPAex is fixed-width font that aims to improve the
> +convenience of Japanese document creation.")
> + (license license:ipa)))
> +
> (define-public font-ipa-mj-mincho
> (package
> (name "font-ipa-mj-mincho")
I made the following changes:
--8<---------------cut here---------------start------------->8---
1 file changed, 33 insertions(+), 28 deletions(-)
gnu/packages/fonts.scm | 61 +++++++++++++++++++++++++++++++++----------------------------
modified gnu/packages/fonts.scm
@@ -48,6 +48,7 @@
;;; Copyright © 2021 Wamm K. D. <jaft.r@outlook.com>
;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -2256,41 +2257,45 @@ (define-public font-ipa-ex
(version "004.01")
(source (origin
(method url-fetch/zipbomb)
- (uri (string-append "https://moji.or.jp/wp-content/ipafont/IPAexfont/"
- "IPAexfont" (string-join (string-split version #\.) "")
- ".zip"))
+ (uri (string-append
+ "https://moji.or.jp/wp-content/ipafont/IPAexfont/"
+ "IPAexfont" (string-join (string-split version #\.) "")
+ ".zip"))
(sha256
(base32
"0jwpszgisrls1lsgq1ngcm99zjaikb8hshr02512qrzrnd53gy5w"))))
(build-system font-build-system)
(arguments
- `(#:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'make-read-only
- (lambda _
- (for-each
- (lambda (file)
- (chmod file #o444))
- (find-files "." #:directories? #f))
- #t))
- (add-after 'install 'install-doc
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((font+version (string-append
- "IPAexfont"
- ,(string-join (string-split version #\.) "")))
- (doc-dir (string-append (assoc-ref outputs "out")
- "/share/doc/font-ipa-ex")))
- (with-directory-excursion font+version
- (mkdir-p doc-dir)
- (copy-file (string-append "Readme_" font+version ".txt")
- (string-append doc-dir "/README"))
- (copy-file "IPA_Font_License_Agreement_v1.0.txt"
- (string-append doc-dir "/LICENSE")))
- #t))))))
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'make-read-only
+ (lambda _
+ ;; Otherwise the files have the executable bit set.
+ (for-each (lambda (file)
+ (chmod file #o444))
+ (find-files "." #:directories? #f))))
+ (add-after 'install 'install-doc
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((font+version
+ #$(string-append
+ "IPAexfont"
+ (string-join (string-split version #\.) "")))
+ (doc-dir (string-append #$output "/share/doc/" #$name)))
+ (with-directory-excursion font+version
+ (mkdir-p doc-dir)
+ (copy-file (string-append "Readme_" font+version ".txt")
+ (string-append doc-dir "/README"))
+ (copy-file "IPA_Font_License_Agreement_v1.0.txt"
+ (string-append doc-dir "/LICENSE")))))))))
(home-page "https://moji.or.jp/ipafont/")
(synopsis "Japanese font from the Information-technology Promotion Agency")
- (description "IPAex is fixed-width font that aims to improve the
-convenience of Japanese document creation.")
+ (description "IPAex Fonts are suitable for both display and printing.
+This is a modernized version of IPA Fonts that aims to provide a good balance
+for authoring Japanese documents mixed with Western characters, while
+following Japanese printing tradition. Japanese characters (Kanji, Kana and
+punctuation marks) are full width mono-space pitch, and Western characters are
+proportional pitch.")
(license license:ipa)))
(define-public font-ipa-mj-mincho
--8<---------------cut here---------------end--------------->8---
mostly improving the description, and pushed as 6e0b2adf5f.
Thanks!
Maxim
prev parent reply other threads:[~2022-05-22 4:13 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-05-24 8:46 [bug#48620] [PATCH] gnu: Add font-ipa-ex Leo Prikler
2022-05-22 4:12 ` Maxim Cournoyer [this message]
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=87wnee6w9o.fsf@gmail.com \
--to=maxim.cournoyer@gmail.com \
--cc=48620-done@debbugs.gnu.org \
--cc=leo.prikler@student.tugraz.at \
/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.