[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-modern 2186c64777 1/7: org-modern-keyword: Remove o
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-modern 2186c64777 1/7: 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 2186c64777450de21a22bb6cc628585ec800bc6b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
org-modern-keyword: Remove option to replace prefix with string
Instead use an alist of the form '((t . "‣"))
---
org-modern.el | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 0b48bf803c..dc2996ad73 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -163,12 +163,11 @@ and faces in the cdr. Example:
(defcustom org-modern-keyword t
"Prettify keywords like #+title.
-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."
+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."
: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")
@@ -531,10 +530,9 @@ 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]*\\(#\\+\\)\\([^:]+\\):"
- ,@(pcase org-modern-keyword
- ('t '(1 '(face nil invisible t)))
- ((pred stringp) `(1 '(face nil display ,org-modern-keyword)))
- (_ '(0 (org-modern--keyword)))))))
+ ,@(if (consp org-modern-keyword)
+ '(0 (org-modern--keyword))
+ '(1 '(face nil invisible t))))))
(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 <=
- [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, 2022/06/03
- [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