;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@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/>.

;;; Commentary:
;;;
;;; This file defines a manifest with a selection of packages for Cuirass to
;;; build for GNU/Hurd.
;;;
;;; Code:

(use-modules (gnu)
             (gnu system hurd)
             (guix packages)
             (guix utils)
             (ice-9 match)
             (srfi srfi-1))

(use-package-modules
 base commencement compression file gawk gdb gettext guile
 hurd less m4 package-management python ssh version-control)

(define (input->package input)
  "Return the INPUT as package, or #f."
  (match input
    ((label (and (? package?) package))
     package)
    ((label (and (? package?) package . output))
     (cons package output))
    (_ #f)))

(define guix-dependencies
  (filter-map input->package
              (fold alist-delete (package-direct-inputs guix)
                    '("glibc-utf8-locales" "graphviz" "po4a"))))

(define (package-without-tests p)
  (package/inherit p
    (arguments
     (substitute-keyword-arguments (package-arguments p)
       ((#:tests? _ #f) #f)))))

(packages->manifest
 (cons*
  ;; where it all starts
  hello

  ;; development utililities
  diffutils file findutils gawk grep gzip less m4 openssh-sans-x tar xz

  ;; development packages
  gcc-toolchain gdb-minimal git-minimal gnu-make

  ;; guix environment guix --without-tests=python-minimal --without-tests=gettext-minimal
  (package-without-tests gettext-minimal)
  (package-without-tests python-minimal)

  (append
   guix-dependencies
   (delete guile-3.0 %base-packages/hurd))))
</a>/<a href='/guix/log/gnu/packages/robotics.scm?id=4aeee4b57ddd36e7b9d7a8d849aff09a9e32b479'>robotics.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/robotics.scm?id=4aeee4b57ddd36e7b9d7a8d849aff09a9e32b479&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-02-17 14:49:12 -0500'>2023-02-17</span></td><td><a href='/guix/commit/gnu/packages/robotics.scm?id=b9ecefd1dee2f5947f24db9701b06e05f7e1ae37'>gnu: aseba: Remove dependency on QtWebKit.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is required for &lt;https://issues.guix.gnu.org/53289&gt;.

* gnu/packages/robotics.scm (aseba)[inputs]: Remove qtwebkit.
</span></span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2022-07-31 21:55:48 -0400'>2022-07-31</span></td><td><a href='/guix/commit/gnu/packages/robotics.scm?id=eef8e2ec46c4155980815e00a394428c0c3de075'>gnu: qttools: Rename to qttools-5.</a><span class='msg-avail'>...<span class='msg-tooltip'>Automated with:

  git grep -l qttools | xargs sed 's/\bqttools\b/\0-5/g' -i
  git checkout NEWS
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-07-31 21:55:43 -0400'>2022-07-31</span></td><td><a href='/guix/commit/gnu/packages/robotics.scm?id=1ef04fb2288dade3ad2883026ae286a68ef13a1e'>gnu: qtsvg: Rename variable to qtsvg-5.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is in preparation of the qtsvg update to version 6.

This change was automated via the following command:

  git grep -l '\bqtsvg\b' | xargs sed 's/qtsvg/qtsvg-5/g' -i
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-01-28 23:14:43 +0100'>2022-01-28</span></td><td><a href='/guix/commit/gnu/packages/robotics.scm?id=f4554d28d6764aa8a733e4147dff8e8d473be19e'>gnu: aseba: Build sequentially and appease Valgrind.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/robotics.scm (aseba)[source]: Remove trailing #t from
'snippet'.
[arguments]: Add #:parallel-build? and #:phases.
[native-inputs]: Add glibc:debug.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/robotics.scm?id=8394619baceb118df92e355377fd543bb1aa501a'>gnu: Simplify package inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>This commit was obtained by running:

  ./pre-inst-env guix style

without any additional argument.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-06-14 00:24:42 -0400'>2021-06-14</span></td><td><a href='/guix/commit/gnu/packages/robotics.scm?id=ea0a51071e68c37a4c9c25421cf03bc2f442c67b'>gnu: Rename qtbase to qtbase-5.</a><span class='msg-avail'>...<span class='msg-tooltip'>This change was automated via the following command:

$ git ls-files | xargs sed -i 's/,qtbase)/,qtbase-5)/g'
$ git ls-files | xargs sed -i 's/inherit qtbase)/inherit qtbase-5)/g'
$ git ls-files | xargs sed -i 's/package-version qtbase)/package-version qtbase-5)/g'
$ git checkout etc    # to clear some spurious changes

This is done so the qtbase package can be upgraded to version 6 in the
following commit.
</span></span></td><td>Maxim Cournoyer</td></tr>