Small corrections for paths, and css.

2026-04-29 00:39:28 +02:00
parent a2875f61b6
commit 65a9db370b
2 changed files with 11 additions and 7 deletions
@@ -96,12 +96,13 @@
   )
  )

-(define (open-file-manager path)
-  (let ((folder (if (path? path) (path->string path) path))
-        (do-open (λ (prg arg)
-                   (let ((exe (find-executable-path prg)))
-                     (dbg-rktplayer "(process* ~a ~a)" exe arg)
-                     (process* exe arg))))
+(define (open-file-manager path*)
+  (let* ((path (normal-case-path path*))
+         (folder (if (path? path) (path->string path) path))
+         (do-open (λ (prg arg)
+                    (let ((exe (find-executable-path prg)))
+                      (dbg-rktplayer "(process* ~a ~a)" exe arg)
+                      (process* exe arg))))
        )
    (dbg-rktplayer "open-file-manager ~a" folder)
    (case (system-type 'os)