From 8072dd4ba49996cc7de365ad931e6907c0e2b33f Mon Sep 17 00:00:00 2001
From: Jan Beinke <git@janbeinke.com>
Date: Wed, 11 Dec 2019 16:57:51 +0100
Subject: [PATCH] Fix icons being rendered as emoji instead of in text mode

---
 src/QBar/Blocks/Date.hs   | 2 +-
 src/QBar/DefaultConfig.hs | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/QBar/Blocks/Date.hs b/src/QBar/Blocks/Date.hs
index c4f9a4e..a70df4b 100644
--- a/src/QBar/Blocks/Date.hs
+++ b/src/QBar/Blocks/Date.hs
@@ -23,5 +23,5 @@ dateBlockOutput = do
   zonedTime <- getZonedTime
   let date = T.pack (formatTime defaultTimeLocale "%a %F" zonedTime)
   let time = T.pack (formatTime defaultTimeLocale "%R" zonedTime)
-  let text = normalText ("📅 " <> date <> " ") <> activeText time
+  let text = normalText ("📅\xFE0E " <> date <> " ") <> activeText time
   return $ blockName ?~ "date" $ createBlock text
diff --git a/src/QBar/DefaultConfig.hs b/src/QBar/DefaultConfig.hs
index 3f5bc78..45edcce 100644
--- a/src/QBar/DefaultConfig.hs
+++ b/src/QBar/DefaultConfig.hs
@@ -15,10 +15,10 @@ generateDefaultBarConfig = do
   systemInfoInterval <- sharedInterval 10
 
   let todo = systemInfoInterval (blockScript $ blockLocation "todo")
-  let wifi = systemInfoInterval (blockScript $ blockLocation "wifi2 wlan") >-> modify (addIcon "📡")
+  let wifi = systemInfoInterval (blockScript $ blockLocation "wifi2 wlan") >-> modify (addIcon "📡\xFE0E")
   let networkEnvironment = systemInfoInterval (blockScript $ blockLocation "network-environment")
-  let cpu = systemInfoInterval (blockScript $ blockLocation "cpu_usage") >-> modify ((blockName?~"cpu") . addIcon "💻") >-> autoPadding
-  let ram = systemInfoInterval (blockScript $ blockLocation "memory") >-> modify (addIcon "🐏") >-> autoPadding
+  let cpu = systemInfoInterval (blockScript $ blockLocation "cpu_usage") >-> modify ((blockName?~"cpu") . addIcon "💻\xFE0E") >-> autoPadding
+  let ram = systemInfoInterval (blockScript $ blockLocation "memory") >-> modify (addIcon "🐏\xFE0E") >-> autoPadding
   let temperature = systemInfoInterval (blockScript $ blockLocation "temperature") >-> autoPadding
   let volumeBlock = startPersistentBlockScript $ blockLocation "volume-pulseaudio -S -F3"
   let battery = systemInfoInterval $ batteryBlock >-> modify (blockName?~"battery")
-- 
GitLab