aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Tom Willemse2023-04-12 00:42:49 -0700
committerGravatar Tom Willemse2023-04-12 00:42:49 -0700
commit7c531e3ab3d73899c38706d0d3eae9ca1d647a83 (patch)
tree35233e4cb7e1c44300a65e36eace3081cc3eb3e9
parentb2fc64d2b04ea1e2507a8f14bd10fcd1bd7078ec (diff)
downloadtekuti-el-7c531e3ab3d73899c38706d0d3eae9ca1d647a83.tar.gz
tekuti-el-7c531e3ab3d73899c38706d0d3eae9ca1d647a83.zip
Fix setting the comment status open/closed
-rw-r--r--tekuti.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/tekuti.el b/tekuti.el
index 72f8c32..2034839 100644
--- a/tekuti.el
+++ b/tekuti.el
@@ -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)))