Small corrections for paths, and css.

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 {

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)