From 3b932a6749c8171361ba735bc52a4cf83f5a6245 Mon Sep 17 00:00:00 2001 From: gwern0 Date: Sun, 21 Sep 2008 17:49:50 +0200 Subject: Paste.hs: shorten comment lines to under 80 columns per sjanssen darcs-hash:20080921154950-f7719-d24b1961ada404e29051923c1e7cfb4837c8ab63.gz --- XMonad/Util/Paste.hs | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'XMonad/Util/Paste.hs') diff --git a/XMonad/Util/Paste.hs b/XMonad/Util/Paste.hs index 2bc4381..2e5fb49 100644 --- a/XMonad/Util/Paste.hs +++ b/XMonad/Util/Paste.hs @@ -30,8 +30,8 @@ Import this module into your xmonad.hs as usual: > import XMonad.Util.XPaste -And use the functions. They all return "X ()", and so are appropriate for use as keybindings. -Example: +And use the functions. They all return "X ()", and so are appropriate +for use as keybindings. Example: > , ((m, xK_d), pasteString "foo bar") ] @@ -39,16 +39,19 @@ Don't expect too much of the functions; they probably don't work on complex texts. -} --- | Paste the current X mouse selection. Note that this uses 'getSelection' from "XMonad.Util.XSelection" and so is heir to its flaws. +-- | Paste the current X mouse selection. Note that this uses 'getSelection' from +-- "XMonad.Util.XSelection" and so is heir to its flaws. pasteSelection :: X () pasteSelection = getSelection >>= pasteString --- | Send a string to the window with current focus. This function correctly handles capitalization. +-- | Send a string to the window with current focus. This function correctly +-- handles capitalization. pasteString :: String -> X () pasteString = mapM_ (\x -> if isUpper x then pasteChar shiftMask x else pasteChar 0 x) {- | Send a character to the current window. This is more low-level. - Remember that you must handle the case of capitalization appropriately. That is, from the window's perspective: + Remember that you must handle the case of capitalization appropriately. + That is, from the window's perspective: > pasteChar mod2Mask 'F' ~> "f" -- cgit v1.2.3