[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/09: scripts: Remove profile-grub-entries.
From: |
Danny Milosavljevic |
Subject: |
08/09: scripts: Remove profile-grub-entries. |
Date: |
Fri, 5 May 2017 09:10:31 -0400 (EDT) |
dannym pushed a commit to branch master
in repository guix.
commit 7e3f7acbe0885fd8a6e509fd0c309d1f4d9d3097
Author: Danny Milosavljevic <address@hidden>
Date: Fri Apr 21 14:37:14 2017 +0200
scripts: Remove profile-grub-entries.
* guix/scripts/system.scm (profile-grub-entries): Delete variable.
---
guix/scripts/system.scm | 37 -------------------------------------
1 file changed, 37 deletions(-)
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 5845992..2872bca 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -384,43 +384,6 @@ NUMBERS, which is a list of generation numbers."
systems)))
(filter-map system->boot-parameters systems numbers times)))
-(define* (profile-grub-entries #:optional (profile %system-profile)
- (numbers (generation-numbers profile)))
- "Return a list of 'menu-entry' for the generations of PROFILE specified by
-NUMBERS, which is a list of generation numbers."
- (define (system->grub-entry system number time)
- (unless-file-not-found
- (let* ((params (read-boot-parameters-file system))
- (label (boot-parameters-label params))
- (root (boot-parameters-root-device params))
- (root-device (if (bytevector? root)
- (uuid->string root)
- root))
- (kernel (boot-parameters-kernel params))
- (kernel-arguments (boot-parameters-kernel-arguments params))
- (initrd (boot-parameters-initrd params)))
- (menu-entry
- (label (string-append label " (#"
- (number->string number) ", "
- (seconds->string time) ")"))
- (device (boot-parameters-store-device params))
- (device-mount-point (boot-parameters-store-mount-point params))
- (linux kernel)
- (linux-arguments
- (cons* (string-append "--root=" root-device)
- (string-append "--system=" system)
- (string-append "--load=" system "/boot")
- kernel-arguments))
- (initrd initrd)))))
-
- (let* ((systems (map (cut generation-file-name profile <>)
- numbers))
- (times (map (lambda (system)
- (unless-file-not-found
- (stat:mtime (lstat system))))
- systems)))
- (filter-map system->grub-entry systems numbers times)))
-
;;;
;;; Roll-back.
- branch master updated (3339abf -> 360874d), Danny Milosavljevic, 2017/05/05
- 05/09: system: vm: Use operating-system-kernel-arguments., Danny Milosavljevic, 2017/05/05
- 02/09: system: Introduce operating-system-kernel-arguments and use it., Danny Milosavljevic, 2017/05/05
- 01/09: system: Factorize operating-system-boot-parameters-file., Danny Milosavljevic, 2017/05/05
- 06/09: system: Use operating-system-boot-parameters directly., Danny Milosavljevic, 2017/05/05
- 07/09: system: grub: Use boot-parameters instead of menu-entry where possible., Danny Milosavljevic, 2017/05/05
- 03/09: system: Introduce read-boot-parameters-file., Danny Milosavljevic, 2017/05/05
- 04/09: scripts: Make boot-parameters label include generation number and time., Danny Milosavljevic, 2017/05/05
- 08/09: scripts: Remove profile-grub-entries.,
Danny Milosavljevic <=
- 09/09: system: Clarify that SYSTEM is either a derivation or #f., Danny Milosavljevic, 2017/05/05