[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-modern 6be8909156 2/7: Revert "org-modern-keyword:
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-modern 6be8909156 2/7: Revert "org-modern-keyword: Remove option to replace prefix with string" |
Date: |
Fri, 3 Jun 2022 12:57:50 -0400 (EDT) |
branch: externals/org-modern
commit 6be89091569a83bacaa45e62d7965e74ad1cbbf7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Revert "org-modern-keyword: Remove option to replace prefix with string"
This reverts commit 2186c64777450de21a22bb6cc628585ec800bc6b.
---
org-modern.el | 16 +++++++++-------
1 file changed, 9 insertions(+), 7 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index dc2996ad73..0b48bf803c 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -163,11 +163,12 @@ and faces in the cdr. Example:
(defcustom org-modern-keyword t
"Prettify keywords like #+title.
-If set to t, the keyword prefix will be hidden. If set to an alist of
-keywords, the associated string will be used as replacement for
-\"#+keyword:\". The key t is the default key. The value t is the default
-value and will hide the keyword prefix only."
+If set to a string, e.g., \"‣\", the string is used as replacement for #+.
+If set to an alist of keywords and strings, the associated string will be
+used as replacement for \"#+keyword:\", with t the default key."
:type '(choice (boolean :tag "Hide prefix")
+ (string :tag "Replacement")
+ (const :tag "Triangle bullet" "‣")
(alist :key-type (choice (string :tag "Keyword")
(const :tag "Default" t))
:value-type (choice (string :tag "Replacement")
@@ -530,9 +531,10 @@ You can specify a font `:family'. The font families
`Iosevka', `Hack' and
`((,(format "^\\*+ +%s " (regexp-opt org-todo-keywords-1 t)) (0
(org-modern--todo)))))
(when org-modern-keyword
`(("^[ \t]*\\(#\\+\\)\\([^:]+\\):"
- ,@(if (consp org-modern-keyword)
- '(0 (org-modern--keyword))
- '(1 '(face nil invisible t))))))
+ ,@(pcase org-modern-keyword
+ ('t '(1 '(face nil invisible t)))
+ ((pred stringp) `(1 '(face nil display ,org-modern-keyword)))
+ (_ '(0 (org-modern--keyword)))))))
(when org-modern-checkbox
'(("^[ \t]*\\(?:[-+*]\\|[0-9]+[.)]\\)[ \t]+\\(\\[[ X-]\\]\\)[ \t]"
(0 (org-modern--checkbox)))))
- [elpa] externals/org-modern updated (495e41fec5 -> 78e9f60aeb), ELPA Syncer, 2022/06/03
- [elpa] externals/org-modern 2186c64777 1/7: org-modern-keyword: Remove option to replace prefix with string, ELPA Syncer, 2022/06/03
- [elpa] externals/org-modern c01d9978c7 5/7: Rename function, ELPA Syncer, 2022/06/03
- [elpa] externals/org-modern ce7fe9c09d 6/7: Fix, ELPA Syncer, 2022/06/03
- [elpa] externals/org-modern 6be8909156 2/7: Revert "org-modern-keyword: Remove option to replace prefix with string",
ELPA Syncer <=
- [elpa] externals/org-modern 5e61cbbce5 3/7: Support per-block replacements + fringe toggle (#54), ELPA Syncer, 2022/06/03
- [elpa] externals/org-modern 231462883c 4/7: Minor fixes, ELPA Syncer, 2022/06/03
- [elpa] externals/org-modern 78e9f60aeb 7/7: Go back to 6be89091569a83bacaa45e62d7965e74ad1cbbf7, ELPA Syncer, 2022/06/03