From: Philippe Vaucher <philippe.vaucher@gmail.com>
To: yurivkhan@gmail.com
Cc: "Clément Pit-Claudel" <cpitclaudel@gmail.com>,
"Emacs developers" <emacs-devel@gnu.org>
Subject: Re: tabulated-list sort icon is reversed
Date: Fri, 10 Aug 2018 22:10:21 +0200 [thread overview]
Message-ID: <CAGK7Mr4=O0s=A5C0xBsKeWZh8sjYW2Jbqc250P2sXP89OPo5dg@mail.gmail.com> (raw)
In-Reply-To: <CAP_d_8WmHfAiGcUawoFqxUKHQDf3TuAyVsmeYzF4j-HD2Ca4Bw@mail.gmail.com>
[-- Attachment #1.1: Type: text/plain, Size: 1198 bytes --]
On Fri, Aug 10, 2018 at 4:52 PM Yuri Khan <yurivkhan@gmail.com> wrote:
> On Fri, Aug 10, 2018 at 9:15 PM Philippe Vaucher
> <philippe.vaucher@gmail.com> wrote:
>
> > To be honest I'm losing a bit of steam here, I now suspect this patch
> will never land because the ACSII part is unsolvable, and because I guess
> that using an image requires quite a lot of refactoring (displaying an
> inline image instead of a character is likely to be complicated).
>
> Fortunately there’s an easy escape hatch from this problem: Make it a
> defcustom. Then we can spend an inordinate amount of time bikeshedding
> the default.
>
Good idea! Here's a patch in that direction, here are things that I'm not
sure about:
- variable name? `tabulated-list-sort-ascending-indicator`?
`tabulated-list-sort-ascending-icon`? For ASCII, `-ascii` or `-glyphless`?
- group definition: does tabulated-list belong to another group?
- 4 defcustoms or 2? For example, it could be `(defcustom
tabulated-list-sort-ascending-texts '(" ▼" "v"))`, that way you customize
both icons at the same time (it could even be only one defcustom with :asc
keywords etc)
Thanks,
Philippe
[-- Attachment #1.2: Type: text/html, Size: 1621 bytes --]
[-- Attachment #2: 0001-Allow-customization-of-sort-indicators-in-tabulated-.patch --]
[-- Type: text/x-patch, Size: 2583 bytes --]
From 0b3264ecddc5b23b00055387e8cd9c5c4d9da766 Mon Sep 17 00:00:00 2001
From: Philippe Vaucher <philippe.vaucher@gmail.com>
Date: Fri, 10 Aug 2018 21:59:24 +0200
Subject: [PATCH] Allow customization of sort indicators in tabulated-list
* lisp/emacs-lisp/tabulated-list.el: add customization group, add
defcustoms.
---
lisp/emacs-lisp/tabulated-list.el | 31 +++++++++++++++++++++++++++----
1 file changed, 27 insertions(+), 4 deletions(-)
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 58619ecda0..4552ef7f98 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -36,6 +36,29 @@
;;; Code:
+(defgroup tabulated-list nil
+ "Tabulated-list customization group.")
+
+(defcustom tabulated-list-sort-ascending-icon " ▼"
+ "Icon to display when sort order is ascending."
+ :group 'tabulated-list
+ :type 'string)
+
+(defcustom tabulated-list-sort-descending-icon " ▲"
+ "Icon to display when sort order is descending."
+ :group 'tabulated-list
+ :type 'string)
+
+(defcustom tabulated-list-sort-ascending-glyphless "v"
+ "Glyphless icon to display when sort order is ascending."
+ :group 'tabulated-list
+ :type 'string)
+
+(defcustom tabulated-list-sort-descending-glyphless "^"
+ "Glyphless icon to display when sort order is descending."
+ :group 'tabulated-list
+ :type 'string)
+
;; The reason `tabulated-list-format' and other variables are
;; permanent-local is to make it convenient to switch to a different
;; major mode, switch back, and have the original Tabulated List data
@@ -176,8 +199,8 @@ If ADVANCE is non-nil, move forward by one line afterwards."
(let ((table (make-char-table 'glyphless-char-display nil)))
(set-char-table-parent table glyphless-char-display)
;; Some text terminals can't display the Unicode arrows; be safe.
- (aset table 9650 (cons nil "^"))
- (aset table 9660 (cons nil "v"))
+ (aset table 9650 (cons nil tabulated-list-sort-descending-glyphless))
+ (aset table 9660 (cons nil tabulated-list-sort-ascending-glyphless))
table)
"The `glyphless-char-display' table in Tabulated List buffers.")
@@ -229,8 +252,8 @@ Populated by `tabulated-list-init-header'.")
(concat label
(cond
((> (+ 2 (length label)) width) "")
- ((cdr tabulated-list-sort-key) " ▲")
- (t " ▼")))
+ ((cdr tabulated-list-sort-key) tabulated-list-sort-descending-icon)
+ (t tabulated-list-sort-ascending-icon)))
'face 'bold
'tabulated-list-column-name label
button-props))
--
2.18.0
next prev parent reply other threads:[~2018-08-10 20:10 UTC|newest]
Thread overview: 71+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-07-28 18:14 tabulated-list sort icon is reversed Philippe Vaucher
2018-07-28 19:03 ` Eli Zaretskii
2018-07-28 22:00 ` Philippe Vaucher
2018-07-29 17:34 ` Eli Zaretskii
2018-07-30 7:14 ` Robert Pluim
2018-07-30 10:47 ` Joost Kremers
2018-07-30 14:48 ` Drew Adams
2018-07-30 15:17 ` Robert Pluim
2018-07-30 15:24 ` Eli Zaretskii
2018-07-30 17:33 ` Stefan Monnier
2018-07-30 17:57 ` Clément Pit-Claudel
2018-07-31 18:28 ` Philippe Vaucher
2018-07-31 18:34 ` Philippe Vaucher
2018-07-31 18:35 ` Philippe Vaucher
2018-07-31 19:24 ` Stefan Monnier
2018-07-31 19:37 ` Drew Adams
2018-07-31 20:19 ` Stefan Monnier
2018-07-31 21:46 ` Drew Adams
2018-08-01 20:48 ` Joost Kremers
2018-08-02 2:09 ` Richard Stallman
2018-08-02 5:02 ` Stefan Monnier
2018-08-02 8:56 ` Philippe Vaucher
2018-08-02 13:09 ` Clément Pit-Claudel
2018-08-03 11:13 ` Joost Kremers
2018-08-03 11:23 ` Robert Pluim
2018-08-05 4:01 ` Van L
2018-08-10 9:56 ` Philippe Vaucher
2018-08-10 12:18 ` Eli Zaretskii
2018-08-10 12:37 ` Philippe Vaucher
2018-08-10 12:49 ` Eli Zaretskii
2018-08-10 14:07 ` Philippe Vaucher
2018-08-10 13:20 ` Clément Pit-Claudel
2018-08-10 14:11 ` Philippe Vaucher
2018-08-10 14:52 ` Yuri Khan
2018-08-10 20:10 ` Philippe Vaucher [this message]
2019-02-12 19:13 ` Clément Pit-Claudel
2019-02-12 19:43 ` Eli Zaretskii
2019-02-12 20:54 ` Clément Pit-Claudel
2019-02-15 13:38 ` Philippe Vaucher
2019-02-15 14:05 ` Clément Pit-Claudel
2019-02-15 14:15 ` Eli Zaretskii
2019-02-15 14:42 ` Philippe Vaucher
2019-02-27 20:08 ` Philippe Vaucher
2019-02-27 20:21 ` Clément Pit-Claudel
2019-02-27 21:23 ` Stefan Monnier
2019-02-28 7:55 ` Philippe Vaucher
2019-03-01 9:48 ` Philippe Vaucher
2019-03-01 13:56 ` Stefan Monnier
2019-03-01 16:34 ` Philippe Vaucher
2019-03-01 17:34 ` Stefan Monnier
2019-03-01 18:14 ` Philippe Vaucher
2019-03-02 11:53 ` Eli Zaretskii
2019-03-02 17:48 ` Philippe Vaucher
2019-03-02 17:51 ` Philippe Vaucher
2019-03-02 18:15 ` Eli Zaretskii
2019-03-02 19:06 ` Philippe Vaucher
2019-03-08 9:43 ` Eli Zaretskii
2019-03-08 13:38 ` Stefan Monnier
2019-03-08 14:35 ` Eli Zaretskii
2019-03-09 10:18 ` Philippe Vaucher
2019-03-09 10:20 ` Philippe Vaucher
2019-03-09 15:06 ` Eli Zaretskii
2019-03-09 17:08 ` Philippe Vaucher
2019-03-09 17:19 ` Eli Zaretskii
2019-03-09 19:57 ` Stefan Monnier
2019-03-11 9:08 ` Philippe Vaucher
2019-03-11 10:54 ` Philippe Vaucher
2019-03-15 9:11 ` Eli Zaretskii
2019-03-17 11:55 ` Philippe Vaucher
2019-03-02 18:15 ` Eli Zaretskii
2018-08-02 8:56 ` Philippe Vaucher
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CAGK7Mr4=O0s=A5C0xBsKeWZh8sjYW2Jbqc250P2sXP89OPo5dg@mail.gmail.com' \
--to=philippe.vaucher@gmail.com \
--cc=cpitclaudel@gmail.com \
--cc=emacs-devel@gnu.org \
--cc=yurivkhan@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.