From 3257d60a35b7ec9e0bcbaedd72c0c5c46faac0bb Mon Sep 17 00:00:00 2001 From: odanoburu Date: Tue, 7 May 2019 15:17:44 -0300 Subject: [PATCH] - os-dependent view-result function --- quad/quadwriter/lang-helper.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/quad/quadwriter/lang-helper.rkt b/quad/quadwriter/lang-helper.rkt index 1eedb96a..811faa0c 100644 --- a/quad/quadwriter/lang-helper.rkt +++ b/quad/quadwriter/lang-helper.rkt @@ -34,8 +34,13 @@ (define DOC (DOC-PROC (list . EXPRS))) (define pdf-path (path-string->pdf-path 'PATH-STRING)) (define (VIEW-RESULT) + (define open-string + (case (system-type 'os) + ('macosx "open ~a") + ('unix "xdg-open ~a &> /dev/null") + (else (error "Don't know how to open PDF file.")))) (when (file-exists? pdf-path) - (void (system (format "open ~a" pdf-path))))) + (void (system (format open-string pdf-path))))) (module+ main (render-pdf DOC pdf-path))))]))))