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 ()