From b195e2b2f766e7e2a663be5b3caf4b5d7f04d43f Mon Sep 17 00:00:00 2001
From: Andy Stewart <lazycat.manatee@gmail.com>
Date: Thu, 27 Feb 2020 00:40:17 +0800
Subject: [PATCH] Fix #60 make EAF support HiDPI

---
 eaf.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/eaf.el b/eaf.el
index cccea38..223c0b8 100644
--- a/eaf.el
+++ b/eaf.el
@@ -76,9 +76,18 @@
 (require 'subr-x)
 (require 'map)
 (require 'bookmark)
+(require 'seq)
 
 ;;; Code:
 
+
+;; Remove the relevant environment variables from the process-environment to disable QT scaling,
+;; let EAF qt program follow the system scale.
+(setq process-environment (seq-filter
+ (lambda(var)
+   (and (not (string-match-p "QT_SCALE_FACTOR" var))
+        (not (string-match-p "QT_SCREEN_SCALE_FACTOR" var)))) process-environment))
+
 (defgroup eaf nil
   "Emacs Application Framework."
   :group 'applications)