brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Run actual editor.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-04 14:22:47 +02:00
parent f1d3a0e318
commit 74afca1354
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/environment.scm
View file

@ -32,10 +32,16 @@
) )
(import scheme (import scheme
(chicken base)) (chicken base)
(chicken process-context)
(chicken process))
;; Starts an editor on given file
(define (edit-file file-path) (define (edit-file file-path)
(print "Editing...") (print "Editing...")
#f) (let* ((edvar (get-environment-variable "EDITOR"))
(editor (or edvar "editor")))
(process-run editor (list file-path))
))
) )