Small corrections for paths, and css.
This commit is contained in:
+4
-1
@@ -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 {
|
||||
|
||||
@@ -96,8 +96,9 @@
|
||||
)
|
||||
)
|
||||
|
||||
(define (open-file-manager path)
|
||||
(let ((folder (if (path? path) (path->string path) path))
|
||||
(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)
|
||||
|
||||
Reference in New Issue
Block a user