|
@@ -126,7 +126,7 @@
|
|
|
(let ((photos (mapcar 'load-photo-info (directory-images directory))))
|
|
(let ((photos (mapcar 'load-photo-info (directory-images directory))))
|
|
|
(when photos
|
|
(when photos
|
|
|
`((:title . ,(guess-album-title directory photos))
|
|
`((:title . ,(guess-album-title directory photos))
|
|
|
- (:cover . ,(photo-item (middle photos)))
|
|
|
|
|
|
|
+ (:cover . ,(aget :src (photo-item (middle photos))))
|
|
|
(:dest . ,(guess-album-path directory photos))
|
|
(:dest . ,(guess-album-path directory photos))
|
|
|
(:photos . ,(mapcar 'photo-item photos))))))
|
|
(:photos . ,(mapcar 'photo-item photos))))))
|
|
|
|
|
|
