code
toggle lcd backlight linux
On 10, Mar 2016 | No Comments | In code, linux | By admin
When working on music it’s nice to toggle the lcd backlight with a key press:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE OverloadedStrings #-} | |
| module Main (main) where | |
| import Turtle hiding (x) | |
| import Prelude hiding (FilePath) | |
| import qualified Data.Text as T | |
| import qualified Data.Text.IO as TIO | |
| import Filesystem.Path.CurrentOS (encodeString) | |
| main :: IO () | |
| main = do | |
| let a = "/tmp/lcd_backlight_last_value" :: Turtle.FilePath | |
| exists <- testfile a | |
| if exists then do | |
| v <- TIO.readFile $ encodeString a | |
| proc "xbacklight" ["-set", v] empty | |
| rm a | |
| else do | |
| output a (inproc "xbacklight" ["-get"] empty) | |
| void $ proc "xbacklight" ["-set", "0"] empty |
by
Submit a Comment