Merge branch 'main' of https://codeberg.org/hnmdijkema/audio-library-manager
Updated. audio name cleaner added.
This commit is contained in:
@@ -46,10 +46,10 @@
|
||||
|
||||
(unless (string=? bn nbn)
|
||||
(with-handlers ([exn? (λ (e)
|
||||
(warn-am "Cannot rename dirty filename: ~a" nbn))])
|
||||
(info-am "Renaming ~a to ~a" bn nbn)
|
||||
(warn-am "Cannot rename dirty filename: ~a, ~a" nbn e))])
|
||||
(info-am "Renaming ~a to ~a (basedir: ~a)" bn nbn bd)
|
||||
(rename-file-or-directory (build-path bd bn)
|
||||
(build-path bn nbn) #f)
|
||||
(build-path bd nbn) #f)
|
||||
(set! path (build-path bd nbn))
|
||||
))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user