From 65a9db370b48ee9004f5fcefb2abb98c18808c87 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Wed, 29 Apr 2026 00:39:28 +0200
Subject: [PATCH] Small corrections for paths, and css.

---
 gui/styles.css |  5 ++++-
 utils.rkt      | 13 +++++++------
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/gui/styles.css b/gui/styles.css
index 3785227..7ccda67 100644
--- a/gui/styles.css
+++ b/gui/styles.css
@@ -203,11 +203,12 @@ input[type="range"] {
 }
 
 table.tracks {
-	width: 94%;
+	width: 98%;
 }
 
 table.tracks td {
 	text-overflow: ellipsis;
+	overflow: hidden;
 	white-space: nowrap;
 	padding-left: 5px;
 }
@@ -223,6 +224,8 @@ table.tracks td.length {
 
 table.tracks td.title, table.tracks td.album {
 	width: calc(50% - 70px);
+	max-width: 200px;
+	
 }
 
 table.tracks tr, table.tracks td {
diff --git a/utils.rkt b/utils.rkt
index af02604..7878a49 100644
--- a/utils.rkt
+++ b/utils.rkt
@@ -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)