~brettgilio/org-webring

3 2

`encode-time' failing on 27.1

Details
Message ID
<87ft80c8gv.fsf@gnu.org>
DKIM signature
missing
Download raw message
Hello all,

This is an error that I just wanted to address. It seems our conversion
between time formats is failing on Emacs 27.1

Is anybody able to reproduce this on current HEAD?

Brett Gilio

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument fixnump nil)
  encode-time(nil nil nil nil nil nil nil -1 nil)
  apply(encode-time (nil nil nil nil nil nil nil -1 nil))
  org-webring--date->time("2020-06-24T17:00:00+0200" t)
  (let ((atom-p (not (xml-get-children item 'pubDate)))) (org-webring--date->time (or (org-webring--feed-text-prop item 'pubDate) (org-webring--feed-text-prop item 'updated)) atom-p))
  org-webring--pub-time((item nil (sourceLink nil "//www.gnu.org/software/guile") (sourceTitle nil "GNU's programming and extension language") (title nil "GNU Guile 3.0.4 released") (author nil (name nil "Ludovic Courtès") (email nil "guile-devel@gnu.org")) (updated nil "2020-06-24T17:00:00+0200") (link ((href . "https://www.gnu.org/software/guile/news/gnu-guile-...") (rel . "alternate"))) (summary ((type . "html")) "<p>We are pleased but also embarrassed to announce...")))
  #f(compiled-function (cl-x cl-y) #<bytecode 0x17bc4b9>)((item nil (sourceLink nil "//www.gnu.org/software/guile") (sourceTitle nil "GNU's programming and extension language") (title nil "GNU Guile 3.0.4 released") (author nil (name nil "Ludovic Courtès") (email nil "guile-devel@gnu.org")) (updated nil "2020-06-24T17:00:00+0200") (link ((href . "https://www.gnu.org/software/guile/news/gnu-guile-...") (rel . "alternate"))) (summary ((type . "html")) "<p>We are pleased but also embarrassed to announce...")) (item nil (sourceLink nil "https://guix.gnu.org/blog/") (sourceTitle nil "GNU Guix — Blog") (id nil "https://guix.gnu.org/blog/2020/improve-internation...") (title nil "Improve Internationalization Support for the Guix ...") (author nil (name nil "Danjela Lura")) (published nil "2020-07-23T12:00:00Z") (updated nil "2020-07-23T12:00:00Z") (link ((rel . "alternate") (href . "https://guix.gnu.org/blog/2020/improve-internation..."))) (category ((term . "Outreachy"))) (category ((term . "Guix Data Service"))) (summary nil "  The first half of my  Outreachy \ninternship is a...") (content ((type . "html")) "<p>The first half of my <a href=\"https://www.outre...")))
  sort(((item nil (sourceLink nil "https://drewdevault.com") (sourceTitle nil "Blogs on Drew DeVault's bl...") "\n      " (title nil "Linux development is distr...") "\n      " (link nil "https://drewdevault.com/20...") "\n      " (pubDate nil "Wed, 02 Sep 2020 00:00:00 ...") "\n      \n      " (guid nil "https://drewdevault.com/20...") "\n      " (description nil "<p>The standard introducti...") "\n    ") (item nil (sourceLink nil "https://sourcehut.org/blog...") (sourceTitle nil "Blogs on Sourcehut") "\n      " (title nil "SourceHut contributor spot...") "\n      " (link nil "https://sourcehut.org/blog...") "\n      " (pubDate nil "Wed, 26 Aug 2020 00:00:00 ...") "\n      \n      " (guid nil "https://sourcehut.org/blog...") "\n      " (description nil "<p>SourceHut is 100% free ...") "\n    ") (item nil (sourceLink nil "https://homotopytypetheory...") (sourceTitle nil "Homotopy Type Theory") "\n\11\11" (title nil "The Cantor-Schröder-Bernst...") "\n\11\11" (link nil "https://homotopytypetheory...") "\n\11\11\11\11\11" (comments nil "https://homotopytypetheory...") "\n\11\11\n\11\11" (dc:creator nil "Martin Escardo") "\n\11\11" (pubDate nil "Sun, 26 Jan 2020 18:17:52 ...") "\n\11\11\11\11" (category nil "Foundations") "\n\11\11" (guid ... "http://homotopytypetheory....") "\n\n\11\11\11\11\11" (description nil "The classical Cantor-Schrö...") "\n\11\11\11\11\11\11\11\11\11\11" (content:encoded nil "<p>The classical Cantor-Sc...") "\n\11\11\11\11\11\n\11\11\11\11\11" (wfw:commentRss nil "https://homotopytypetheory...") "\n\11\11\11" (slash:comments nil "9") ...) (item nil (sourceLink nil "https://brown.121407.xyz") (sourceTitle nil "brown121407") "\n" (title nil "Sourcehut: Don’t break mai...") "\n" (link nil "https://brown.121407.xyz/p...") "\n" (author nil "brown121407@posteo.ro (Ale...") "\n" (guid ... "https://brown.121407.xyz/p...") "\n" (pubDate nil "Tue, 25 Aug 2020 11:09:00 ...") "\n\n" (description nil "<p>\nWhen I reply to a Sour...") "\n") (item nil (sourceLink nil "https://kowainik.github.io") (sourceTitle nil "Kowainik Blog") "\n    " (title nil "Haskell mini-patterns hand...") "\n    " (link nil "https://kowainik.github.io...") "\n    " (description nil "Collection of small Haskel...") "\n    " (pubDate nil "Mon, 17 Aug 2020 00:00:00 ...") "\n    " (guid nil "https://kowainik.github.io...") "\n    " (dc:creator nil "Kowainik") "\n") (item nil (sourceLink nil "http://www.weaselhat.com") (sourceTitle nil "weaselhat") "\n\11\11" (title nil "What to Define When You’re...") "\n\11\11" (link nil "http://www.weaselhat.com/2...") "\n\11\11\11\11\11" (comments nil "http://www.weaselhat.com/2...") "\n\11\11\n\11\11" (dc:creator nil "Michael Greenberg") "\n\11\11" (pubDate nil "Thu, 13 Aug 2020 20:53:41 ...") "\n\11\11\11\11" (category nil "Blog") "\n\11\11" (category nil "Programming Languages") "\n\11\11" (guid ... "http://www.weaselhat.com/?...") "\n\n\11\11\11\11\11" (description nil "What do you have to do to ...") "\n\11\11\11\11\11\11\11\11\11\11" (content:encoded nil "\n<p>So you want to define ...") "\n\11\11\11\11\11\n\11\11\11\11\11" (wfw:commentRss nil "http://www.weaselhat.com/2...") ...) (item nil (sourceLink nil "https://unapologetic.wordp...") (sourceTitle nil "The Unapologetic Mathemati...") "\n\11\11" (title nil "The Submodule of Invariant...") "\n\11\11" (link nil "https://unapologetic.wordp...") "\n\11\11\11\11\11" (comments nil "https://unapologetic.wordp...") "\n\11\11\n\11\11" (dc:creator nil "John Armstrong") "\n\11\11" (pubDate nil "Fri, 21 Sep 2012 02:25:47 ...") "\n\11\11\11\11" (category nil "Algebra") "\n\11\11" (category nil "Lie Algebras") "\n\11\11" (category nil "Representation Theory") "\n\11\11" (guid ... "http://unapologetic.wordpr...") "\n\n\11\11\11\11\11" (description nil "If is a module of a Lie al...") "\n\11\11\11\11\11\11\11\11\11\11" (content:encoded nil "<p>If <img src=\"https://s0...") ...) (item nil (sourceLink nil "http://math.andrej.com/") (sourceTitle nil "Mathematics and Computatio...") (title ... "Every proof assistant: Cur...") (link ...) (published nil "2020-06-22T00:00:00+02:00") (updated nil "2020-06-22T00:00:00+02:00") (id nil "http://math.andrej.com/202...") (content ... "<p>We shall finish the sem...") (author nil ...) (summary ... "We shall finish the semest...")) (item nil (sourceLink nil "http://pit-claudel.fr/clem...") (sourceTitle nil "Code crumbs, by Clément Pi...") "\n\11\11" (title nil "The cereal box problem: Ho...") "\n\11\11" (link nil "http://pit-claudel.fr/clem...") "\n\11\11\11\11\11" (comments nil "http://pit-claudel.fr/clem...") "\n\11\11\n\11\11" (dc:creator nil "Clément") "\n\11\11" (pubDate nil "Fri, 20 Dec 2013 17:48:29 ...") "\n\11\11\11\11" (category nil "Mathematics") "\n\11\11" (category nil "Modeling") "\n\11\11" (category nil "Probabilities") "\n\11\11" (category nil "Programming") "\n\11\11" (category nil "Python") "\n\11\11" (category nil "Snippets") ...)) #f(compiled-function (cl-x cl-y) #<bytecode 0x17bc4b9>))
  cl-sort(((item nil (sourceLink nil "https://drewdevault.com") (sourceTitle nil "Blogs on Drew DeVault's bl...") "\n      " (title nil "Linux development is distr...") "\n      " (link nil "https://drewdevault.com/20...") "\n      " (pubDate nil "Wed, 02 Sep 2020 00:00:00 ...") "\n      \n      " (guid nil "https://drewdevault.com/20...") "\n      " (description nil "<p>The standard introducti...") "\n    ") (item nil (sourceLink nil "https://sourcehut.org/blog...") (sourceTitle nil "Blogs on Sourcehut") "\n      " (title nil "SourceHut contributor spot...") "\n      " (link nil "https://sourcehut.org/blog...") "\n      " (pubDate nil "Wed, 26 Aug 2020 00:00:00 ...") "\n      \n      " (guid nil "https://sourcehut.org/blog...") "\n      " (description nil "<p>SourceHut is 100% free ...") "\n    ") (item nil (sourceLink nil "https://homotopytypetheory...") (sourceTitle nil "Homotopy Type Theory") "\n\11\11" (title nil "The Cantor-Schröder-Bernst...") "\n\11\11" (link nil "https://homotopytypetheory...") "\n\11\11\11\11\11" (comments nil "https://homotopytypetheory...") "\n\11\11\n\11\11" (dc:creator nil "Martin Escardo") "\n\11\11" (pubDate nil "Sun, 26 Jan 2020 18:17:52 ...") "\n\11\11\11\11" (category nil "Foundations") "\n\11\11" (guid ... "http://homotopytypetheory....") "\n\n\11\11\11\11\11" (description nil "The classical Cantor-Schrö...") "\n\11\11\11\11\11\11\11\11\11\11" (content:encoded nil "<p>The classical Cantor-Sc...") "\n\11\11\11\11\11\n\11\11\11\11\11" (wfw:commentRss nil "https://homotopytypetheory...") "\n\11\11\11" (slash:comments nil "9") ...) (item nil (sourceLink nil "https://brown.121407.xyz") (sourceTitle nil "brown121407") "\n" (title nil "Sourcehut: Don’t break mai...") "\n" (link nil "https://brown.121407.xyz/p...") "\n" (author nil "brown121407@posteo.ro (Ale...") "\n" (guid ... "https://brown.121407.xyz/p...") "\n" (pubDate nil "Tue, 25 Aug 2020 11:09:00 ...") "\n\n" (description nil "<p>\nWhen I reply to a Sour...") "\n") (item nil (sourceLink nil "https://kowainik.github.io") (sourceTitle nil "Kowainik Blog") "\n    " (title nil "Haskell mini-patterns hand...") "\n    " (link nil "https://kowainik.github.io...") "\n    " (description nil "Collection of small Haskel...") "\n    " (pubDate nil "Mon, 17 Aug 2020 00:00:00 ...") "\n    " (guid nil "https://kowainik.github.io...") "\n    " (dc:creator nil "Kowainik") "\n") (item nil (sourceLink nil "http://www.weaselhat.com") (sourceTitle nil "weaselhat") "\n\11\11" (title nil "What to Define When You’re...") "\n\11\11" (link nil "http://www.weaselhat.com/2...") "\n\11\11\11\11\11" (comments nil "http://www.weaselhat.com/2...") "\n\11\11\n\11\11" (dc:creator nil "Michael Greenberg") "\n\11\11" (pubDate nil "Thu, 13 Aug 2020 20:53:41 ...") "\n\11\11\11\11" (category nil "Blog") "\n\11\11" (category nil "Programming Languages") "\n\11\11" (guid ... "http://www.weaselhat.com/?...") "\n\n\11\11\11\11\11" (description nil "What do you have to do to ...") "\n\11\11\11\11\11\11\11\11\11\11" (content:encoded nil "\n<p>So you want to define ...") "\n\11\11\11\11\11\n\11\11\11\11\11" (wfw:commentRss nil "http://www.weaselhat.com/2...") ...) (item nil (sourceLink nil "https://unapologetic.wordp...") (sourceTitle nil "The Unapologetic Mathemati...") "\n\11\11" (title nil "The Submodule of Invariant...") "\n\11\11" (link nil "https://unapologetic.wordp...") "\n\11\11\11\11\11" (comments nil "https://unapologetic.wordp...") "\n\11\11\n\11\11" (dc:creator nil "John Armstrong") "\n\11\11" (pubDate nil "Fri, 21 Sep 2012 02:25:47 ...") "\n\11\11\11\11" (category nil "Algebra") "\n\11\11" (category nil "Lie Algebras") "\n\11\11" (category nil "Representation Theory") "\n\11\11" (guid ... "http://unapologetic.wordpr...") "\n\n\11\11\11\11\11" (description nil "If is a module of a Lie al...") "\n\11\11\11\11\11\11\11\11\11\11" (content:encoded nil "<p>If <img src=\"https://s0...") ...) (item nil (sourceLink nil "http://math.andrej.com/") (sourceTitle nil "Mathematics and Computatio...") (title ... "Every proof assistant: Cur...") (link ...) (published nil "2020-06-22T00:00:00+02:00") (updated nil "2020-06-22T00:00:00+02:00") (id nil "http://math.andrej.com/202...") (content ... "<p>We shall finish the sem...") (author nil ...) (summary ... "We shall finish the semest...")) (item nil (sourceLink nil "http://pit-claudel.fr/clem...") (sourceTitle nil "Code crumbs, by Clément Pi...") "\n\11\11" (title nil "The cereal box problem: Ho...") "\n\11\11" (link nil "http://pit-claudel.fr/clem...") "\n\11\11\11\11\11" (comments nil "http://pit-claudel.fr/clem...") "\n\11\11\n\11\11" (dc:creator nil "Clément") "\n\11\11" (pubDate nil "Fri, 20 Dec 2013 17:48:29 ...") "\n\11\11\11\11" (category nil "Mathematics") "\n\11\11" (category nil "Modeling") "\n\11\11" (category nil "Probabilities") "\n\11\11" (category nil "Programming") "\n\11\11" (category nil "Python") "\n\11\11" (category nil "Snippets") ...)) time-less-p :key org-webring--pub-time)
  (let* ((items (mapcan #'org-webring--get-items-from-url org-webring-urls)) (sorted-items (cl-sort items #'time-less-p :key #'org-webring--pub-time)) (most-recent (reverse (last sorted-items org-webring-items-total))) (articles (mapcar #'org-webring--article-instance most-recent))) (xmlgen (list 'section ':class "org-webring" (if org-webring-display-header (progn (list 'h4 (print org-webring-header)))) (cons 'section (cons ':class (cons "org-webring-articles" articles))) (cons 'p (cons ':class (cons "org-webring-attribution" (append (if org-webring-display-generation-time ...) (if org-webring-display-attribution ...))))))))
  org-webring-generate-webring()
  (progn (setq org-webring-header "Posts from other blogs I follow...") (setq org-webring-items-per-source 1) (setq org-webring-display-generation-time t) (setq org-webring-display-attribution t) (setq org-webring-display-header t) (setq org-webring-urls '("https://drewdevault.com/blog/index.xml" "https://sourcehut.org/blog/index.xml" "https://homotopytypetheory.org/feed/" "https://brown.121407.xyz/posts/rss.xml" "https://kowainik.github.io/rss.xml" "http://www.weaselhat.com/feed" "https://unapologetic.wordpress.com/feed/" "http://math.andrej.com/feed.xml" "http://pit-claudel.fr/clement/blog/feed" "http://amirchaudhry.com/tags/ocaml-atom.xml" "http://wingolog.org/feed/atom" "http://frama-c.com/rss.xml" "http://gallium.inria.fr/blog/index.rss" "https://gustedt.wordpress.com/feed/" "https://ambrevar.xyz/atom.xml" "http://wadler.blogspot.com/atom.xml" "https://guix.gnu.org/feeds/blog.atom" "https://www.gnu.org/software/guile/news/feed.xml")) (org-webring-generate-webring))
  eval((progn (setq org-webring-header "Posts from other blogs I follow...") (setq org-webring-items-per-source 1) (setq org-webring-display-generation-time t) (setq org-webring-display-attribution t) (setq org-webring-display-header t) (setq org-webring-urls '("https://drewdevault.com/blog/index.xml" "https://sourcehut.org/blog/index.xml" "https://homotopytypetheory.org/feed/" "https://brown.121407.xyz/posts/rss.xml" "https://kowainik.github.io/rss.xml" "http://www.weaselhat.com/feed" "https://unapologetic.wordpress.com/feed/" "http://math.andrej.com/feed.xml" "http://pit-claudel.fr/clement/blog/feed" "http://amirchaudhry.com/tags/ocaml-atom.xml" "http://wingolog.org/feed/atom" "http://frama-c.com/rss.xml" "http://gallium.inria.fr/blog/index.rss" "https://gustedt.wordpress.com/feed/" "https://ambrevar.xyz/atom.xml" "http://wadler.blogspot.com/atom.xml" "https://guix.gnu.org/feeds/blog.atom" "https://www.gnu.org/software/guile/news/feed.xml")) (org-webring-generate-webring)) nil)
  org-babel-execute:emacs-lisp("(setq org-webring-header \"Posts from other blogs I..." ((:colname-names) (:rowname-names) (:result-params "html" "value" "replace") (:result-type . value) (:results . "html value replace") (:exports . "results") (:cache . "no") (:hlines . "no") (:lexical . "no") (:noweb . "no") (:session . "none") (:tangle . "no")))
  org-babel-execute-src-block(nil ("emacs-lisp" "(setq org-webring-header \"Posts from other blogs I..." ((:colname-names) (:rowname-names) (:result-params "replace" "value" "html") (:result-type . value) (:results . "replace value html") (:exports . "results") (:tangle . "no") (:session . "none") (:noweb . "no") (:lexical . "no") (:hlines . "no") (:cache . "no")) "" nil 2305 "(ref:%s)"))
  org-babel-exp-results(("emacs-lisp" "(setq org-webring-header \"Posts from other blogs I..." ((:cache . "no") (:colname-names) (:exports . "results") (:hlines . "no") (:lexical . "no") (:noweb . "no") (:result-params "replace" "value" "html") (:result-type . value) (:results . "replace value html") (:rowname-names) (:session . "none") (:tangle . "no")) "" nil 2305 "(ref:%s)") block nil "ed58109461655740a0c11dbf9d2149f575fb8722")
  org-babel-exp-do-export(("emacs-lisp" "(setq org-webring-header \"Posts from other blogs I..." ((:cache . "no") (:colname-names) (:exports . "results") (:hlines . "no") (:lexical . "no") (:noweb . "no") (:result-params "replace" "value" "html") (:result-type . value) (:results . "replace value html") (:rowname-names) (:session . "none") (:tangle . "no")) "" nil 2305 "(ref:%s)") block "ed58109461655740a0c11dbf9d2149f575fb8722")
  org-babel-exp-src-block()
  org-babel-exp-process-buffer()
  org-export-as(html nil nil nil (:output-file "/home/brettg/Repos/cfg-website/public/index.html" :base-directory "/home/brettg/Repos/cfg-website" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico..." :crossrefs nil :filter-final-output (org-publish--store-crossrefs org-publish-collect-index)))
  org-export-to-file(html "/home/brettg/Repos/cfg-website/public/index.html" nil nil nil nil (:base-directory "/home/brettg/Repos/cfg-website" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico..." :crossrefs nil :filter-final-output (org-publish--store-crossrefs org-publish-collect-index)))
  org-publish-org-to(html "/home/brettg/Repos/cfg-website/index.org" ".html" (:base-directory "/home/brettg/Repos/cfg-website" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico...") "/home/brettg/Repos/cfg-website/public/")
  org-html-publish-to-html((:base-directory "/home/brettg/Repos/cfg-website" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico...") "/home/brettg/Repos/cfg-website/index.org" "/home/brettg/Repos/cfg-website/public/")
  (let ((project (cons 'b7 plist))) (plist-put plist :html-head-extra (blog-html-head-extra filename project)) (org-html-publish-to-html plist filename pub-dir))
  blog-org-html-publish-to-html((:base-directory "/home/brettg/Repos/cfg-website" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico...") "/home/brettg/Repos/cfg-website/index.org" "/home/brettg/Repos/cfg-website/public/")
  org-publish-file("/home/brettg/Repos/cfg-website/index.org" ("pages" :base-directory "/home/brettg/Repos/cfg-website" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico...") t)
  org-publish-projects((("posts" :base-directory "/home/brettg/Repos/cfg-website/posts" :base-extension "org" :recursive nil :exclude "\\(?:\\(?:rss\\|sitemap\\)\\.org\\)" :publishing-directory "/home/brettg/Repos/cfg-website/public/posts" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :auto-sitemap t :html-format-headline-function blog-org-html-format-headline-function :sitemap-filename "sitemap.org" :sitemap-title "Brett Gilio" :sitemap-sort-files anti-chronologically :sitemap-style list :sitemap-function blog-org-publish-sitemap :sitemap-format-entry blog-org-publish-sitemap-entry :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico...") ("pages" :base-directory "/home/brettg/Repos/cfg-website" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico...") ("pages" :base-directory "/home/brettg/Repos/cfg-website" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t :html-head-extra "<link rel=\"icon\" type=\"image/x-icon\" href=\"/favico...") ("rss" :base-directory "/home/brettg/Repos/cfg-website/posts" :base-extension "org" :exclude ".*" :include ("rss.org") :publishing-directory "/home/brettg/Repos/cfg-website/public" :publishing-function (blog-org-rss-publish-to-rss) :rss-extension "xml" :html-link-home "https://brettgilio.com/" :html-link-use-abs-url t :html-link-org-files-as-html t :title "Brett Gilio") ("assets" :base-directory "/home/brettg/Repos/cfg-website/assets" :base-extension any :recursive t :publishing-directory "/home/brettg/Repos/cfg-website/public/assets" :publishing-function org-publish-attachment) ("pltfp" :base-directory "/home/brettg/Repos/pltfp" :base-extension "org" :recursive nil :publishing-directory "/home/brettg/Repos/cfg-website/public/pltfp" :publishing-function blog-org-html-publish-to-html :html-link-home "/" :html-home/up-format "" :html-format-headline-function blog-org-html-format-headline-function :author "Brett Gilio" :email "brettg@gnu.org" :with-creator t)))
  org-publish-all()
  (let ((org-publish-project-alist (get-blog-project-alist)) (org-export-with-smart-quotes t) (org-export-with-toc nil) (org-html-doctype "html5") (org-html-divs '((preamble "header" "preamble") (content "main" "content") (postamble "footer" "postamble"))) (org-html-container-element "section") (org-html-link-home blog-root) (org-html-html5-fancy t) (org-html-checkbox-type 'html) (org-html-validation-link nil) (org-html-preamble t) (org-html-postamble t) (org-html-postamble-format (list (list "en" (xmlgen (cons 'div (cons ... ...)))))) (org-html-preamble-format (list (list "en" (xmlgen '(div ... ... ... ...)))))) (org-publish-remove-all-timestamps) (delete-directory (project-dir "public") t) (org-publish-all) (message "Done publishing."))
  blog-publish-all()
  funcall-interactively(blog-publish-all)
  call-interactively(blog-publish-all record nil)
  command-execute(blog-publish-all record)
  execute-extended-command(nil "blog-publish-all" nil)
  funcall-interactively(execute-extended-command nil "blog-publish-all" nil)
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)
--8<---------------cut here---------------end--------------->8---
Details
Message ID
<87363zyfy1.fsf@posteo.ro>
In-Reply-To
<87ft80c8gv.fsf@gnu.org> (view parent)
DKIM signature
pass
Download raw message
Hi,

I've been able to reproduce this on GNU Guix System with Emacs 27.1. It
seems that parse-time-string doesn't yet understand the Atom
timestamps. We could do employ a workaround until we figure it out: if
iso8601-parse is bound, use it to parse the timestamps, otherwise use
parse-time-string on our string hack.

--8<---------------cut here---------------start------------->8---
(parse-time-string "2020-06-24T17:00:00+0200")
=> (nil nil nil nil nil nil nil -1 nil)

(iso8601-parse "2020-06-24T17:00:00+0200")
=> (0 0 17 24 6 2020 nil nil 7200)
--8<---------------cut here---------------end--------------->8---

--
Sergiu
Details
Message ID
<875z8w551t.fsf@gnu.org>
In-Reply-To
<87363zyfy1.fsf@posteo.ro> (view parent)
DKIM signature
missing
Download raw message
Alexandru-Sergiu Marton <brown121407@posteo.ro> writes:

> Hi,
>
> I've been able to reproduce this on GNU Guix System with Emacs 27.1. It
> seems that parse-time-string doesn't yet understand the Atom
> timestamps. We could do employ a workaround until we figure it out: if
> iso8601-parse is bound, use it to parse the timestamps, otherwise use
> parse-time-string on our string hack.
>
> (parse-time-string "2020-06-24T17:00:00+0200")
> => (nil nil nil nil nil nil nil -1 nil)
>
> (iso8601-parse "2020-06-24T17:00:00+0200")
> => (0 0 17 24 6 2020 nil nil 7200)
>
> --
> Sergiu

Update. The issue is that iso8601 condition checks are not integrated
into parse-time-string for 27.1, but is added in 28.0.50. WIP fix
coming.

Brett Gilio
Details
Message ID
<874kofhpp2.fsf@gnu.org>
In-Reply-To
<875z8w551t.fsf@gnu.org> (view parent)
DKIM signature
missing
Download raw message
Brett Gilio <brettg@gnu.org> writes:

> Alexandru-Sergiu Marton <brown121407@posteo.ro> writes:
>
>> Hi,
>>
>> I've been able to reproduce this on GNU Guix System with Emacs 27.1. It
>> seems that parse-time-string doesn't yet understand the Atom
>> timestamps. We could do employ a workaround until we figure it out: if
>> iso8601-parse is bound, use it to parse the timestamps, otherwise use
>> parse-time-string on our string hack.
>>
>> (parse-time-string "2020-06-24T17:00:00+0200")
>> => (nil nil nil nil nil nil nil -1 nil)
>>
>> (iso8601-parse "2020-06-24T17:00:00+0200")
>> => (0 0 17 24 6 2020 nil nil 7200)
>>
>> --
>> Sergiu
>
> Update. The issue is that iso8601 condition checks are not integrated
> into parse-time-string for 27.1, but is added in 28.0.50. WIP fix
> coming.
>
> Brett Gilio

This was fixed with a patch applied from Ivan and I
https://git.sr.ht/~brettgilio/org-webring/commit/d48dcc3bd62a7df2117466e49e29dd0b2dd6e79a
Export thread (mbox)