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

Tweak atom parsing

This commit is contained in:
Jaidyn Ann 2022-12-28 16:46:25 -06:00
parent 400664ccb9
commit c3f08ad6fa
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
date-strings.scm
View File

@ -37,9 +37,9 @@
(define (rfc339-string->date string) (define (rfc339-string->date string)
(handle-exceptions exn (handle-exceptions exn
(handle-exceptions exn (handle-exceptions exn
(string->date string "~Y-~m-~dT~H:~M:~S") (string->date string "~Y-~m-~dT~H:~M:~S~z")
#f) #f)
(string->date string "~Y-~m-~dT~H:~M:~S~z"))) (string->date string "~Y-~m-~dT~H:~M:~S")))
;; Date into an RFC228 (e-mail) string ;; Date into an RFC228 (e-mail) string

5
feedsnake.scm
View File

@ -81,7 +81,7 @@
"Subject: ~{{~A||Unnamed post||title}}\n" "Subject: ~{{~A||Unnamed post||title}}\n"
"Date: ~{{~A||||updated-rfc228||published-rfc228}}\n" "Date: ~{{~A||||updated-rfc228||published-rfc228}}\n"
"\n" "\n"
"~{{~{~a~^, ~}~%***~%||||urls}}\n" "~{{*** ~{~a~^ ~}~%||||urls}}\n"
"~{{~A||||summary}}\n")) "~{{~A||||summary}}\n"))
(multifile-output? #t))) (multifile-output? #t)))
@ -293,7 +293,8 @@
`((title ,(last (entry-title entry))) `((title ,(last (entry-title entry)))
(updated ,(or updated published)) (updated ,(or updated published))
(published ,(or published updated)) (published ,(or published updated))
(summary ,(last (entry-summary entry))) (summary ,(last (or (entry-summary entry)
(entry-content entry))))
(urls ,(map (lambda (link) (atom-link->string link atom)) (urls ,(map (lambda (link) (atom-link->string link atom))
(entry-links entry))) (entry-links entry)))
(authors ,(if (null? entry-authors) feed-authors entry-authors)) (authors ,(if (null? entry-authors) feed-authors entry-authors))