blob: 25e05c941991f5ae46e69a05e2fe4b0fb7de6c39 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
;;;; zipper.lisp
(in-package :vampire)
(defun zip-playlist (playlist)
(let* ((tracks (zip-playlist-filenames playlist))
(out (format nil "/media/downloads/~a.zip" (clean-slashes (playlist-title playlist)))))
(copy-audio-files-for-download playlist)
(org.shirakumo.zippy:compress-zip tracks out)))
(defun copy-audio-files-for-download (playlist)
(ensure-directories-exist #P"/media/downloads/")
(let ((audio-files (mapcar #'track-file (playlist-tracks playlist)))
(dest-files (zip-playlist-filenames playlist))
(dest-dir (zip-playlist-dir playlist)))
(ensure-directories-exist dest-dir)
(loop for file in audio-files
for dest in dest-files
do (uiop:copy-file file (format nil "~a~a" dest-dir dest)))))
(defun zip-playlist-filenames (playlist)
(loop for track in (playlist-tracks playlist)
for i from 1
collect (zip-track-filename track i playlist)))
(defun zip-track-filename (track pos playlist)
(with-slots (artist album title codec) track
(format nil "~a/~2,'0d-~a-~a-~a.~a" (zip-playlist-dir playlist) pos
(clean-slashes artist) (clean-slashes album) (clean-slashes title) codec)))
(defun zip-playlist-dir (playlist)
(format nil "/media/downloads/~a/" (clean-slashes (playlist-title playlist))))
(defun clean-slashes (str)
(cl-ppcre:regex-replace-all "/" str "-"))
|
