From f00b4361f492839452e4669196c775ed7730dde1 Mon Sep 17 00:00:00 2001
From: Dmitry Kurochkin <dmitry.kurochkin@gmail.com>
Date: Tue, 23 Oct 2007 20:31:29 +0200
Subject: XPrompt.hs: fix vertical alignment of completions.

darcs-hash:20071023183129-903e8-c13f17ed19adaf76c52dfbf3c416f76b78f1cb0c.gz
---
 XPrompt.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XPrompt.hs')

diff --git a/XPrompt.hs b/XPrompt.hs
index 99ee2cd..85e673d 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -486,7 +486,7 @@ getComplWinDim compl = do
                 Bottom -> (0, (0 + rem_height - actual_height))
 
   let (_,asc,desc,_) = textExtents fs $ head compl
-      yp = fi $ (ht + fi (asc + desc)) `div` 2
+      yp = fi $ (ht + fi (asc - desc)) `div` 2
       xp = (asc + desc) `div` 2
       yy = map fi . take (fi actual_rows) $ [yp,(yp + ht)..]
       xx = take (fi columns) [xp,(xp + max_compl_len)..]
-- 
cgit v1.2.3