diff options
author | Matthew Sotoudeh <matthewsot@outlook.com> | 2022-03-07 09:43:41 -0800 |
---|---|---|
committer | Matthew Sotoudeh <matthewsot@outlook.com> | 2022-03-07 09:43:41 -0800 |
commit | fd37bb7be37f9ca3d6309fc08337d045b4e34ac4 (patch) | |
tree | 574008caa51b26e205b8a20870a77bf7cc3fa9af | |
parent | fb2865d4144ca80c9ebcb589f4692f27640f2e2f (diff) |
Also switch to using system* more consistently
-rw-r--r-- | audrey3/editor.rkt | 2 | ||||
-rw-r--r-- | printers/w3m.rkt | 9 |
2 files changed, 10 insertions, 1 deletions
diff --git a/audrey3/editor.rkt b/audrey3/editor.rkt index ba41eda..6a45921 100644 --- a/audrey3/editor.rkt +++ b/audrey3/editor.rkt @@ -6,7 +6,7 @@ (let ([temp-path (make-temporary-file "rkttemp~a.rkt" template-file)]) (cond [append-to-template (append-to-file append-to-template temp-path)]) - (system (format "vim ~a" temp-path)) + (system* (find-executable-path "vim") temp-path) (void (system "tput civis")) (let ([script (read-file-as-expr temp-path)]) (delete-file temp-path) diff --git a/printers/w3m.rkt b/printers/w3m.rkt new file mode 100644 index 0000000..e9e8eae --- /dev/null +++ b/printers/w3m.rkt @@ -0,0 +1,9 @@ +#lang racket + +(require "../audrey3/charterm/main.rkt") +(provide browse) + +(define (browse path) + (void (system "tput cnorm")) + (system* (find-executable-path "w3m") path) + (void (system "tput civis"))) |