diff options
Diffstat (limited to 'playlist.lisp')
| -rw-r--r-- | playlist.lisp | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/playlist.lisp b/playlist.lisp index b52a0a7..e320906 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -448,21 +448,19 @@ (editor-managment (pl))))) (set-on-click zip-download-button (thunk* - (add-zip-playlist-job - pl - (lambda (_) (declare (ignore _)) - (let ((zip-link (make-zipped-playlist-link pl body))) - (setf (pl-zip ctl) zip-link) - (place-after zip-download-button zip-link))) - (lambda (err) - (print (format t "~a" err)))))) + (zip-playlist pl) + (setf (pl-zip ctl) (make-zipped-playlist-link pl body)) + (place-after zip-download-button (pl-zip ctl)))) (setf (pl-title ctl) title-elem (pl-dur ctl) dur-elem - ;; (inner-html download-elem) (pl-zip ctl) (display input) "none" (display title-elem) "inline") + (when (zipped-playlist-exists-p pl) + (setf (pl-zip ctl) (make-zipped-playlist-link pl body)) + (place-after zip-download-button (pl-zip ctl))) + (when (playlist-editors pl) (setf (inner-html collaborators-elem) (with-output-to-string (out) |