summaryrefslogtreecommitdiff
path: root/gnu/installer/newt
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-02-19 22:47:56 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-05 23:40:23 +0100
commit8a4b11c6a911effddf4cac4b33f5c3c70392b797 (patch)
tree31d7ecdc17ab4cb2555b2a39a92b227f4ebd6aa2 /gnu/installer/newt
parentf901f5d2bc7ed37235ea8b4c51fde80c227234bb (diff)
installer: Run commands without hopping through the shell.
* gnu/installer/utils.scm (run-shell-command): Rename to... (run-command): Remove call to 'call-with-temporary-output-file' and hop through Bash. Expect COMMAND to be a list of strings rather than a string. * gnu/installer/final.scm (install-system): Turn INSTALL-COMMAND into a list of strings and pass it to 'run-command'. * gnu/installer/newt/page.scm (edit-file): Likewise.
Diffstat (limited to 'gnu/installer/newt')
-rw-r--r--gnu/installer/newt/page.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index c01124aa0d..9031c7d4ba 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -719,9 +719,8 @@ ITEMS when 'Ok' is pressed."
(newt-suspend)
;; Use Nano because it syntax-highlights Scheme by default.
;; TODO: Add a menu to choose an editor?
- (run-shell-command (string-append "/run/current-system/profile/bin/nano "
- file)
- #:locale locale)
+ (run-command (list "/run/current-system/profile/bin/nano" file)
+ #:locale locale)
(newt-resume))
(define* (run-file-textbox-page #:key