[bug#34634] [PATCH 1/1] gnu: tryton: Add tryton 5.0.6.

[Jovany Leandro G.C]

From 693d00d1df68ada3bb43cbaecdd2823976e87bd4 Mon Sep 17 00:00:00 2001
From: "Jovany Leandro G.C" <address@hidden>
Date: Sat, 23 Feb 2019 14:08:01 -0500
Subject: [PATCH 1/1] gnu: tryton: Add tryton 5.0.6.

* gnu/packages/tryton.scm (tryton-5): New variable.
---
 gnu/packages/tryton.scm | 42 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/gnu/packages/tryton.scm b/gnu/packages/tryton.scm
index 31a2d481e..871537745 100644
--- a/gnu/packages/tryton.scm
+++ b/gnu/packages/tryton.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2017 Adriano Peluso <address@hidden>
+;;; Copyright © 2019 Jovany Leandro G.C <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -96,6 +97,47 @@ and security.")
     (description "This package is the client component of Tryton.")
     (license license:gpl3+)))
 
+(define-public tryton-5
+  (package
+    (name "tryton")
+    (version "5.0.6")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (pypi-uri "tryton" version))
+       (sha256
+        (base32
+         "1lgkyyin5ydfl7qz692cvgswwyhnbc51r9krfz5k9rhq06ayaq4v"))))
+    (build-system python-build-system)
+    (arguments
+     `(;;_XSERVTransmkdir: ERROR: euid != 0,directory /tmp/.X11-unix
will not be created.
+       #:tests? #f
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
+               (wrap-program (string-append out "/bin/tryton")
+                 `("GI_TYPELIB_PATH" ":" prefix (, gi-typelib-path))))
+             #t))
+         (add-after 'unpack 'set-home-directory
+           ;; [Errno 13] Permission denied: '/homeless-shelter'
+           (lambda _ (setenv "HOME" "/tmp")
+                   #t))
+         )))
+    (native-inputs
+     `(("gtk+" ,gtk+)
+       ("librsvg" ,librsvg)))
+    (inputs
+     `(("python-pycairo" ,python-pycairo)
+       ("python-pygobject" ,python-pygobject)
+       ("python-dateutil" ,python-dateutil)))
+    (home-page "http://www.tryton.org/";)
+    (synopsis "Client component of Tryton 5")
+    (description "This package is the client component of Tryton 5.")
+    (license license:gpl3)))
+
 (define-public python-trytond-country
   (package
   (name "python-trytond-country")
-- 
2.19.0