From 3b8e0baa0f570485eda2b150ff0bb2f2c1a9ade2 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 28 Jan 2022 14:43:25 -0800
Subject: [PATCH] images.http: set retina on the mac

---
 extra/images/http/http.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/extra/images/http/http.factor b/extra/images/http/http.factor
index e3d8ea3861..6ab0bc6571 100644
--- a/extra/images/http/http.factor
+++ b/extra/images/http/http.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors combinators.short-circuit http.client
 images.loader images.loader.private images.viewer io.pathnames
-kernel present sequences strings urls ;
+kernel namespaces opengl present sequences strings urls ;
 IN: images.http
 
 <PRIVATE
@@ -16,7 +16,8 @@ PRIVATE>
 : load-http-image ( path -- image )
     [ http-get swap content-type ]
     [ present file-extension ] bi or
-    (image-class) load-image* ;
+    (image-class) load-image*
+    gl-scale-factor get-global [ 2.0 = >>2x? ] when* ;
 
 M: string set-image
     dup { [ "http://" head? ] [ "https://" head? ] } 1||
-- 
2.34.1