From 1d9e75f392fb63bbd4bd3f047a5a5b1f7ea2c139 Mon Sep 17 00:00:00 2001
From: Wesley Kerfoot <wjak56@gmail.com>
Date: Tue, 29 Oct 2019 18:42:45 -0400
Subject: [PATCH] Make hw acceleration configurable, and disable it by default

---
 browser.c     | 12 +++++++++---
 schemekit.scm |  2 ++
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/browser.c b/browser.c
index ea70714..8c718cc 100644
--- a/browser.c
+++ b/browser.c
@@ -105,12 +105,18 @@ scm_ref(const char *var_name) {
 static WebKitWebView*
 make_webview() {
   WebKitSettings *settings = webkit_settings_new();
+  WebKitHardwareAccelerationPolicy hw_policy;
 
   /* Disable hardware acceleration by default */
   /* It seems to be causing issues */
-  //WebKitHardwareAccelerationPolicy hw_policy = WEBKIT_HARDWARE_ACCELERATION_POLICY_NEVER;
-  //webkit_settings_set_hardware_acceleration_policy(settings,
-                                                   //hw_policy);
+  if (conf_val("hw-acceleration")) {
+    hw_policy = WEBKIT_HARDWARE_ACCELERATION_POLICY_ALWAYS;
+  }
+  else {
+    hw_policy = WEBKIT_HARDWARE_ACCELERATION_POLICY_NEVER;
+  }
+
+  webkit_settings_set_hardware_acceleration_policy(settings, hw_policy);
 
   webkit_settings_set_enable_webgl(settings, conf_val("webgl"));
   webkit_settings_set_enable_accelerated_2d_canvas(settings, conf_val("2d-canvas"));
diff --git a/schemekit.scm b/schemekit.scm
index c9fe18e..ace4290 100644
--- a/schemekit.scm
+++ b/schemekit.scm
@@ -2,11 +2,13 @@
 (define close-event 1)
 (define empty-event 2)
 
+; Used to configure webkit at runtime
 (define config
  (alist->hash-table
   '(
     ("console-log" . 0)
     ("compositing-indicators" . 0)
+    ("hw-acceleration" . 0)
    )))
 
 (define (open-page url)