system « gnu - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/gnu/system

Mode	Name	Size
-rw-r--r--	file-systems.scm	5590	log plain about
-rw-r--r--	grub.scm	8372	log plain about
-rw-r--r--	install.scm	11004	log plain about
-rw-r--r--	linux-initrd.scm	9938	log plain about
-rw-r--r--	linux.scm	7314	log plain about
-rw-r--r--	locale.scm	4860	log plain about
-rw-r--r--	nss.scm	7328	log plain about
-rw-r--r--	os-config.tmpl	1700	log plain about
-rw-r--r--	shadow.scm	6966	log plain about
-rw-r--r--	vm.scm	22201	log plain about

fault-swap-size five-percent-disk)))

- (if has-extended?

- ;; msdos - remove everything.

- (disk-remove-all-partitions disk)

- ;; gpt - remove everything but esp if it exists.

- (for-each

- (lambda (partition)

- (and (data-partition? partition)

- (disk-remove-partition* disk partition)))

- non-boot-partitions))

+ ;; Remove everything but esp if it exists.

+ (for-each

+ (lambda (partition)

+ (and (data-partition? partition)

+ (disk-remove-partition* disk partition)))

+ non-boot-partitions)

(let* ((start-partition

- (and (not has-extended?)

- (if (efi-installation?)

- (and (not esp-partition)

- (user-partition

- (fs-type 'fat32)

- (esp? #t)

- (size new-esp-size)

- (mount-point (default-esp-mount-point))))

+ (if (efi-installation?)

+ (and (not esp-partition)

(user-partition

- (fs-type 'ext4)

- (bootable? #t)

- (bios-grub? #t)

- (size bios-grub-size)))))

+ (fs-type 'fat32)

+ (esp? #t)

+ (size new-esp-size)

+ (mount-point (default-esp-mount-point))))

+ (user-partition

+ (fs-type 'ext4)

+ (bootable? #t)

+ (bios-grub? #t)

+ (size bios-grub-size))))

(new-partitions

(cond

((or (eq? scheme 'entire-root)