jadedctrl/ feedsnake
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

More appropriate maildir output

This commit is contained in:
Jaidyn Ann 2022-12-29 10:56:30 -06:00
parent d7b06e9af1
commit 04983d2313
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
feedsnake.scm
View File

@ -237,9 +237,13 @@
;; Output path for an entry w multifile template
(define (multifile-entry-path entry template-alist base-out-path)
(let* ([file-leaf (named-format (alist-car-ref 'filename-template template-alist) entry)])
(if (create-directory base-out-path)
(string-append base-out-path "/" file-leaf)
(let* ([file-leaf (named-format (alist-car-ref 'filename-template template-alist) entry)]
[new-out-path (string-append base-out-path "/" "new")])
(if (and (create-directory base-out-path)
(create-directory new-out-path)
(create-directory (string-append base-out-path "/" "cur"))
(create-directory (string-append base-out-path "/" "tmp")))
(string-append new-out-path "/" file-leaf ":2,")
(signal
(make-property-condition
'exn 'location 'file