freya/dotfiles-guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix uki

Browse source
This commit is contained in:
Freya Murphy 2024-10-21 23:29:50 -04:00
parent 7e15a35953
commit e64a0281a3
Signed by: freya
GPG key ID: 744AB800E383AE52
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
modules/freya/bootloader/uki.scm
View file

@ -44,14 +44,12 @@
(ice-9 popen) (ice-9 textual-ports)) (ice-9 popen) (ice-9 textual-ports))
(define (out name) (string-append vendir "/" name)) (define (out name) (string-append vendir "/" name))
(define fulldisk (define disk
(call-with-port (call-with-port
(open-pipe* OPEN_READ findmnt "-fnro" "SOURCE" "-T" target) (open-pipe* OPEN_READ findmnt "-fnro" "SOURCE" "-T" target)
(lambda (port) (get-line port)))) ; only 1 line: the device (lambda (port) (get-line port)))) ; only 1 line: the device
(define disk
(substring fulldisk 0 (- (string-length fulldisk) 1)))
(define part (define part
(substring fulldisk (- (string-length fulldisk) 1))) (substring disk (- (string-length disk) 1)))
;; delete all boot entries and files we control ;; delete all boot entries and files we control
(when (file-exists? schema) (when (file-exists? schema)