[elpa] externals/org-modern 1074133d9d 1/2: Fix org-modern divider line scaling (Fix #99 and #155)

[ELPA Syncer]

branch: externals/org-modern
commit 1074133d9dd1ce4eb6c9ab1d1dbc7b78b3d8733b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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."