Prettify article dates

diff --git a/onerc.el b/onerc.el
index 73b5e593b1126af7364be2cd74a72ab2054693f9..c1a7c480fca694662dfcf8c3e87ce09fbcbedde1 100644 (file)
--- a/onerc.el
+++ b/onerc.el
@@ -46,6 +46,10 @@
 (defun shtarkov.net-category (custom-id)
   (cadr (string-split custom-id "/")))
 
+(defun shtarkov.net-date (date)
+  (unless date (user-error "Expected a date."))
+  (cadr (string-split date "[<> ]")))
+
 (defun shtarkov.net-home (page-tree pages _global)
   (let* ((website-name (one-default-website-name pages))
          (content (org-export-data-with-backend
@@ -110,7 +114,7 @@
          (title (org-element-property :raw-value page-tree))
          (category
           (shtarkov.net-category (org-element-property :CUSTOM_ID page-tree)))
-         (date (org-element-property :DATE page-tree))
+         (date (shtarkov.net-date (org-element-property :DATE page-tree)))
          (content (org-export-data-with-backend
                    (org-element-contents page-tree)
                    'shtarkov.net-ox nil)))