":"))
(split-string a-dir-n "_")
"\e$B!A\e(B")))
- (cons 'files
- (directory-files dir nil nil nil t))
+ ;; (cons 'files
+ ;; (directory-files dir nil nil nil t))
(cons 'exit (concat album-url-prefix album-name)))))
(write-region (point-min)(point-max)
(expand-file-name "dir.desc" album-dir)))