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

XSelection.hs: +2 functions, safePromptSelection and unsafePromptSelection

Browse Source 
Analogous to Run.hs patch; these use safeSpawn and unsafeSpawn respectively.
This commit is contained in:
gwern0
2007-10-19 18:11:37 +00:00
parent c7e40aa771
commit 75589eaf16
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
XSelection.hs
View File

@@ -18,7 +18,10 @@
module XMonadContrib.XSelection ( module XMonadContrib.XSelection (
-- * Usage -- * Usage
-- $usage -- $usage
getSelection, promptSelection, putSelection) where getSelection,
promptSelection,
safePromptSelection,
putSelection) where
-- getSelection, putSelection's imports: -- getSelection, putSelection's imports:
import Graphics.X11.Xlib (allocaXEvent, createSimpleWindow, defaultScreen, destroyWindow, internAtom, nextEvent, openDisplay, rootWindow, selectionNotify, Display(), Atom(), XEventPtr(), selectionRequest, sendEvent, noEventMask, sync) import Graphics.X11.Xlib (allocaXEvent, createSimpleWindow, defaultScreen, destroyWindow, internAtom, nextEvent, openDisplay, rootWindow, selectionNotify, Display(), Atom(), XEventPtr(), selectionRequest, sendEvent, noEventMask, sync)
@@ -124,9 +127,15 @@ putSelection text = do
{- | A wrapper around getSelection. Makes it convenient to run a program with the current selection as an argument. {- | A wrapper around getSelection. Makes it convenient to run a program with the current selection as an argument.
This is convenient for handling URLs, in particular. For example, in your Config.hs you could bind a key to This is convenient for handling URLs, in particular. For example, in your Config.hs you could bind a key to
@promptSelection \"firefox\"@; @promptSelection \"firefox\"@;
this would allow you to highlight a URL string and then immediately open it up in Firefox. -} this would allow you to highlight a URL string and then immediately open it up in Firefox.
promptSelection :: String -> X ()
promptSelection app = spawn . ((app ++ " ") ++) =<< io getSelection promptSelection passes strings through the shell; if you do not wish your selected text to be interpreted/mangled
by the shell, use safePromptSelection which will bypass the shell using safeSpawn from Run.hs; see Run.hs for more
details on the advantages/disadvantages of this. -}
promptSelection, safePromptSelection, unsafePromptSelection :: String -> X ()
promptSelection = unsafePromptSelection
safePromptSelection app = join $ io $ liftM (safeSpawn app) (getSelection)
unsafePromptSelection app = join $ io $ liftM unsafeSpawn $ fmap (\x -> app ++ " " ++ x) getSelection
{- UTF-8 decoding for internal use in getSelection. This code is copied from Eric Mertens's utf-string library {- UTF-8 decoding for internal use in getSelection. This code is copied from Eric Mertens's utf-string library
<http://code.haskell.org/utf8-string/> (version 0.1), which is BSD-3 licensed, as is this module. <http://code.haskell.org/utf8-string/> (version 0.1), which is BSD-3 licensed, as is this module.