cristiancmoises
/
guix-installer
mirror of https://github.com/SystemCrafters/guix-installer
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Include the channel file for the current generation

pull/5/head
David Wilson 2021-06-05 12:58:12 -07:00
parent bb6aac054d
commit 431d9d10c9
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
installer.scm
View File

@ -16,9 +16,10 @@
;;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;; Generate a bootable image (e.g. for USB sticks, etc.) with: ;; Generate a bootable image (e.g. for USB sticks, etc.) with:
;; $ guix system disk-image nongnu/system/install.scm ;; $ guix system image -t iso9660 installer.scm
(define-module (nongnu system install) (define-module (nongnu system install)
#:use-module (gnu services)
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu system install) #:use-module (gnu system install)
#:use-module (gnu packages version-control) #:use-module (gnu packages version-control)
@ -29,6 +30,7 @@
#:use-module (gnu packages mtools) #:use-module (gnu packages mtools)
#:use-module (gnu packages package-management) #:use-module (gnu packages package-management)
#:use-module (nongnu packages linux) #:use-module (nongnu packages linux)
#:use-module (guix)
#:export (installation-os-nonfree)) #:export (installation-os-nonfree))
(define installation-os-nonfree (define installation-os-nonfree
@ -42,6 +44,13 @@
;; wpa_supplicant when you try to connect to a wifi network. ;; wpa_supplicant when you try to connect to a wifi network.
(kernel-arguments '("quiet" "modprobe.blacklist=radeon" "net.ifnames=0")) (kernel-arguments '("quiet" "modprobe.blacklist=radeon" "net.ifnames=0"))
(services
(cons*
;; Include the channel file so that it can be used during installation
(simple-service 'channel-file etc-service-type
(list `("channels.scm" ,(local-file "channels.scm"))))
(operating-system-user-services installation-os)))
;; Add some extra packages useful for the installation process ;; Add some extra packages useful for the installation process
(packages (packages
(append (list git curl stow vim emacs-no-x-toolkit) (append (list git curl stow vim emacs-no-x-toolkit)