diff options
| -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"))) |