diff options
| author | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2007-10-23 20:31:29 +0200 |
|---|---|---|
| committer | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2007-10-23 20:31:29 +0200 |
| commit | f00b4361f492839452e4669196c775ed7730dde1 (patch) | |
| tree | 86030fe3c0d5674494fc753f714f96a2fedb5e0f /XPrompt.hs | |
| parent | 1f9fb4da10c5da8c4225679446a2f5b6ea368d31 (diff) | |
| download | XMonadContrib-f00b4361f492839452e4669196c775ed7730dde1.tar.gz XMonadContrib-f00b4361f492839452e4669196c775ed7730dde1.tar.xz XMonadContrib-f00b4361f492839452e4669196c775ed7730dde1.zip | |
XPrompt.hs: fix vertical alignment of completions.
darcs-hash:20071023183129-903e8-c13f17ed19adaf76c52dfbf3c416f76b78f1cb0c.gz
Diffstat (limited to 'XPrompt.hs')
| -rw-r--r-- | XPrompt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)..] |