From 74afca1354d0eb2efebbed970d6d309ec1e50168 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Tue, 4 Apr 2023 14:22:47 +0200 Subject: [PATCH] Run actual editor. --- src/environment.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/environment.scm b/src/environment.scm index c45cb62..e20c56d 100644 --- a/src/environment.scm +++ b/src/environment.scm @@ -32,10 +32,16 @@ ) (import scheme - (chicken base)) + (chicken base) + (chicken process-context) + (chicken process)) + ;; Starts an editor on given file (define (edit-file file-path) (print "Editing...") - #f) + (let* ((edvar (get-environment-variable "EDITOR")) + (editor (or edvar "editor"))) + (process-run editor (list file-path)) + )) )