emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 84bf954 2/2: Use a proportional font for the mode line


From: Lars Ingebrigtsen
Subject: master 84bf954 2/2: Use a proportional font for the mode line
Date: Wed, 24 Nov 2021 08:48:25 -0500 (EST)

branch: master
commit 84bf9549860aae22931951d52b194b1fcfca1556
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Use a proportional font for the mode line
    
    * lisp/bindings.el (mode-line-position): Add min-width specs.
    (standard-mode-line-format): Ditto.
    
    * lisp/faces.el (mode-line): Inherit from `variable-pitch'.
---
 etc/NEWS         |  4 ++++
 lisp/bindings.el | 18 ++++++++++++++----
 lisp/faces.el    |  4 +++-
 3 files changed, 21 insertions(+), 5 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index 1cd49c5..1756897 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -75,6 +75,10 @@ time.
 
 * Changes in Emacs 29.1
 
+---
+** The mode line now uses a proportional font by default.
+To get the old monospaced mode line back, customize the 'mode-line' face.
+
 +++
 ** New function 'buffer-text-pixel-size'.
 This is similar to 'window-text-pixel-size', but can be used when the
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 121e484..a4458cc 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -503,6 +503,7 @@ mouse-1: Display Line and Column Mode Menu"))
   `((:propertize
      mode-line-percent-position
      local-map ,mode-line-column-line-number-mode-map
+     display (min-width (5.0))
      mouse-face mode-line-highlight
      ;; XXX needs better description
      help-echo "Window Scroll Percentage
@@ -521,26 +522,31 @@ mouse-1: Display Line and Column Mode Menu")))
         (10
          (:propertize
           mode-line-position-column-line-format
+          display (min-width (10.0))
           ,@mode-line-position--column-line-properties))
         (10
          (:propertize
           (:eval (string-replace
                   "%c" "%C" (car mode-line-position-column-line-format)))
+          display (min-width (10.0))
           ,@mode-line-position--column-line-properties)))
        (6
         (:propertize
         mode-line-position-line-format
+         display (min-width (6.0))
          ,@mode-line-position--column-line-properties))))
      (column-number-mode
       (column-number-indicator-zero-based
        (6
         (:propertize
          mode-line-position-column-format
+         display (min-width (6.0))
          (,@mode-line-position--column-line-properties)))
        (6
         (:propertize
          (:eval (string-replace
                  "%c" "%C" (car mode-line-position-column-format)))
+         display (min-width (6.0))
          ,@mode-line-position--column-line-properties))))))
   "Mode line construct for displaying the position in the buffer.
 Normally displays the buffer percentage and, optionally, the
@@ -597,10 +603,14 @@ By default, this shows the information specified by 
`global-mode-string'.")
 (let ((standard-mode-line-format
        (list "%e"
             'mode-line-front-space
-            'mode-line-mule-info
-            'mode-line-client
-            'mode-line-modified
-            'mode-line-remote
+             (list
+              :propertize
+              (list ""
+                   'mode-line-mule-info
+                   'mode-line-client
+                   'mode-line-modified
+                   'mode-line-remote)
+              'display '(min-width (4.0)))
             'mode-line-frame-identification
             'mode-line-buffer-identification
             "   "
diff --git a/lisp/faces.el b/lisp/faces.el
index a07f8c6..e9f795c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2611,9 +2611,11 @@ non-nil."
 (defface mode-line
   '((((class color) (min-colors 88))
      :box (:line-width -1 :style released-button)
+     :inherit 'variable-pitch
      :background "grey75" :foreground "black")
     (t
-     :inverse-video t))
+     :inverse-video t
+     :inherit 'variable-pitch))
   "Basic mode line face for selected window."
   :version "21.1"
   :group 'mode-line-faces



reply via email to

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