aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tekuti.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/tekuti.el b/tekuti.el
index 9fbbbf9..02b23db 100644
--- a/tekuti.el
+++ b/tekuti.el
@@ -65,6 +65,12 @@ with a ‘/’.")
(list "COMMENTS-CLOSED-DATE"
(and (not (string-empty-p date))
(tekuti--format-date date))))
+ (`("STATUS" ,status)
+ (let ((accepted-values '("publish" "draft" "private")))
+ (if (member status accepted-values)
+ pair
+ (error "Unknown post status: %s; Accepted values are: %s"
+ status accepted-values))))
(_ pair)))
(defun tekuti-build-data-from-org ()