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 -- base
import Control.Monad import Control.Monad
( void ) ( void, when )
import Data.Maybe
( isNothing )
import System.Environment
( lookupEnv, setEnv )
import System.Exit import System.Exit
( ExitCode(..), exitSuccess, exitWith ) ( ExitCode(..), exitSuccess, exitWith )
import GHC.Conc import GHC.Conc
@ -46,6 +50,12 @@ main = withCP65001 do
= procs = procs
setNumCapabilities caps 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 -- Run GTK application