Show error if STATUS isn't one of the accepted values

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