Small corrections for paths, and css.
This commit is contained in:
+4
-1
@@ -203,11 +203,12 @@ input[type="range"] {
|
|||||||
}
|
}
|
||||||
|
|
||||||
table.tracks {
|
table.tracks {
|
||||||
width: 94%;
|
width: 98%;
|
||||||
}
|
}
|
||||||
|
|
||||||
table.tracks td {
|
table.tracks td {
|
||||||
text-overflow: ellipsis;
|
text-overflow: ellipsis;
|
||||||
|
overflow: hidden;
|
||||||
white-space: nowrap;
|
white-space: nowrap;
|
||||||
padding-left: 5px;
|
padding-left: 5px;
|
||||||
}
|
}
|
||||||
@@ -223,6 +224,8 @@ table.tracks td.length {
|
|||||||
|
|
||||||
table.tracks td.title, table.tracks td.album {
|
table.tracks td.title, table.tracks td.album {
|
||||||
width: calc(50% - 70px);
|
width: calc(50% - 70px);
|
||||||
|
max-width: 200px;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
table.tracks tr, table.tracks td {
|
table.tracks tr, table.tracks td {
|
||||||
|
|||||||
@@ -96,8 +96,9 @@
|
|||||||
)
|
)
|
||||||
)
|
)
|
||||||
|
|
||||||
(define (open-file-manager path)
|
(define (open-file-manager path*)
|
||||||
(let ((folder (if (path? path) (path->string path) path))
|
(let* ((path (normal-case-path path*))
|
||||||
|
(folder (if (path? path) (path->string path) path))
|
||||||
(do-open (λ (prg arg)
|
(do-open (λ (prg arg)
|
||||||
(let ((exe (find-executable-path prg)))
|
(let ((exe (find-executable-path prg)))
|
||||||
(dbg-rktplayer "(process* ~a ~a)" exe arg)
|
(dbg-rktplayer "(process* ~a ~a)" exe arg)
|
||||||
|
|||||||
Reference in New Issue
Block a user