HCoop / jackhill / guix / guix.git / blame
| Commit | Line | Data |
|---|---|---|
| fdbf8a7a JN |
1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | |
| 3 | ;;; | |
| 4 | ;;; This file is part of GNU Guix. | |
| 5 | ;;; | |
| 6 | ;;; GNU Guix is free software; you can redistribute it and/or modify it | |
| 7 | ;;; under the terms of the GNU General Public License as published by | |
| 8 | ;;; the Free Software Foundation; either version 3 of the License, or (at | |
| 9 | ;;; your option) any later version. | |
| 10 | ;;; | |
| 11 | ;;; GNU Guix is distributed in the hope that it will be useful, but | |
| 12 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 14 | ;;; GNU General Public License for more details. | |
| 15 | ;;; | |
| 16 | ;;; You should have received a copy of the GNU General Public License | |
| 17 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. | |
| 18 | ||
| 19 | ;;; Commentary: | |
| 20 | ;;; | |
| 21 | ;;; This file defines a manifest with a selection of packages for Cuirass to | |
| 22 | ;;; build for GNU/Hurd. | |
| 23 | ;;; | |
| 24 | ;;; Code: | |
| 25 | ||
| 26 | (use-modules (gnu) | |
| 27 | (gnu system hurd) | |
| 28 | (guix packages) | |
| 29 | (guix utils) | |
| 30 | (ice-9 match) | |
| 31 | (srfi srfi-1)) | |
| 32 | ||
| 33 | (use-package-modules | |
| 34 | base commencement compression file gawk gdb gettext guile | |
| 35 | hurd less m4 package-management python ssh version-control) | |
| 36 | ||
| 37 | (define (input->package input) | |
| 38 | "Return the INPUT as package, or #f." | |
| 39 | (match input | |
| 40 | ((label (and (? package?) package)) | |
| 41 | package) | |
| 42 | ((label (and (? package?) package . output)) | |
| 43 | (cons package output)) | |
| 44 | (_ #f))) | |
| 45 | ||
| 46 | (define guix-dependencies | |
| 47 | (filter-map input->package | |
| 48 | (fold alist-delete (package-direct-inputs guix) | |
| 49 | '("glibc-utf8-locales" "graphviz" "po4a")))) | |
| 50 | ||
| 51 | (define (package-without-tests p) | |
| 52 | (package/inherit p | |
| 53 | (arguments | |
| 54 | (substitute-keyword-arguments (package-arguments p) | |
| 55 | ((#:tests? _ #f) #f))))) | |
| 56 | ||
| 57 | (packages->manifest | |
| 58 | (cons* | |
| 59 | ;; where it all starts | |
| 60 | hello | |
| 61 | ||
| 62 | ;; development utililities | |
| 63 | diffutils file findutils gawk grep gzip less m4 openssh-sans-x tar xz | |
| 64 | ||
| 65 | ;; development packages | |
| 66 | gcc-toolchain gdb-minimal git-minimal gnu-make | |
| 67 | ||
| 68 | ;; guix environment guix --without-tests=python-minimal --without-tests=gettext-minimal | |
| 69 | (package-without-tests gettext-minimal) | |
| 70 | (package-without-tests python-minimal) | |
| 71 | ||
| 72 | (append | |
| 73 | guix-dependencies | |
| 74 | (delete guile-3.0 %base-packages/hurd)))) |