[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-modern d0f13dc887 2/2: Better fringe bitmaps
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-modern d0f13dc887 2/2: Better fringe bitmaps |
Date: |
Sat, 11 Jun 2022 17:57:44 -0400 (EDT) |
branch: externals/org-modern
commit d0f13dc88781f51368c479c83d00753b78f55d46
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Better fringe bitmaps
---
org-modern.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 3a1481e528..26f63cf12a 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -514,12 +514,11 @@ You can specify a font `:family'. The font families
`Iosevka', `Hack' and
(cond
(org-modern-mode
(unless (fringe-bitmap-p 'org-modern--block-inner)
- (let* ((h (ceiling (default-line-height) 2))
- (v1 (make-vector h 0))
- (v2 (make-vector (- 127 h) #x80)))
+ (let* ((g (ceiling (frame-char-height) 1.8))
+ (h (- (default-line-height) g)))
(define-fringe-bitmap 'org-modern--block-inner [128] nil nil '(top t))
- (define-fringe-bitmap 'org-modern--block-begin (vconcat v1 [#xFF] v2)
nil nil 'top)
- (define-fringe-bitmap 'org-modern--block-end (vconcat v2 [#xFF] v1)
nil nil 'bottom)))
+ (define-fringe-bitmap 'org-modern--block-begin (vconcat (make-vector g
0) [#xFF] (make-vector (- 127 g) #x80)) nil nil 'top)
+ (define-fringe-bitmap 'org-modern--block-end (vconcat (make-vector (-
127 h) #x80) [#xFF] (make-vector h 0)) nil nil 'bottom)))
(org-modern--update-label-face)
(setq
org-modern--keywords