me/guix
Archived
1
0
Fork 0
Code Activity

install: Deduplicate packages with %base-package sets.

Browse source 
* gnu/system.scm (%base-packages-interactive): Add nvi.
* gnu/system/install.scm (installation-os)[packages]: Remove parted,
gptfdisk, ddrescue, cryptsetup, mdadm, dosfstools, btrfs-progs,
f2fs-tools, jfstools, openssh, wireless-tools, iw,
wpa-supplicant-minimal, iproute, bash-completion, nvi. Add
%base-packages-disk-utilities.
This commit is contained in:
Efraim Flashner 2020-10-09 12:51:26 +03:00
parent e6e076281e
commit 4170af491c
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
2 changed files with 12 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/system.scm
View file

@ -56,6 +56,7 @@
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages man) #:use-module (gnu packages man)
#:use-module (gnu packages nano) #:use-module (gnu packages nano)
#:use-module (gnu packages nvi)
#:use-module (gnu packages package-management) #:use-module (gnu packages package-management)
#:use-module (gnu packages pciutils) #:use-module (gnu packages pciutils)
#:use-module (gnu packages texinfo) #:use-module (gnu packages texinfo)
@ -715,6 +716,7 @@ of PROVENANCE-SERVICE-TYPE to its services."
(define %base-packages-interactive (define %base-packages-interactive
;; Default set of common interactive packages. ;; Default set of common interactive packages.
(list less zile nano (list less zile nano
nvi
man-db man-db
info-reader ;the standalone Info reader (no Perl) info-reader ;the standalone Info reader (no Perl)
bash-completion bash-completion

31
gnu/system/install.scm
View file

@ -5,6 +5,7 @@
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de> ;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -41,18 +42,13 @@
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (gnu packages bootloaders) #:use-module (gnu packages bootloaders)
#:use-module (gnu packages certs) #:use-module (gnu packages certs)
#:use-module (gnu packages file-systems) #:use-module (gnu packages compression)
#:use-module (gnu packages fonts) #:use-module (gnu packages fonts)
#:use-module (gnu packages fontutils) #:use-module (gnu packages fontutils)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages ssh)
#:use-module (gnu packages cryptsetup)
#:use-module (gnu packages package-management) #:use-module (gnu packages package-management)
#:use-module (gnu packages disk)
#:use-module (gnu packages texinfo) #:use-module (gnu packages texinfo)
#:use-module (gnu packages compression)
#:use-module (gnu packages nvi)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
@ -496,26 +492,13 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m
;; Explicitly allow for empty passwords. ;; Explicitly allow for empty passwords.
(base-pam-services #:allow-empty-passwords? #t)) (base-pam-services #:allow-empty-passwords? #t))
(packages (cons* glibc ;for 'tzselect' & co. (packages (append
parted gptfdisk ddrescue (list glibc ; for 'tzselect' & co.
fontconfig fontconfig
font-dejavu font-gnu-unifont font-dejavu font-gnu-unifont
grub ;mostly so xrefs to its manual work grub ; mostly so xrefs to its manual work
cryptsetup nss-certs) ; To access HTTPS, use git, etc.
mdadm %base-packages-disk-utilities
dosfstools ;mkfs.fat, for the UEFI boot partition
btrfs-progs
f2fs-tools
jfsutils
openssh ;we already have sshd, having ssh/scp can help
wireless-tools iw wpa-supplicant-minimal iproute
;; XXX: We used to have GNU fdisk here, but as of version
;; 2.0.0a, that pulls Guile 1.8, which takes unreasonable
;; space; furthermore util-linux's fdisk is already
;; available here, so we keep that.
bash-completion
nvi ;:wq!
nss-certs ; To access HTTPS, use git, etc.
%base-packages)))) %base-packages))))
(define* (os-with-u-boot os board #:key (bootloader-target "/dev/mmcblk0") (define* (os-with-u-boot os board #:key (bootloader-target "/dev/mmcblk0")