twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 00:20:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

A few tweaks to --verbose-version

Browse Source
This commit is contained in:
Spencer Janssen 2009-12-08 04:07:29 +00:00
parent d5aadf2538
commit eddb445307
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Main.hs
View File

@ -26,6 +26,8 @@ import System.Exit (exitFailure)
import Paths_xmonad (version)
import Data.Version (showVersion)
import Graphics.X11.Xinerama (compiledWithXinerama)
#ifdef TESTING
import qualified Properties
#endif
@ -43,13 +45,17 @@ main = do
["--help"] -> usage
["--recompile"] -> recompile True >>= flip unless exitFailure
["--restart"] -> sendRestart >> return ()
["--version"] -> putStrLn ("xmonad " ++ showVersion version)
["--verbose-version"] -> putStrLn ("xmonad " ++ showVersion version ++ " compiled by " ++ compilerName
++ " " ++ showVersion compilerVersion ++ " for " ++ os ++ "/" ++ arch)
["--version"] -> putStrLn $ unwords shortVersion
["--verbose-version"] -> putStrLn . unwords $ shortVersion ++ longVersion
#ifdef TESTING
("--run-tests":_) -> Properties.main
#endif
_ -> fail "unrecognized flags"
where
shortVersion = ["xmonad", showVersion version]
longVersion = [ "compiled by", compilerName, showVersion compilerVersion
, "for", arch ++ "-" ++ os
, "\nXinerama:", show compiledWithXinerama ]
usage :: IO ()
usage = do

3
man/xmonad.1.markdown
View File

@ -60,6 +60,9 @@ These flags are:
--version
: Display version of _xmonad_
--verbose-version
: Display detailed version of _xmonad_
##Default keyboard bindings
___KEYBINDINGS___