;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2024 Jorge Acereda <jacereda@gmail.com>
;;;
;;; 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 decker)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages sdl)
  #:use-module (gnu packages vim)
  #:use-module (guix build-system gnu)
  #:use-module (guix gexp)
  #:use-module (guix utils)
  #:use-module (guix git-download)
  #:use-module (guix packages))

(define-public decker
  (package
    (name "decker")
    (version "1.49")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/JohnEarnest/Decker")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0hwi62g5wg7zxj98j3civz42za133jq3mz8c0mapqnkn0xnb0qa8"))))
    (build-system gnu-build-system)
    (arguments
     (list
      #:test-target "test"
      #:make-flags #~(list (string-append "PREFIX=" #$output)
                           (string-append "COMPILER=" #$(cc-for-target)))
      #:phases #~(modify-phases %standard-phases
                   (delete 'configure)  ;no configure script
                   (replace 'build
                     (lambda* (#:key parallel-build? #:allow-other-keys)
                       (let ((job-count (if parallel-build?
                                            (parallel-job-count)
                                            1)))
                         (invoke "make" "lilt" "decker"
                                 "-j" (number->string job-count))))))))
    (native-inputs (list xxd))
    (inputs (list (sdl-union (list sdl2-image sdl2))))
    (home-page "http://beyondloom.com/decker/")
    (synopsis "Multimedia sketchpad")
    (description
     "Decker is a multimedia platform for creating and sharing interactive
documents, with sound, images, hypertext, and scripted behavior.")
    (license license:expat)))
f2a493616106'>nix: Tweak .gitignore files.</a><span class='msg-avail'>...<span class='msg-tooltip'>Remove .gitignore entries where they match source files that are tracked in
Git.  This is relevant to me at least, as some code searching tools use
.gitignore files and will ignore matched files.
</span></span></td><td>Christopher Baines</td></tr>
<tr><td><span title='2019-11-26 00:16:36 +0100'>2019-11-26</span></td><td><a href='/guix/commit/nix/boost?id=3a4d5ddd322c7daf0a8c83ca2c87c3fc38b19f0b'>daemon: boost::format: Fix typo "referred".</a><span class='msg-avail'>...<span class='msg-tooltip'>* nix/boost/format/exceptions.hpp (too_few_args): Fix typo.
  (too_many_args): Fix typo.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Vagrant Cascadian</td></tr>