exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Music] Cosmetics

Browse Source 
That’s important!
This commit is contained in:
Daniel Borchmann 2019-03-02 15:33:55 +01:00
parent f671a44939
commit 90445b6c3d
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
site-lisp/db-music.el
View File

@ -41,29 +41,26 @@ exist anymore are removed from it."
(puthash (car track) (cdr track) playlist-hash)))
(let (new-playlist)
;; iterate over files in DIRECTORY and add them to the playlist, with the
;; Iterate over files in DIRECTORY and add them to the playlist, with the
;; already known state whenever possible
(dolist (file (directory-files-recursively directory ""))
(message "Checking %s" file)
(push (if-let ((state (gethash file playlist-hash nil)))
(cons file state)
(cons file :undecided))
(push (cons file (gethash file playlist-hash :undecided))
new-playlist)
(remhash file playlist-hash))
;; keep all other tracks that are not in DIRECTORY
;; Keep all other tracks that are not in DIRECTORY
(maphash #'(lambda (track state)
(push (cons track state) new-playlist))
playlist-hash)
;; sort to keep version control happy
;; Sort to keep version control happy
(setq new-playlist
(sort new-playlist
#'(lambda (track-1 track-2)
(string< (car track-1)
(car track-2)))))
(string< (car track-1) (car track-2)))))
;; save it
;; Save and exit
(customize-save-variable 'db/playlist new-playlist))))
(provide 'db-music)