developing

utils.rkt

@@ -12,6 +12,7 @@
          simple-row-formatter
          while
          open-file-manager
+         basedir
          dbg-rktplayer
          err-rktplayer
          info-rktplayer
@@ -93,3 +94,11 @@
     [else      (process (string-append "xdg-open " folder))]))
   )
 
+(define (basedir file)
+  (if (string? file)
+      (basedir (string->path file))
+      (if (or (eq? (file-or-directory-type file) 'file)
+              (eq? (file-or-directory-type file) 'link))
+          (call-with-values (λ () (split-path file))
+                            (λ (dir file d) dir))
+          file)))