xgamma

---

画面が明る過ぎるとき、いちいちモニターを調節するのは面倒。

そんなときはガンマ調整で済まします。
ディストリビューションによっては
xbrightness-gamma
というプログラムが用意されています。

またxgamma コマンドでも可能。

% xgamma -gamma 0.3

などとします。

Haskellでフロントエンドを作っておきます。

---

	import Graphics.UI.Gtk
	import MySpinBox
	import System.Process
	main = do
	initGUI
	window <- windowNew
	hbox <- hBoxNew False 0
	vbox <- vBoxNew False 0
	boxPackStart vbox hbox PackNatural 0
	spmod <- mkAdjustment (0.5, 0.1, 1.0, 0.1, 0.1)
	[sps] <- myAddSpinButtons hbox ["gamma"] [spmod]
	update spmod
	onValueChanged spmod $ update spmod
	containerAdd window vbox
	widgetShowAll window
	window `on` unrealize $ mainQuit
	mainGUI
	update spmod = do
	r <- spmod `get` adjustmentValue
	rawSystem "xgamma" ["-gamma", show r] >>= print

view raw gamma.hs hosted with ❤ by GitHub

	module MySpinBox where
	import Graphics.UI.Gtk
	import Control.Monad
	mkAdjustment :: (Double, Double, Double, Double, Double) -> IO Adjustment
	mkAdjustment (v,l,u,s,p) = adjustmentNew v l u s p 0
	{-
	:: Double value - the initial value.
	-> Double lower - the minimum value.
	-> Double upper - the maximum value.
	-> Double stepIncrement - the step increment.
	-> Double pageIncrement - the page increment.
	-> Double pageSize - the page size.
	-}
	mkAdjustments :: [(Double, Double, Double, Double, Double)] ->
	IO [Adjustment]
	mkAdjustments = mapM mkAdjustment
	myAddSpinButtons :: HBox -> [String] ->[Adjustment] -> IO [SpinButton]
	myAddSpinButtons box names adjustments = do
	zipWithM (\x y -> myAddSpinButton box x y) names adjustments
	myAddSpinButton :: HBox -> String -> Adjustment -> IO SpinButton
	myAddSpinButton box name adj = do
	vbox <- vBoxNew False 0
	boxPackStart box vbox PackRepel 0
	label <- labelNew (Just name)
	miscSetAlignment label 0.0 0.5
	boxPackStart vbox label PackNatural 0
	spinb <- spinButtonNew adj 10 1
	boxPackStart vbox spinb PackGrow 0
	return spinb

view raw MySpinBox.hs hosted with ❤ by GitHub

---