yeganesh (empty) → 1.1

raw patch · 4 files changed

+119/−0 lines, 4 filesdep +basedep +containersdep +directorysetup-changed

Dependencies added: base, containers, directory, filepath, process, strict

Files

• LICENSE +25/−0
• Setup.lhs +4/−0
• yeganesh.cabal +24/−0
• yeganesh.hs +66/−0

@@ -0,0 +1,25 @@+Copyright (c) 2008, Daniel Wagner+All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted, provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright notice,+      this list of conditions, and the following disclaimer.+    * Redistributions in binary form must reproduce the above copyright notice,+      this list of conditions, and the following disclaimer in the documentation+      and/or other materials provided with the distribution.+    * The names of the contributors may not be used to endorse or promote+      products derived from this software without specific prior written+      permission.++This software is provided by the copyright holders and contributors as is, and+any express or implied warranties, including, but not limited to, the implied+warranties of merchantability and fitness for a particular purpose are+disclaimed. In no event shall the copyright owner or contributors be liable for+any direct, indirect, incidental, special, exemplary, or consequential damages+(including, but not limited to procurement of substitute goods or services,+loss of use, loss of data, loss of profits, or business interruption) however+caused and on any theory of liability, whether in contract, strict liability,+or tort (including negligence or otherwise) arising in any way out of the use+of this software, even if advised of the possibility of such damage.

@@ -0,0 +1,4 @@+#!/usr/bin/env runhaskell++> import Distribution.Simple+> main = defaultMain

@@ -0,0 +1,24 @@+name:               yeganesh+version:            1.1+cabal-version:      >=1.2+build-type:         Simple+license:            BSD3+license-file:       LICENSE+author:             Daniel Wagner+maintainer:         daniel@wagner-home.com+homepage:           http://www.dmwit.com/yeganesh+synopsis:           small dmenu wrapper+description:        I get so annoyed when I go to use dmenu, and the three+                    programs I use every day aren't at the beginning of the+                    list.  Let's make it so, and automatically!+category:           Text++Executable yeganesh+    main-is:        yeganesh.hs+    build-depends:  base >= 3.0,+                    containers >= 0.1,+                    directory >= 1.0,+                    filepath >= 1.1,+                    process >= 1.0,+                    strict >= 0.3+    ghc-options:    -Wall

@@ -0,0 +1,66 @@+-- boilerplate {{{+module Main where++import Control.Arrow ((&&&))+import Control.Monad (liftM)+import Data.Char (toLower)+import Data.List (sortBy)+import Data.Map (Map, insertWith, fromList, toList, union)+import Data.Ord (comparing)+import System.Directory (createDirectoryIfMissing)+import System.Environment (getEnv)+import System.FilePath ((</>))+import System.IO (hClose, hGetContents, hPutStr, hPutStrLn, stderr, stdout)+import System.Process (runInteractiveProcess, waitForProcess)+import qualified System.IO.Strict as Strict (getContents, readFile)+-- }}}+-- filesystem stuff {{{+type Commands = Map String Double++fileName :: IO FilePath+fileName = do+    home <- flip liftM (getEnv "HOME") (</> ".yeganesh")+    createDirectoryIfMissing True home+    return (home </> "default")++readPossiblyNonExistent :: FilePath -> IO Commands+readPossiblyNonExistent file = fmap read $+    catch (Strict.readFile file) (const . return $ "fromList []")+-- }}}+-- pure {{{+sortOn :: Ord b => (a -> b) -> [a] -> [a]+sortOn f = map snd . sortBy (comparing fst) . map (f &&& id)++descSnd :: Num b => (String, b) -> (b, String)+descSnd = (negate . snd) &&& (map toLower . fst)++showPriority :: Commands -> String+showPriority = unlines . map fst . sortOn descSnd . toList++updatePriority :: String -> Commands -> Commands+updatePriority cmd = if null cmd then id else insertWith (+) cmd 1++parseInput :: String -> Commands+parseInput = fromList . flip zip (repeat 0) . filter (not . null) . lines+-- }}}+-- shell stuff {{{+dmenu :: Commands -> IO Commands+dmenu cmds = do+    (hIn, hOut, hErr, p) <- runInteractiveProcess "dmenu" [] Nothing Nothing+    hPutStrLn hIn (showPriority cmds)+    hClose hIn+    o <- hGetContents hOut+    e <- hGetContents hErr+    waitForProcess p+    hPutStr stdout o+    hPutStr stderr e++    return (updatePriority o cmds)+-- }}}+main :: IO ()+main = do+    file    <- fileName+    cached  <- readPossiblyNonExistent file+    new     <- fmap parseInput Strict.getContents+    updated <- dmenu (cached `union` new)+    writeFile file (show updated)