emacs-orgmode
[Top][All Lists]
Advanced

[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:

Attachment: before.png
Description: PNG image

After my patch:

Attachment: after.png
Description: PNG image


-- 
[ stardiviner ] don't need to convince with trends.
       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
      

Attachment: signature.asc
Description: PGP signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]