From f413648183c90e454ba42aa3f1c8794f1d4fa729 Mon Sep 17 00:00:00 2001
From: Fabian Kirchner <kirchner@posteo.de>
Date: Mon, 12 Aug 2024 13:47:35 +0200
Subject: fix: fix placement of font's baseline

---
 app/Ui.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'app/Ui.hs')

diff --git a/app/Ui.hs b/app/Ui.hs
index 808c3c1..34fa101 100644
--- a/app/Ui.hs
+++ b/app/Ui.hs
@@ -97,12 +97,13 @@ layOut env@Env {..} (Ui' cs) = do
 extents :: Env -> C -> IO Rect
 extents Env {..} (C {..}) = do
   glyphInfo <- X.xftTextExtents dpy fnt string
+  ascent <- X.xftfont_ascent fnt
   pure
     ( Rect
-        { top = 0,
-          left = 0,
+        { top = X.xglyphinfo_y glyphInfo,
+          left = X.xglyphinfo_x glyphInfo,
           width = X.xglyphinfo_xOff glyphInfo,
-          height = X.xglyphinfo_height glyphInfo
+          height = ascent
         }
     )
 
-- 
cgit v1.2.3