diff options
author | Tom Willemse | 2023-04-12 00:42:49 -0700 |
---|---|---|
committer | Tom Willemse | 2023-04-12 00:42:49 -0700 |
commit | 7c531e3ab3d73899c38706d0d3eae9ca1d647a83 (patch) | |
tree | 35233e4cb7e1c44300a65e36eace3081cc3eb3e9 /tekuti.el | |
parent | b2fc64d2b04ea1e2507a8f14bd10fcd1bd7078ec (diff) | |
download | tekuti-el-7c531e3ab3d73899c38706d0d3eae9ca1d647a83.tar.gz tekuti-el-7c531e3ab3d73899c38706d0d3eae9ca1d647a83.zip |
Fix setting the comment status open/closed
Diffstat (limited to 'tekuti.el')
-rw-r--r-- | tekuti.el | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -32,7 +32,7 @@ ;; #+TITLE: SOME TITLE ;; #+DATE: <2021-06-03 Thu 22:45> ;; #+TAGS: comma,separated -;; #+COMMENTS: open +;; #+COMMENT_STATUS: open ;; #+COMMENTS_DATE: ;; #+STATUS: publish @@ -58,7 +58,7 @@ ("DATE" ,(tekuti--format-date)) ("TAGS") ("STATUS") - ("COMMENTS") + ("COMMENT_STATUS") ("COMMENTS-CLOSED-DATE") ("BODY"))) (data (append @@ -72,7 +72,7 @@ (and (not (string-empty-p date)) (tekuti--format-date date)))) (_ pair))) - (org-collect-keywords '("TITLE" "TAGS" "STATUS" "COMMENTS" "DATE" "COMMENTS_DATE"))) + (org-collect-keywords '("TITLE" "TAGS" "STATUS" "COMMENT_STATUS" "DATE" "COMMENTS_DATE"))) (list (list "BODY" (with-current-buffer (org-html-export-as-html nil nil nil t) @@ -101,7 +101,7 @@ (goto-char (point-min)) (search-forward "\n\n") (backward-char) - (let ((data (org-collect-keywords '("TITLE" "TAGS" "STATUS" "COMMENTS" "DATE" "COMMENTS_DATE")))) + (let ((data (org-collect-keywords '("TITLE" "TAGS" "STATUS" "COMMENT_STATUS" "DATE" "COMMENTS_DATE")))) (mapc (lambda (item) (let ((key (car item)) (value (cadr item))) |