[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6c3869a104: Add a new `vtable' face
From: |
Lars Ingebrigtsen |
Subject: |
master 6c3869a104: Add a new `vtable' face |
Date: |
Wed, 13 Apr 2022 17:19:17 -0400 (EDT) |
branch: master
commit 6c3869a104075403b10130294e7f307143e09a73
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Add a new `vtable' face
* doc/misc/vtable.texi (Introduction): Document it.
* lisp/emacs-lisp/vtable.el (vtable): Add a new face.
---
doc/misc/vtable.texi | 12 ++++++------
lisp/emacs-lisp/vtable.el | 8 +++++++-
2 files changed, 13 insertions(+), 7 deletions(-)
diff --git a/doc/misc/vtable.texi b/doc/misc/vtable.texi
index 48e6301fce..4f7b722a28 100644
--- a/doc/misc/vtable.texi
+++ b/doc/misc/vtable.texi
@@ -88,9 +88,9 @@ Here's just about the simplest vtable that can be created:
("Gazonk" 45)))
@end lisp
-By default, vtable uses the @code{variable-pitch} font, and
-right-aligns columns that have only numerical data (and left-aligns
-the rest).
+By default, vtable uses the @code{vtable} face (which inherits from
+the @code{variable-pitch} face), and right-aligns columns that have
+only numerical data (and left-aligns the rest).
You'd normally want to name the columns:
@@ -383,9 +383,9 @@ there are several tables in the same buffer, then this
should be
@code{nil}.
@item :face
-The face to be used. This defaults to @code{variable-pitch}. This
-face doesn't override the faces in the data, or the faces supplied by
-the getter and formatter functions.
+The face to be used. This defaults to @code{vtable}. This face
+doesn't override the faces in the data, or the faces supplied by the
+getter and formatter functions.
@item :column-colors
If present, this should be a list of color names to be used as the
diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 98106e4670..3e521c94a5 100644
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -28,6 +28,12 @@
(require 'text-property-search)
(require 'mule-util)
+(defface vtable
+ '((t :inherit variable-pitch))
+ "Face used (by default) for vtables."
+ :version "29.1"
+ :group 'faces)
+
(cl-defstruct vtable-column
"A vtable column."
name
@@ -79,7 +85,7 @@
formatter
displayer
(use-header-line t)
- (face 'variable-pitch)
+ (face 'vtable)
actions keymap
(separator-width 1)
sort-by
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 6c3869a104: Add a new `vtable' face,
Lars Ingebrigtsen <=