twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 06:31:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

XSelection.hs: documentation format changes.

Browse Source
This commit is contained in:
gwern0
2007-10-19 01:00:57 +00:00
parent 984f9092c1
commit 890f586bb7
1 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
XSelection.hs
View File

@@ -58,8 +58,8 @@ import Foreign (Word8(), (.&.), shiftL, (.|.))
* Possibly add some more elaborate functionality: Emacs' registers are nice. * Possibly add some more elaborate functionality: Emacs' registers are nice.
-} -}
-- | Returns a String corresponding to the current mouse selection in X; if there is none, an empty string is returned.. Note that this is -- | Returns a String corresponding to the current mouse selection in X; if there is none, an empty string is returned. Note that this is
-- only reliable for ASCII text and currently mangles\/escapes more complex UTF-8 characters. -- really only reliable for ASCII text and currently escapes or otherwise mangles more complex UTF-8 characters.
getSelection :: IO String getSelection :: IO String
getSelection = do getSelection = do
dpy <- openDisplay "" dpy <- openDisplay ""
@@ -121,9 +121,10 @@ putSelection text = do
print ev print ev
processEvent dpy ty text e processEvent dpy ty text e
-- | A wrapper around getSelection. Makes it convenient to run a program with the current selection as an argument. This is convenient {- | A wrapper around getSelection. Makes it convenient to run a program with the current selection as an argument.
-- for handling URLs, in particular. For example, in your Config.hs you could bind a key to @promptSelection \"firefox\"@; this would allow you to This is convenient for handling URLs, in particular. For example, in your Config.hs you could bind a key to
-- highlight a URL string and then immediately open it up in Firefox. @promptSelection \"firefox\"@;
this would allow you to highlight a URL string and then immediately open it up in Firefox. -}
promptSelection :: String -> X () promptSelection :: String -> X ()
promptSelection app = spawn . ((app ++ " ") ++) =<< io getSelection promptSelection app = spawn . ((app ++ " ") ++) =<< io getSelection
@@ -155,9 +156,7 @@ decode (c:cs)
(acc < 0xd800 || 0xdfff < acc) && (acc < 0xd800 || 0xdfff < acc) &&
(acc < 0xfffe || 0xffff < acc) = chr acc : decode rs (acc < 0xfffe || 0xffff < acc) = chr acc : decode rs
| otherwise = replacement_character : decode rs | otherwise = replacement_character : decode rs
aux n (r:rs) acc aux n (r:rs) acc
| r .&. 0xc0 == 0x80 = aux (n-1) rs | r .&. 0xc0 == 0x80 = aux (n-1) rs
$ shiftL acc 6 .|. fromEnum (r .&. 0x3f) $ shiftL acc 6 .|. fromEnum (r .&. 0x3f)
aux _ rs _ = replacement_character : decode rs aux _ rs _ = replacement_character : decode rs