branch: externals/org-modern
commit 8c4bc6a3205aeb9d1a8177e14f3d2e6c4775d844
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Ensure that todo keywords stay editable (See #2)
---
org-modern.el | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index b9750223e4..079f895336 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -270,14 +270,18 @@ Set to nil to disable the progress bar."
(let ((todo (match-string 1))
(beg (match-beginning 1))
(end (match-end 1)))
+ (put-text-property
+ beg (1+ beg)
+ 'display (format " %c" (char-after beg)))
+ (put-text-property
+ (1- end) end
+ 'display (format "%c " (char-before end)))
(put-text-property
beg end
- 'display
- (propertize (concat " " todo " ")
- 'face
- (if (member todo org-done-keywords)
- 'org-modern-done
- 'org-modern-todo)))))
+ 'face
+ (if (member todo org-done-keywords)
+ 'org-modern-done
+ 'org-modern-todo))))
(defun org-modern--timestamp ()
"Prettify timestamps."
