[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [PATCH] make tags fast selection popup narrower
From: |
stardiviner |
Subject: |
[O] [PATCH] make tags fast selection popup narrower |
Date: |
Sun, 15 Apr 2018 17:49:39 +0800 |
User-agent: |
mu4e 1.0; emacs 27.0.50 |
Here is the patch:
From 7fc28443484f7b8c701d7c076f1c9c4e389651e7 Mon Sep 17 00:00:00 2001
From: stardiviner <address@hidden>
Date: Sun, 15 Apr 2018 17:41:44 +0800
Subject: [PATCH] * org.el: make fast tags selection popup narrower to look
better.
* lisp/org.el (org-fast-tag-selection): original spaces behind each tag
is calculated based on window width. It is big. Diffcult to find tags.
---
lisp/org.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 4080f3884..e08129498 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -14647,8 +14647,7 @@ Returns the new tags string, or nil to not change the
current settings."
(when (equal (caar tbl) :grouptags)
(org-add-props tg nil 'face 'org-tag-group))
(when (and (zerop cnt) (not ingroup) (not intaggroup)) (insert " "))
- (insert "[" c "] " tg (make-string
- (- fwidth 4 (length tg)) ?\ ))
+ (insert "[" c "] " tg (make-string 2 ?\ ))
(push (cons tg c) ntable)
(when (= (cl-incf cnt) ncol)
(insert "\n")
--
2.17.0
And I toke two screenshots.
Before my patch:
before.png
Description: PNG image
After my patch:
after.png
Description: PNG image
--
[ stardiviner ] don't need to convince with trends.
Blog: https://stardiviner.github.io/
IRC(freenode): stardiviner
GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
signature.asc
Description: PGP signature
- [O] [PATCH] make tags fast selection popup narrower,
stardiviner <=