[debbugs-tracker] bug#30137: closed ([PATCH] gnu: Add fgallery.)

[GNU bug Tracking System]

Your message dated Tue, 23 Jan 2018 10:52:35 +0100
with message-id <address@hidden>
and subject line Re: [bug#30137] [PATCH] gnu: Add fgallery.
has caused the debbugs.gnu.org bug report #30137,
regarding [PATCH] gnu: Add fgallery.
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
30137: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=30137
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> [PATCH] gnu: Add fgallery.
>
>
>
>
> Date: 
>
> Tue, 16 Jan 2018 15:59:28 +0100
>
>
>
>
> From: Mathieu Othacehe <address@hidden>
>
> * gnu/packages/graphics.scm (fgallery): New variable.
> ---
>  gnu/packages/graphics.scm | 88 +++++++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 88 insertions(+)
>
> diff --git a/gnu/packages/graphics.scm b/gnu/packages/graphics.scm
> index c47455c..27e77bc 100644
> --- a/gnu/packages/graphics.scm
> +++ b/gnu/packages/graphics.scm
> @@ -8,6 +8,7 @@
>  ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <address@hidden>
>  ;;; Copyright © 2017 Ben Woodcroft <address@hidden>
>  ;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
> +;;; Copyright © 2018 Mathieu Othacehe <address@hidden>
>  ;;;
>  ;;; This file is part of GNU Guix.
>  ;;;
> @@ -41,12 +42,16 @@
>    #:use-module (gnu packages boost)
>    #:use-module (gnu packages check)
>    #:use-module (gnu packages documentation)
> +  #:use-module (gnu packages ghostscript)
>    #:use-module (gnu packages haskell)
>    #:use-module (gnu packages image)
> +  #:use-module (gnu packages imagemagick)
>    #:use-module (gnu packages python)
>    #:use-module (gnu packages flex)
>    #:use-module (gnu packages fonts)
>    #:use-module (gnu packages fontutils)
> +  #:use-module (gnu packages perl)
> +  #:use-module (gnu packages pdf)
>    #:use-module (gnu packages pkg-config)
>    #:use-module (gnu packages pulseaudio)  ;libsndfile, libsamplerate
>    #:use-module (gnu packages compression)
> @@ -686,3 +691,86 @@ your terminal.  It comes bundled with predefined styles:
>  
>  (define-public python2-pastel
>    (package-with-python2 python-pastel))
> +
> +(define-public fgallery
> +  (package
> +    (name "fgallery")
> +    (version "1.8.2")
> +    (source (origin
> +              (method url-fetch)
> +              (uri
> +               (string-append
> +                "http://www.thregr.org/~wavexx/software/fgallery/releases/";
> +                "fgallery-" version ".zip"))
> +              (sha256
> +               (base32
> +                "18wlvqbxcng8pawimbc8f2422s8fnk840hfr6946lzsxr0ijakvf"))))
> +    (build-system gnu-build-system)
> +    (arguments
> +     `(#:tests? #f ; no tests
> +       #:phases
> +       (modify-phases %standard-phases
> +         (delete 'configure)
> +         (delete 'build)
> +         (replace 'install
> +           (lambda* (#:key inputs outputs #:allow-other-keys)
> +             (let* ((out    (assoc-ref outputs "out"))
> +                    (bin    (string-append out "/bin/"))
> +                    (share  (string-append out "/share/fgallery"))
> +                    (man    (string-append out "/share/man/man1"))
> +                    (perl5lib (getenv "PERL5LIB"))
> +                    (script (string-append share "/fgallery")))
> +               (define (bin-directory input-name)
> +                 (string-append (assoc-ref inputs input-name) "/bin"))
> +
> +               (mkdir-p man)
> +               (copy-file "fgallery.1" (string-append man "/fgallery.1"))
> +
> +               (mkdir-p share)
> +               (copy-recursively "." share)
> +
> +               ;; fgallery copies files from store when it is run. The
> +               ;; read-only permissions from the store directories will cause
> +               ;; fgallery to fail. Do not preserve file attributes when
> +               ;; copying files to prevent it.
> +               (substitute* script
> +                 (("'cp'")
> +                  "'cp', '--no-preserve=all'"))
> +
> +               (mkdir-p bin)
> +               (symlink script (string-append out "/bin/fgallery"))
> +
> +               (wrap-program script
> +                 `("PATH" ":" prefix
> +                   ,(map bin-directory '("imagemagick"
> +                                         "lcms"
> +                                         "fbida"
> +                                         "libjpeg"
> +                                         "zip"
> +                                         "jpegoptim"
> +                                         "pngcrush"
> +                                         "p7zip")))
> +                 `("PERL5LIB" ":" prefix (,perl5lib)))
> +               #t))))))
> +    (native-inputs
> +     `(("unzip" ,unzip)))
> +    ;; TODO: Add missing optional dependency: facedetect.
> +    (inputs
> +     `(("imagemagick" ,imagemagick)
> +       ("lcms" ,lcms)
> +       ("fbida" ,fbida)
> +       ("libjpeg" ,libjpeg)
> +       ("zip" ,zip)
> +       ("perl" ,perl)
> +       ("perl-cpanel-json-xs" ,perl-cpanel-json-xs)
> +       ("perl-image-exiftool" ,perl-image-exiftool)
> +       ("jpegoptim" ,jpegoptim)
> +       ("pngcrush" ,pngcrush)
> +       ("p7zip" ,p7zip)))
> +    (home-page "http://www.thregr.org/~wavexx/software/fgallery/";)
> +    (synopsis "Static photo gallery generator")
> +    (description
> +     "FGallery is a static, javascript photo gallery generator with minimalist
> +look.  The result can be uploaded on any web server without additional
> +requirements.")
> +    (license license:gpl2+)))
> -- 
> 2.7.4
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: [bug#30137] [PATCH] gnu: Add fgallery.
>
>
>
>
> Date: 
>
> Tue, 23 Jan 2018 10:52:35 +0100
>
>
>
>
> User-agent: 
>
> mu4e 0.9.18; emacs 25.3.1
>
>
>
>
> Hey Ludo,
>
> > Otherwise LGTM, thank you!
>
> Thanks, fixed and pushed!
>
> Mathieu
>
>
> --- End Message ---