[PATCH 0/3] Add gramps and dependencies

DoneSubmitted by Guillaume LE VAILLANT.
Details
2 participants
  • Guillaume LE VAILLANT
  • Ludovic Courtès
Owner
unassigned
Severity
normal
G
G
Guillaume LE VAILLANT wrote on 14 Jun 2019 19:27
(address . guix-patches@gnu.org)(address . glv@posteo.net)
20190614172751.22468-1-glv@posteo.net
This patch series adds the Gramps genealogy program.
G
G
Guillaume LE VAILLANT wrote on 14 Jun 2019 19:27
[PATCH 3/3] gnu: Add gramps
(address . guix-patches@gnu.org)(address . glv@posteo.net)
20190614172751.22468-4-glv@posteo.net
* gnu/packages/genealogy.scm: New file.* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.--- gnu/local.mk | 2 + gnu/packages/genealogy.scm | 112 +++++++++++++++++++++++++++++++++++++ 2 files changed, 114 insertions(+) create mode 100644 gnu/packages/genealogy.scm
Toggle diff (140 lines)diff --git a/gnu/local.mk b/gnu/local.mkindex 75fb24a0c5..1a4000b6a0 100644--- a/gnu/local.mk+++ b/gnu/local.mk@@ -20,6 +20,7 @@ # Copyright © 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com> # Copyright © 2018 Stefan Stefanović <stefanx2ovic@gmail.com> # Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>+# Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net> # # This file is part of GNU Guix. #@@ -195,6 +196,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/gcc.scm \ %D%/packages/gd.scm \ %D%/packages/gdb.scm \+ %D%/packages/genealogy.scm \ %D%/packages/genimage.scm \ %D%/packages/geo.scm \ %D%/packages/gettext.scm \diff --git a/gnu/packages/genealogy.scm b/gnu/packages/genealogy.scmnew file mode 100644index 0000000000..0ba29de0fb--- /dev/null+++ b/gnu/packages/genealogy.scm@@ -0,0 +1,112 @@+;;; GNU Guix --- Functional package management for GNU+;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>+;;;+;;; This file is part of GNU Guix.+;;;+;;; GNU Guix is free software; you can redistribute it and/or modify it+;;; under the terms of the GNU General Public License as published by+;;; the Free Software Foundation; either version 3 of the License, or (at+;;; your option) any later version.+;;;+;;; GNU Guix is distributed in the hope that it will be useful, but+;;; WITHOUT ANY WARRANTY; without even the implied warranty of+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the+;;; GNU General Public License for more details.+;;;+;;; You should have received a copy of the GNU General Public License+;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.++(define-module (gnu packages genealogy)+ #:use-module (guix build-system python)+ #:use-module (guix git-download)+ #:use-module ((guix licenses) #:prefix license:)+ #:use-module (guix packages)+ #:use-module (gnu packages fonts)+ #:use-module (gnu packages freedesktop)+ #:use-module (gnu packages geo)+ #:use-module (gnu packages gettext)+ #:use-module (gnu packages ghostscript)+ #:use-module (gnu packages glib)+ #:use-module (gnu packages gnome)+ #:use-module (gnu packages graphviz)+ #:use-module (gnu packages gtk)+ #:use-module (gnu packages python)+ #:use-module (gnu packages python-xyz)+ #:use-module (gnu packages sqlite)+ #:use-module (gnu packages version-control))++(define-public gramps+ (package+ (name "gramps")+ (version "5.0.1")+ (source+ (origin+ (method git-fetch)+ (uri (git-reference+ (url "https://github.com/gramps-project/gramps.git")+ (commit (string-append "v" version))))+ (file-name (git-file-name name version))+ (sha256+ (base32+ "1jz1fbjj6byndvir7qxzhd2ryirrd5h2kwndxpp53xdc05z1i8g7"))))+ (build-system python-build-system)+ (native-inputs+ `(("gettext" ,gettext-minimal)))+ (inputs+ `(("font-gnu-freefont-ttf" ,font-gnu-freefont-ttf)+ ("geocode-glib" ,geocode-glib)+ ("gexiv2" ,gexiv2)+ ("ghostscript" ,ghostscript)+ ("gobject-introspection" ,gobject-introspection)+ ("gtk+" ,gtk+)+ ("gtkspell3" ,gtkspell3)+ ("graphviz" ,graphviz)+ ("intltool" ,intltool)+ ("librsvg" ,librsvg)+ ("osm-gps-map" ,osm-gps-map)+ ("pango" ,pango)+ ("python-bsddb3" ,python-bsddb3)+ ("python-pillow" ,python-pillow)+ ("python-pycairo" ,python-pycairo)+ ("python-pygobject" ,python-pygobject)+ ("python-pyicu" ,python-pyicu)+ ("rcs" ,rcs)+ ("sqlite" ,sqlite)+ ("xdg-utils" ,xdg-utils)))+ (arguments+ `(#:imported-modules ((guix build glib-or-gtk-build-system)+ ,@%python-build-system-modules)+ #:modules ((ice-9 match)+ (guix build python-build-system)+ ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)+ (guix build utils))+ #:phases+ (modify-phases %standard-phases+ (add-before 'check 'set-home-for-tests+ (lambda _+ (setenv "HOME" (getenv "TMPDIR"))+ #t))+ (add-before 'wrap 'wrap-with-GI_TYPELIB_PATH+ (lambda* (#:key inputs outputs #:allow-other-keys)+ (let ((out (assoc-ref outputs "out"))+ (paths (map (match-lambda+ ((output . directory)+ (let ((girepodir (string-append+ directory+ "/lib/girepository-1.0")))+ (if (file-exists? girepodir)+ girepodir+ #f))))+ inputs)))+ (wrap-program (string-append out "/bin/gramps")+ `("GI_TYPELIB_PATH" ":" prefix ,(filter identity paths))))+ #t))+ (add-after 'wrap 'glib-or-gtk-wrap+ (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))+ (home-page "https://gramps-project.org")+ (synopsis "Genealogical research software")+ (description+ "Gramps is a free software project and community striving to produce+a genealogy program that is both intuitive for hobbyists and feature-complete+for professional genealogists.")+ (license license:gpl2+)))-- 2.22.0
L
L
Ludovic Courtès wrote on 26 Jun 2019 15:56
(name . Guillaume LE VAILLANT)(address . glv@posteo.net)(address . 36209-done@debbugs.gnu.org)
87imssih6x.fsf@gnu.org
Guillaume LE VAILLANT <glv@posteo.net> skribis:
Toggle quote (3 lines)> * gnu/packages/genealogy.scm: New file.> * gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
Applied with the change below suggested by ‘guix lint’.
Thanks!
Ludo’.
Toggle diff (22 lines)diff --git a/gnu/packages/genealogy.scm b/gnu/packages/genealogy.scmindex 0ba29de0fb..2db3fdb918 100644--- a/gnu/packages/genealogy.scm+++ b/gnu/packages/genealogy.scm@@ -51,7 +51,8 @@ "1jz1fbjj6byndvir7qxzhd2ryirrd5h2kwndxpp53xdc05z1i8g7")))) (build-system python-build-system) (native-inputs- `(("gettext" ,gettext-minimal)))+ `(("gettext" ,gettext-minimal)+ ("intltool" ,intltool))) (inputs `(("font-gnu-freefont-ttf" ,font-gnu-freefont-ttf) ("geocode-glib" ,geocode-glib)@@ -61,7 +62,6 @@ ("gtk+" ,gtk+) ("gtkspell3" ,gtkspell3) ("graphviz" ,graphviz)- ("intltool" ,intltool) ("librsvg" ,librsvg) ("osm-gps-map" ,osm-gps-map) ("pango" ,pango)
Closed
?
Your comment

This issue is archived.

To comment on this conversation send email to 36209@debbugs.gnu.org