.
original commit: a3eab9a326f21868480e50cf631aeb9a08fc1ec8
This commit is contained in:
parent
6f5839998d
commit
a450ad9490
|
@ -16,8 +16,13 @@
|
|||
(let ([b (box "")])
|
||||
(unless (get-res "HKEY_CLASSES_ROOT" "htmlfile\\shell\\open\\command" b)
|
||||
(error 'send-url "couldn't find URL opener in the registry"))
|
||||
(system (format "~a ~a" (unbox b) str)))
|
||||
(error 'send-url "don't know how to open URL in Windows without MrEd")))]
|
||||
(let-values ([(out in id err status) (apply
|
||||
values
|
||||
(process (format "~a ~a" (unbox b) str)))])
|
||||
(close-output-port in)
|
||||
(close-input-port out)
|
||||
(close-input-port err)))
|
||||
(error 'send-url "don't know how to open URL in Windows without MrEd")))]
|
||||
[(unix)
|
||||
(cond
|
||||
[(find-executable-path "opera" #f)
|
||||
|
|
Loading…
Reference in New Issue
Block a user