[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/osm c081154651: Fix header menu for small windows and v
From: |
ELPA Syncer |
Subject: |
[elpa] externals/osm c081154651: Fix header menu for small windows and variable pitch fonts (Fix #29) |
Date: |
Sat, 31 Dec 2022 15:57:55 -0500 (EST) |
branch: externals/osm
commit c0811546514d76e7e6e9d64ce1b5f0509a91c8ef
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Fix header menu for small windows and variable pitch fonts (Fix #29)
---
osm.el | 23 +++++++++++------------
1 file changed, 11 insertions(+), 12 deletions(-)
diff --git a/osm.el b/osm.el
index 8b8159a3b2..148091553d 100644
--- a/osm.el
+++ b/osm.el
@@ -1064,8 +1064,17 @@ xmlns='http://www.w3.org/2000/svg'
xmlns:xlink='http://www.w3.org/1999/xlink'>
(setq-local
header-line-format
(list
+ (osm--header-button " ☰ " osm--menu)
+ (propertize " " 'display '(space :width (1)))
+ (osm--header-button (format " %s " server) #'osm--server-menu)
+ (propertize " " 'display '(space :width (1)))
+ (osm--header-button " + " #'osm-zoom-in 'fixed-pitch)
+ (propertize " " 'display '(space :width (1)))
+ (osm--header-button " - " #'osm-zoom-out 'fixed-pitch)
+ (format " Z%-2d " osm--zoom)
+ (propertize " " 'display '(space :align-to (- center 15)))
(format (propertize " %7.2f° %7.2f°" 'face 'bold) osm--lat osm--lon)
- (propertize " " 'display '(space :align-to (- center 10)))
+ (propertize " " 'display '(space :align-to (- right 20)))
(format "%3s " (if (>= meter 1000) (/ meter 1000) meter))
(if (>= meter 1000) "km " "m ")
(propertize " " 'face '(:inverse-video t)
@@ -1073,17 +1082,7 @@ xmlns='http://www.w3.org/2000/svg'
xmlns:xlink='http://www.w3.org/1999/xlink'>
(propertize " " 'face '(:strike-through t)
'display `(space :width (,(floor (/ meter
meter-per-pixel)))))
(propertize " " 'face '(:inverse-video t)
- 'display '(space :width (3)))
- (propertize " " 'display `(space :align-to
- (- right ,(+ 5 3 3 2 (length server) 3)
(,(+ 4 1 4 1 4 1 4)))))
- (format " Z%-2d " osm--zoom)
- (osm--header-button " + " #'osm-zoom-in)
- (propertize " " 'display '(space :width (1)))
- (osm--header-button " - " #'osm-zoom-out)
- (propertize " " 'display '(space :width (1)))
- (osm--header-button (format " %s " server) #'osm--server-menu)
- (propertize " " 'display '(space :width (1)))
- (osm--header-button " ☰ " osm--menu)))))
+ 'display '(space :width (3)))))))
(defun osm--update ()
"Update map display."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/osm c081154651: Fix header menu for small windows and variable pitch fonts (Fix #29),
ELPA Syncer <=