xmonad-utils 0.1.2 → 0.1.3
raw patch · 3 files changed
+51/−94 lines, 3 filesdep ~basenew-uploader
Dependency ranges changed: base
Files
- src/Hhp.hs +1/−1
- src/Utils.hs +0/−51
- xmonad-utils.cabal +50/−42
src/Hhp.hs view
@@ -16,7 +16,7 @@ import Prelude hiding (catch) import Control.Concurrent-import Control.Exception+import Control.OldException import Control.Monad import Data.Bits import Graphics.X11.Xlib
− src/Utils.hs
@@ -1,51 +0,0 @@--------------------------------------------------------------------------------- |--- Module : Utils--- Copyright : (c) Andrea Rossato--- License : BSD3--- --- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>--- Stability : unstable--- Portability : unportable------ Utilities for xmonad-utils-----------------------------------------------------------------------------------module Utils where--import Control.Concurrent-import Control.Monad-import Graphics.X11.Xlib-import System.Posix.Types (Fd(..))---- creates an invisible cursor-nullCursor :: Display -> Window -> IO Cursor-nullCursor d w = do- let c = Color 0 0 0 0 0- p <- createPixmap d w 1 1 1- cursor <- createPixmapCursor d p p c c 0 0- freePixmap d p- return cursor--initColor :: Display -> String -> IO Pixel-initColor dpy color = do- let colormap = defaultColormap dpy (defaultScreen dpy)- (apros,_) <- allocNamedColor dpy colormap color- return $ color_pixel apros--waitASecond :: Int -> IO ()-waitASecond i =- threadDelay (i*1000000)---- A version of maskEvent that does not block in foreign calls.-maskEvent' :: Display -> EventMask -> XEventPtr -> IO ()-maskEvent' d m p = do- pend <- pending d- if pend /= 0- then maskEvent d m p- else do- threadWaitRead (Fd fd)- maskEvent' d m p- where- fd = connectionNumber d
xmonad-utils.cabal view
@@ -1,14 +1,14 @@-name: xmonad-utils-version: 0.1.2-license: BSD3-license-file: LICENSE-author: Andrea Rossato-maintainer: <andrea.rossato@unitn.it>+Name: xmonad-utils+Version: 0.1.3+License: BSD3+License-file: LICENSE+Author: Andrea Rossato+Maintainer: <abimelech@gmail.com> -stability: experimental-category: System-synopsis: A small collection of X utilities-description: A small collection of X utilities useful when+Stability: experimental+Category: System+Synopsis: A small collection of X utilities+Description: A small collection of X utilities useful when running XMonad. It includes: . * hxsel, which returns the text currently in the X selection;@@ -20,41 +20,49 @@ . * and hhp, a simple utility to hide the pointer, similar to unclutter.-homepage: http://www.haskell.org/haskellwiki/Xmonad-utils+Homepage: http://www.haskell.org/haskellwiki/Xmonad-utils -build-depends: base<4, X11>=1.3, ghc>=6.8, unix, random>=1.0-build-type: Simple-cabal-version: >=1.4-tested-with: GHC==6.8.2+Build-type: Simple+Cabal-version: >=1.6+tested-with: GHC==7.4.2 -executable: hxsel-main-is: Hxsel.hs-hs-source-dirs: src-ghc-options: -funbox-strict-fields -Wall-ghc-prof-options: -prof -auto-all+Executable hxsel+ Build-depends: base<5, X11>=1.3, ghc>=6.8, unix, random>=1.0+ Main-is: Hxsel.hs+ hs-source-dirs: src+ ghc-options: -funbox-strict-fields -Wall+ ghc-prof-options: -prof -auto-all -executable: hxput-main-is: Hxput.hs-hs-source-dirs: src-ghc-options: -funbox-strict-fields -Wall-ghc-prof-options: -prof -auto-all+Executable hxput+ Build-depends: base<5, X11>=1.3, ghc>=6.8, unix, random>=1.0+ Main-is: Hxput.hs+ hs-source-dirs: src+ ghc-options: -funbox-strict-fields -Wall+ ghc-prof-options: -prof -auto-all -executable: hslock-main-is: Hslock.hs-extensions: ForeignFunctionInterface-hs-source-dirs: src-extra-libraries: crypt-ghc-options: -funbox-strict-fields -Wall-ghc-prof-options: -prof -auto-all+Executable hslock+ Build-depends: base<5, X11>=1.3, ghc>=6.8, unix, random>=1.0+ Main-is: Hslock.hs+ extensions: ForeignFunctionInterface+ hs-source-dirs: src+ extra-libraries: crypt+ ghc-options: -funbox-strict-fields -Wall+ ghc-prof-options: -prof -auto-all -executable: hmanage-main-is: Hmanage.hs-hs-source-dirs: src-ghc-options: -funbox-strict-fields -Wall-ghc-prof-options: -prof -auto-all+Executable hmanage+ Build-depends: base<5, X11>=1.3, ghc>=6.8, unix, random>=1.0+ Main-is: Hmanage.hs+ hs-source-dirs: src+ ghc-options: -funbox-strict-fields -Wall+ ghc-prof-options: -prof -auto-all -executable: hhp-main-is: Hhp.hs-hs-source-dirs: src-ghc-options: -funbox-strict-fields -Wall-ghc-prof-options: -prof -auto-all+Executable hhp+ Build-depends: base<5, X11>=1.3, ghc>=6.8, unix, random>=1.0+ Main-is: Hhp.hs+ hs-source-dirs: src+ ghc-options: -funbox-strict-fields -Wall+ ghc-prof-options: -prof -auto-all++source-repository head+ type: git+ location: https://github.com/LeifW/xmonad-utils.git