GNU bug report logs - #62292
[PATCH] gnu: Add kitsas

Previous Next

Full log

Message #8 received at 62292 <at> debbugs.gnu.org (full text, mbox):

From: Bruno Victal <mirai <at> makinata.eu>
To: Saku Laesvuori <saku <at> laesvuori.fi>
Cc: 62292 <at> debbugs.gnu.org
Subject: Re: [bug#62292] [PATCH] gnu: Add kitsas
Date: Mon, 20 Mar 2023 18:09:03 +0000

Hi Saku,

On 2023-03-20 10:56, Saku Laesvuori via Guix-patches via wrote:
>  
> +(define-public kitsas
> +  (package
> +    (name "kitsas")
> +    (version "4.0.3")
> +    (source (origin
> +              (method url-fetch)
> +              (uri (string-append
> +                    "https://github.com/artoh/kitupiikki/archive/refs/tags/v"
> +                    version ".tar.gz"))

Use git-fetch instead.
GitHub tarballs are not stable and their hash can change in the future.

> +              (sha256
> +               (base32
> +                "1a15axggskrvjb3r3yyr3kdxyzcygxjj756b6dzpwlca5g1l7x5w"))))
> +    (build-system qt-build-system)
> +    (inputs (list qtbase-5 libzip poppler-qt5 qtsvg-5))
> +    (arguments

[...]

> +     '(#:test-target "check"
> +       #:tests? #f

If the tests don't work, leave a comment stating such.
It's worth trying to get them working if possible though.

[...]

> +       #:phases (modify-phases %standard-phases
> +                  (replace 'configure
> +                    (lambda* _
> +                      (invoke "qmake" "kitsasproject.pro" "CONFIG+=release")))
> +                  (replace 'install
> +                    (lambda* (#:key outputs #:allow-other-keys)
> +                      (let ((out (assoc-ref outputs "out")))
> +                        (install-file "kitsas/kitsas"
> +                                      (string-append out "/bin/"))
> +                        (install-file "kitsas.png"
> +                                      (string-append out "/share/icons/"))
> +                        (install-file "kitsas.desktop"
> +                                      (string-append out
> +                                                     "/share/applications/"))))))))

Prefer list to ' and use G-Expressions here, i.e.

(arguments
 (list
  #:tests? #f ;; comment here...
  #:phases
  #~(modify-phases %standard-phases
     (replace 'install
       (lambda* _
         (install-file "kitsas/kitsas" (string-append #$output "/bin/"))
         ... )))))


> +    (home-page "https://kitsas.fi")
> +    (synopsis "Finnish bookkeeping software for small organisations")
> +    (description
> +     "The software is in Finnish only.
> +
> +      Finnish free software accounting program with the following goals and features:
> +
> +      @itemize @bullet
> +      @item
> +      Ease of use
> +      @item
> +      Digital management of documents
> +      @item
> +      Creating a digital archive
> +      @item
> +      Built-in invoicing
> +      @item
> +      Creating reports
> +      @end itemize")

You can collapse this into:

@itemize @bullet
@item Ease of use
@item Digital management of documents
...
@end itemize

> +    (license license:gpl3)))
> +    ; GPL3 with additional terms:
> +    ; - Modified versions of this software should be clearly mentioned as modified
> +    ; - Kitsas Oy will not support any modified version of this software
> +    ; - The name Kitsas Oy should not be used in any modified version

Move this comment into the package definition.


Cheers,
Bruno

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.