Re: [PATCH 2/3] gnu: fltk: New module

["Thompson, David" <dthompson2@worcester.edu>]

Hi John,

Noticed one small thing.

On Thu, Jan 23, 2014 at 3:07 PM, John Darrington <jmd@gnu.org> wrote:
> * gnu/packages/fltk.scm: New file
> * gnu-system.am: New file fltk.scm
> ---
>  gnu-system.am         |    1 +
>  gnu/packages/fltk.scm |   63 +++++++++++++++++++++++++++++++++++++++++++++++++
>  2 files changed, 64 insertions(+)
>  create mode 100644 gnu/packages/fltk.scm
>
> diff --git a/gnu-system.am b/gnu-system.am
> index 47995b5..5c01e8e 100644
> --- a/gnu-system.am
> +++ b/gnu-system.am
> @@ -62,6 +62,7 @@ GNU_SYSTEM_MODULES =                          \
>    gnu/packages/fdisk.scm                       \
>    gnu/packages/file.scm                                \
>    gnu/packages/flex.scm                                \
> +  gnu/packages/fltk.scm                                \
>    gnu/packages/fonts.scm                       \
>    gnu/packages/fontutils.scm                   \
>    gnu/packages/freeipmi.scm                    \
> diff --git a/gnu/packages/fltk.scm b/gnu/packages/fltk.scm
> new file mode 100644
> index 0000000..245cd93
> --- /dev/null
> +++ b/gnu/packages/fltk.scm
> @@ -0,0 +1,63 @@
> +;;; GNU Guix --- Functional package management for GNU
> +;;; Copyright © 2014 John Darrington <jmd@gnu.org>
> +;;;
> +;;; 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 fltk)
> +  #:use-module (guix licenses)
> +  #:use-module (gnu packages xorg)
> +  #:use-module (gnu packages gl)
> +  #:use-module (guix packages)
> +  #:use-module (guix download)
> +  #:use-module (guix build-system gnu))
> +
> +(define-public fltk
> +  (package
> +    (name "fltk")
> +    (version "1.3.2")
> +    (source
> +     (origin
> +      (method url-fetch)
> +      (uri (string-append "http://fltk.org/pub/fltk/1.3.2/fltk-" version "-source.tar.gz"))

Substitute "1.3.2" with 'version'.

> +      (sha256
> +       (base32
> +        "1974brlk723095vf8z72kazq1cbqr9a51kq6b0xda6zkjkgl8q0p"))))
> +   (build-system gnu-build-system)
> +    (inputs
> +      `(("libx11" ,libx11)
> +        ("mesa" ,mesa)))
> +    (arguments
> +     `(#:phases
> +       (alist-replace
> +        'check
> +        (lambda* (#:key inputs #:allow-other-keys) #t) ;; fltk does not have a
> +                                                      ;; check target
> +        (alist-replace
> +         'configure
> +         (lambda* (#:key outputs #:allow-other-keys #:rest args)
> +           (let ((configure (assoc-ref %standard-phases 'configure)))
> +             (substitute* "makeinclude.in"
> +               (("/bin/sh") (which "sh")))
> +             (apply configure args)))
> +         %standard-phases))))
> +    (home-page "https://www.fltk.org")
> +    (synopsis "3D C++ GUI library")
> +    (description "FLTK is a C++ GUI toolkit providing modern GUI functionality without the
> +bloat. It supports 3D graphics via OpenGL and its built-in GLUT emulation.
> +FLTK is designed to be small and modular enough to be statically linked, but
> +works fine as a shared library. FLTK also includes an excellent UI builder
> +called FLUID that can be used to create applications in minutes.")
> +    (license lgpl2.0))) ; plus certain additional permissions
> --
> 1.7.10.4
>
>

- Dave