branch: externals/org-modern
commit 1074133d9dd1ce4eb6c9ab1d1dbc7b78b3d8733b
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Fix org-modern divider line scaling (Fix #99 and #155)
---
org-modern.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/org-modern.el b/org-modern.el
index 5a541dc949..97c8440d3e 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -661,8 +661,12 @@ whole buffer; otherwise, for the line at point."
(unless (equal (and (listp box) (plist-get box :color))
(face-attribute 'default :background nil t))
(org-modern--update-label-face)))
- (setf org-modern--table-sp-width (default-font-width)
- (cadr org-modern--table-overline) (face-attribute 'org-table
:foreground nil t)))
+ (let ((face-remapping-alist
+ (if-let (h (cadr (assq :height (assq 'default face-remapping-alist))))
+ `((default (:inherit org-table :height ,h)))
+ '((default (:inherit org-table))))))
+ (setq org-modern--table-sp-width (default-font-width)))
+ (setf (cadr org-modern--table-overline) (face-attribute 'org-table
:foreground nil t)))
(defun org-modern--update-label-face ()
"Update border of the `org-modern-label' face."
