unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#39405] [PATCH] gnu: Add fntsample.
@ 2020-02-03 11:45 Roel Janssen
  2020-02-05  0:39 ` Leo Famulari
  0 siblings, 1 reply; 5+ messages in thread
From: Roel Janssen @ 2020-02-03 11:45 UTC (permalink / raw)
  To: 39405

[-- Attachment #1: Type: text/plain, Size: 106 bytes --]

Dear Guix,

I'd like to add "fntsample".  The following two patches do that.

Kind regards,
Roel Janssen


[-- Attachment #2: 0001-gnu-Add-perl-pdf-api2.patch --]
[-- Type: text/x-patch, Size: 1579 bytes --]

From 55ee95f843424cb9f65e4ff3514739b6238a9e14 Mon Sep 17 00:00:00 2001
From: Roel Janssen <roel@gnu.org>
Date: Mon, 3 Feb 2020 12:28:18 +0100
Subject: [PATCH 1/2] gnu: Add perl-pdf-api2.

* gnu/packages/perl.scm (perl-pdf-api2): New variable.
---
 gnu/packages/perl.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 9fc3493a5d..c226f7a996 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -7226,6 +7226,30 @@ file names.")
 with file paths.")
     (license asl2.0)))
 
+(define-public perl-pdf-api2
+  (package
+    (name "perl-pdf-api2")
+    (version "2.036")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/S/SS/SSIMMS/PDF-API2-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0x0pa75wpb87pcshl92y5nh8pzikjp46ljlr2pqvdgpqzvll8107"))))
+    (build-system perl-build-system)
+    (native-inputs
+     `(("perl-test-exception" ,perl-test-exception)
+       ("perl-test-memory-cycle" ,perl-test-memory-cycle)))
+    (propagated-inputs
+     `(("perl-font-ttf" ,perl-font-ttf)))
+    (home-page "https://metacpan.org/release/PDF-API2")
+    (synopsis "Facilitates the creation and modification of PDF files")
+    (description "This Perl module facilitates the creation and modification
+of PDF files.")
+    (license lgpl2.1)))
+
 (define-public perl-perlio-utf8_strict
   (package
     (name "perl-perlio-utf8-strict")
-- 
2.17.1


[-- Attachment #3: 0002-gnu-Add-fntsample.patch --]
[-- Type: text/x-patch, Size: 3683 bytes --]

From 17df554661c71e8724bf3e241021345b9b9cefef Mon Sep 17 00:00:00 2001
From: Roel Janssen <roel@gnu.org>
Date: Mon, 3 Feb 2020 12:29:33 +0100
Subject: [PATCH 2/2] gnu: Add fntsample.

* gnu/packages/fontutils.scm (fntsample): New variable.
---
 gnu/packages/fontutils.scm | 62 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)

diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm
index aba6f07537..b5a2531597 100644
--- a/gnu/packages/fontutils.scm
+++ b/gnu/packages/fontutils.scm
@@ -10,6 +10,7 @@
 ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2020 Roel Janssen <roel@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -774,3 +775,64 @@ tools or editing configuration files by hand.
 While designed primarily with the GNOME Desktop Environment in mind, it should
 work well with other GTK+ desktop environments.")
    (license license:gpl3+)))
+
+(define-public fntsample
+  (package
+    (name "fntsample")
+    (version "5.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://github.com/eugmes/fntsample/archive/release/"
+                    version ".tar.gz"))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0awp4dh1g40ivzvm5xqlvcpcdw1vplrx3drjmbylr62y185vbs74"))))
+    (build-system cmake-build-system)
+    (arguments
+     `(#:tests? #f ; There are no tests.
+       #:configure-flags
+       (list (string-append
+              "-DUNICODE_BLOCKS=" (assoc-ref %build-inputs "unicode-blocks")))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'set-library-path
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let* ((out      (assoc-ref outputs "out"))
+                    (pdf-api2 (assoc-ref inputs "perl-pdf-api2"))
+                    (intl     (assoc-ref inputs "perl-libintl-perl"))
+                    (perllib  (string-append pdf-api2
+                                             "/lib/perl5/site_perl/"
+                                             ,(package-version perl)
+                                             ":" intl
+                                             "/lib/perl5/site_perl/"
+                                             ,(package-version perl))))
+               (wrap-program (string-append out "/bin/pdfoutline")
+                 `("PERL5LIB" ":" prefix (,perllib)))
+               #t))))))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)
+       ("gettext" ,gettext-minimal)))
+    (inputs
+     `(("cairo" ,cairo)
+       ("fontconfig" ,fontconfig)
+       ("freetype" ,freetype)
+       ("glib" ,glib)
+       ("pango" ,pango)
+       ("perl-pdf-api2" ,perl-pdf-api2)
+       ("perl-libintl-perl" ,perl-libintl-perl)
+       ("unicode-blocks"
+        ,(origin
+           (method url-fetch)
+           (uri "http://unicode.org/Public/UNIDATA/Blocks.txt")
+           (file-name "unicode-blocks.txt")
+           (sha256
+            (base32
+             "1xs8fnhh48gs41wg004r7m4r2azh9khmyjjlnvyzy9c6zrd212x2"))))))
+    (home-page "https://github.com/eugmes/fntsample")
+    (synopsis "PDF and PostScript font samples generator")
+    (description "This package provides a tool that can be used to make font
+samples that show coverage of the font and are similar in appearance to
+Unicode Charts.  It was developed for use with DejaVu Fonts project.")
+    (license license:gpl3+)))
-- 
2.17.1


^ permalink raw reply related	[flat|nested] 5+ messages in thread

* [bug#39405] [PATCH] gnu: Add fntsample.
  2020-02-03 11:45 [bug#39405] [PATCH] gnu: Add fntsample Roel Janssen
@ 2020-02-05  0:39 ` Leo Famulari
  2020-02-07 15:35   ` Roel Janssen
  0 siblings, 1 reply; 5+ messages in thread
From: Leo Famulari @ 2020-02-05  0:39 UTC (permalink / raw)
  To: Roel Janssen; +Cc: 39405

On Mon, Feb 03, 2020 at 12:45:44PM +0100, Roel Janssen wrote:
> Dear Guix,
> 
> I'd like to add "fntsample".  The following two patches do that.
> 
> Kind regards,
> Roel Janssen
> 

> From 55ee95f843424cb9f65e4ff3514739b6238a9e14 Mon Sep 17 00:00:00 2001
> From: Roel Janssen <roel@gnu.org>
> Date: Mon, 3 Feb 2020 12:28:18 +0100
> Subject: [PATCH 1/2] gnu: Add perl-pdf-api2.
> 
> * gnu/packages/perl.scm (perl-pdf-api2): New variable.

LGTM, thanks!

> From 17df554661c71e8724bf3e241021345b9b9cefef Mon Sep 17 00:00:00 2001
> From: Roel Janssen <roel@gnu.org>
> Date: Mon, 3 Feb 2020 12:29:33 +0100
> Subject: [PATCH 2/2] gnu: Add fntsample.
> 
> * gnu/packages/fontutils.scm (fntsample): New variable.

> +           (uri "http://unicode.org/Public/UNIDATA/Blocks.txt")

Can it go over HTTPS?

Otherwise LGTM

^ permalink raw reply	[flat|nested] 5+ messages in thread

* [bug#39405] [PATCH] gnu: Add fntsample.
  2020-02-05  0:39 ` Leo Famulari
@ 2020-02-07 15:35   ` Roel Janssen
  2020-02-07 23:16     ` Leo Famulari
  0 siblings, 1 reply; 5+ messages in thread
From: Roel Janssen @ 2020-02-07 15:35 UTC (permalink / raw)
  To: Leo Famulari; +Cc: 39405

[-- Attachment #1: Type: text/plain, Size: 1012 bytes --]

On Tue, 2020-02-04 at 19:39 -0500, Leo Famulari wrote:
> On Mon, Feb 03, 2020 at 12:45:44PM +0100, Roel Janssen wrote:
> > Dear Guix,
> > 
> > I'd like to add "fntsample".  The following two patches do that.
> > 
> > Kind regards,
> > Roel Janssen
> > 
> > From 55ee95f843424cb9f65e4ff3514739b6238a9e14 Mon Sep 17 00:00:00
> > 2001
> > From: Roel Janssen <roel@gnu.org>
> > Date: Mon, 3 Feb 2020 12:28:18 +0100
> > Subject: [PATCH 1/2] gnu: Add perl-pdf-api2.
> > 
> > * gnu/packages/perl.scm (perl-pdf-api2): New variable.
> 
> LGTM, thanks!
> 
> > From 17df554661c71e8724bf3e241021345b9b9cefef Mon Sep 17 00:00:00
> > 2001
> > From: Roel Janssen <roel@gnu.org>
> > Date: Mon, 3 Feb 2020 12:29:33 +0100
> > Subject: [PATCH 2/2] gnu: Add fntsample.
> > 
> > * gnu/packages/fontutils.scm (fntsample): New variable.
> > +           (uri "http://unicode.org/Public/UNIDATA/Blocks.txt")
> 
> Can it go over HTTPS?

It seems so!  I updated the patch(es) and attached them again.

Thanks!

Kind regards,
Roel Janssen


[-- Attachment #2: 0002-gnu-Add-fntsample.patch --]
[-- Type: text/x-patch, Size: 3684 bytes --]

From 271773d02e23b233bf39712d6c63aac8ed79f872 Mon Sep 17 00:00:00 2001
From: Roel Janssen <roel@gnu.org>
Date: Mon, 3 Feb 2020 12:29:33 +0100
Subject: [PATCH 2/2] gnu: Add fntsample.

* gnu/packages/fontutils.scm (fntsample): New variable.
---
 gnu/packages/fontutils.scm | 62 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)

diff --git a/gnu/packages/fontutils.scm b/gnu/packages/fontutils.scm
index aba6f07537..fe4da8d75b 100644
--- a/gnu/packages/fontutils.scm
+++ b/gnu/packages/fontutils.scm
@@ -10,6 +10,7 @@
 ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2020 Roel Janssen <roel@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -774,3 +775,64 @@ tools or editing configuration files by hand.
 While designed primarily with the GNOME Desktop Environment in mind, it should
 work well with other GTK+ desktop environments.")
    (license license:gpl3+)))
+
+(define-public fntsample
+  (package
+    (name "fntsample")
+    (version "5.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://github.com/eugmes/fntsample/archive/release/"
+                    version ".tar.gz"))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0awp4dh1g40ivzvm5xqlvcpcdw1vplrx3drjmbylr62y185vbs74"))))
+    (build-system cmake-build-system)
+    (arguments
+     `(#:tests? #f ; There are no tests.
+       #:configure-flags
+       (list (string-append
+              "-DUNICODE_BLOCKS=" (assoc-ref %build-inputs "unicode-blocks")))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'set-library-path
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let* ((out      (assoc-ref outputs "out"))
+                    (pdf-api2 (assoc-ref inputs "perl-pdf-api2"))
+                    (intl     (assoc-ref inputs "perl-libintl-perl"))
+                    (perllib  (string-append pdf-api2
+                                             "/lib/perl5/site_perl/"
+                                             ,(package-version perl)
+                                             ":" intl
+                                             "/lib/perl5/site_perl/"
+                                             ,(package-version perl))))
+               (wrap-program (string-append out "/bin/pdfoutline")
+                 `("PERL5LIB" ":" prefix (,perllib)))
+               #t))))))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)
+       ("gettext" ,gettext-minimal)))
+    (inputs
+     `(("cairo" ,cairo)
+       ("fontconfig" ,fontconfig)
+       ("freetype" ,freetype)
+       ("glib" ,glib)
+       ("pango" ,pango)
+       ("perl-pdf-api2" ,perl-pdf-api2)
+       ("perl-libintl-perl" ,perl-libintl-perl)
+       ("unicode-blocks"
+        ,(origin
+           (method url-fetch)
+           (uri "https://unicode.org/Public/UNIDATA/Blocks.txt")
+           (file-name "unicode-blocks.txt")
+           (sha256
+            (base32
+             "1xs8fnhh48gs41wg004r7m4r2azh9khmyjjlnvyzy9c6zrd212x2"))))))
+    (home-page "https://github.com/eugmes/fntsample")
+    (synopsis "PDF and PostScript font samples generator")
+    (description "This package provides a tool that can be used to make font
+samples that show coverage of the font and are similar in appearance to
+Unicode Charts.  It was developed for use with DejaVu Fonts project.")
+    (license license:gpl3+)))
-- 
2.17.1


[-- Attachment #3: 0001-gnu-Add-perl-pdf-api2.patch --]
[-- Type: text/x-patch, Size: 1579 bytes --]

From b88d7d217595050aad6b74a0b4a8394f7a3213ce Mon Sep 17 00:00:00 2001
From: Roel Janssen <roel@gnu.org>
Date: Mon, 3 Feb 2020 12:28:18 +0100
Subject: [PATCH 1/2] gnu: Add perl-pdf-api2.

* gnu/packages/perl.scm (perl-pdf-api2): New variable.
---
 gnu/packages/perl.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 9fc3493a5d..c226f7a996 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -7226,6 +7226,30 @@ file names.")
 with file paths.")
     (license asl2.0)))
 
+(define-public perl-pdf-api2
+  (package
+    (name "perl-pdf-api2")
+    (version "2.036")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/S/SS/SSIMMS/PDF-API2-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0x0pa75wpb87pcshl92y5nh8pzikjp46ljlr2pqvdgpqzvll8107"))))
+    (build-system perl-build-system)
+    (native-inputs
+     `(("perl-test-exception" ,perl-test-exception)
+       ("perl-test-memory-cycle" ,perl-test-memory-cycle)))
+    (propagated-inputs
+     `(("perl-font-ttf" ,perl-font-ttf)))
+    (home-page "https://metacpan.org/release/PDF-API2")
+    (synopsis "Facilitates the creation and modification of PDF files")
+    (description "This Perl module facilitates the creation and modification
+of PDF files.")
+    (license lgpl2.1)))
+
 (define-public perl-perlio-utf8_strict
   (package
     (name "perl-perlio-utf8-strict")
-- 
2.17.1


^ permalink raw reply related	[flat|nested] 5+ messages in thread

* [bug#39405] [PATCH] gnu: Add fntsample.
  2020-02-07 15:35   ` Roel Janssen
@ 2020-02-07 23:16     ` Leo Famulari
  2020-03-04  8:13       ` bug#39405: " Roel Janssen
  0 siblings, 1 reply; 5+ messages in thread
From: Leo Famulari @ 2020-02-07 23:16 UTC (permalink / raw)
  To: Roel Janssen; +Cc: 39405

> It seems so!  I updated the patch(es) and attached them again.

LGTM, please push!

^ permalink raw reply	[flat|nested] 5+ messages in thread

* bug#39405: [PATCH] gnu: Add fntsample.
  2020-02-07 23:16     ` Leo Famulari
@ 2020-03-04  8:13       ` Roel Janssen
  0 siblings, 0 replies; 5+ messages in thread
From: Roel Janssen @ 2020-03-04  8:13 UTC (permalink / raw)
  To: Leo Famulari; +Cc: 39405-done

On Fri, 2020-02-07 at 18:16 -0500, Leo Famulari wrote:
> > It seems so!  I updated the patch(es) and attached them again.
> 
> LGTM, please push!
> 

Sorry for the long delay.  I just pushed these patches.

Kind regards,
Roel Janssen

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2020-03-04  8:14 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-02-03 11:45 [bug#39405] [PATCH] gnu: Add fntsample Roel Janssen
2020-02-05  0:39 ` Leo Famulari
2020-02-07 15:35   ` Roel Janssen
2020-02-07 23:16     ` Leo Famulari
2020-03-04  8:13       ` bug#39405: " Roel Janssen

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).