[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#59974] My GNU Health package
From: |
zimoun |
Subject: |
[bug#59974] My GNU Health package |
Date: |
Mon, 12 Dec 2022 14:31:42 +0100 |
Hi,
On Sun, 11 Dec 2022 at 17:48, phodina via Guix-patches via
<guix-patches@gnu.org> wrote:
> here's libre medical package to track personal health.
I tested with:
--8<---------------cut here---------------start------------->8---
guix time-machine --branch=issue-59974 \
--commit=749c8e6d07caeb46f7686a705e62726214558bb1 \
--url=https://git.guix-patches.cbaines.net/git/guix-patches \
--disable-authentication \
-- shell mygnuhealth \
-- mygnuhealth
--8<---------------cut here---------------end--------------->8---
and it builds and seems to work.
> + (arguments
> + (list #:phases #~(modify-phases %standard-phases
> + (add-after 'install 'wrap-executable
> + (lambda* (#:key inputs outputs #:allow-other-keys)
> + (let ((out (assoc-ref outputs "out"))
> + (qml "/lib/qt5/qml"))
> + (wrap-program (string-append #$output
> +
> "/bin/mygnuhealth")
> + `("QML2_IMPORT_PATH" ":" prefix
> + (,(string-append out qml)
> + ,@(map (lambda (i)
> + (string-append
> + (assoc-ref inputs i)
> qml))
> + '("kirigami"
> + "qtdeclarative"
> + "qtgraphicaleffects"
> + "qtquickcontrols"
> + "qtquickcontrols2"))))))))
Here, I have another indentation. I do not have an opinion.
> + (add-before 'check 'env-setup
> + (lambda* _
-^
Why?
Is lambda is not enough here?
> + (mkdir-p "/tmp/mygh/")
> + (setenv "HOME" "/tmp"))))))
> + (native-inputs (list python-pyside-2))
> + (inputs (list qtbase-5
> + qtdeclarative-5
> + qtgraphicaleffects
> + qtquickcontrols-5
> + qtquickcontrols2-5
> + kirigami))
> + (propagated-inputs (list python-bcrypt python-matplotlib python-requests
> + python-tinydb))
> + (home-page "https://www.gnuhealth.org")
> + (synopsis "The GNU Health Personal Health Record")
> + (description
> + "This package provides GNUHealth Personal Health Record
> +application for desktop and mobile devices that integrates with the GNU
> +Health Federation.")
> + (license gpl3+)))
LGTM.
Cheers,
simon