Set GDK_SCALE = 2 by default

This commit is contained in:
sheaf 2024-09-08 17:04:41 +02:00
parent e2e4ae6bfe
commit 8b3705b8d1

View file

@ -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