mirror of
https://gitlab.com/sheaf/metabrush.git
synced 2024-11-23 15:34:06 +00:00
Set GDK_SCALE = 2 by default
This commit is contained in:
parent
e2e4ae6bfe
commit
8b3705b8d1
12
app/Main.hs
12
app/Main.hs
|
@ -6,7 +6,11 @@ module Main
|
|||
|
||||
-- base
|
||||
import Control.Monad
|
||||
( void )
|
||||
( void, when )
|
||||
import Data.Maybe
|
||||
( isNothing )
|
||||
import System.Environment
|
||||
( lookupEnv, setEnv )
|
||||
import System.Exit
|
||||
( ExitCode(..), exitSuccess, exitWith )
|
||||
import GHC.Conc
|
||||
|
@ -46,6 +50,12 @@ main = withCP65001 do
|
|||
= procs
|
||||
setNumCapabilities caps
|
||||
|
||||
-- Set GDK_SCALE = 2 by default,
|
||||
-- unless GDK_SCALE is already set.
|
||||
mbGdkScale <- lookupEnv "GDK_SCALE"
|
||||
when (isNothing mbGdkScale) $
|
||||
setEnv "GDK_SCALE" "2"
|
||||
|
||||
---------------------------------------------------------
|
||||
-- Run GTK application
|
||||
|
||||
|
|
Loading…
Reference in a new issue