|
|
|
@ -34,11 +34,7 @@ proc rate {rating} {
@@ -34,11 +34,7 @@ proc rate {rating} {
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
proc current_rating {} { |
|
|
|
|
set filename [current_file] |
|
|
|
|
|
|
|
|
|
set tags [split [exec mid3v2 [file join "/mnt/DATA/Музыка" $filename]] "\n"] |
|
|
|
|
|
|
|
|
|
lindex [split [lsearch -inline -glob $tags "COMM*"] "="] end |
|
|
|
|
lindex [split [exec exiftool -Comment [file join "/mnt/DATA/Музыка" [current_file]]] " "] end |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
proc hl_rating {rating} { |
|
|
|
|