twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #869 from dcousens/patch-1

Browse Source 
X.P: Fix some typos in comments
This commit is contained in:
Tony Zorman 2024-01-24 14:40:44 +01:00 committed by GitHub
commit d54d37e344
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Prompt.hs
View File

@ -290,14 +290,14 @@ data XPPosition = Top
| Bottom | Bottom
-- | Prompt will be placed in the center horizontally and -- | Prompt will be placed in the center horizontally and
-- in the certain place of screen vertically. If it's in the upper -- in the certain place of screen vertically. If it's in the upper
-- part of the screen, completion window will be placed below(like -- part of the screen, completion window will be placed below (like
-- in 'Top') and otherwise above(like in 'Bottom') -- in 'Top') and otherwise above (like in 'Bottom')
| CenteredAt { xpCenterY :: Rational | CenteredAt { xpCenterY :: Rational
-- ^ Rational between 0 and 1, giving -- ^ Rational between 0 and 1, giving
-- y coordinate of center of the prompt relative to the screen height. -- y coordinate of center of the prompt relative to the screen height.
, xpWidth :: Rational , xpWidth :: Rational
-- ^ Rational between 0 and 1, giving -- ^ Rational between 0 and 1, giving
-- width of the prompt relatave to the screen width. -- width of the prompt relative to the screen width.
} }
deriving (Show,Read) deriving (Show,Read)
@ -445,7 +445,7 @@ setCommand xs s = s { commandHistory = (commandHistory s) { W.focus = xs }}
setInput :: String -> XP () setInput :: String -> XP ()
setInput = modify . setCommand setInput = modify . setCommand
-- | Returns the current input string. Intented for use in custom keymaps -- | Returns the current input string. Intended for use in custom keymaps
-- where 'get' or similar can't be used to retrieve it. -- where 'get' or similar can't be used to retrieve it.
getInput :: XP String getInput :: XP String
getInput = gets command getInput = gets command