-

utils.rkt

@@ -10,6 +10,7 @@
          mktable
          simple-row-formatter
          while
+         open-file-manager
          )
 
 
@@ -70,5 +71,11 @@
    )
   )
 
-        
+(define (open-file-manager path)
+  (let ((folder (if (path? path) (path->string path) path)))
+  (case (system-type 'os)
+    [(windows) (process (string-append "explorer.exe " folder))]
+    [(macosx)  (process (string-append "open " folder))]
+    [else      (process (string-append "xdg-open " folder))]))
+  )