From 5fec0688be920bf4ee966ca7d8ff124de1ad5d10 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 7 Jan 2021 00:42:48 +0000
Subject: an X property set by emacs

---
 src/TopC.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/TopC.hs b/src/TopC.hs
index c14a965..b389b69 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -48,7 +48,7 @@ config p = (baseConfig p) {
   , commands = [ Run (topProcL p)
                , Run m
                , Run (thinkTemp p)
-               , Run (mail p)
+               , Run (NamedXPropertyLog "_EMACS_LOG" "elog")
                , Run (cpuBars p)
                , Run memory
                , Run (diskU p)
@@ -76,8 +76,8 @@ config p = (baseConfig p) {
              ++  ma
              ++ " |EGPH| "
              ++ " {} "
+             ++ fc (pHigh p) "|elog|"
              ++ "|kbd| "
-             ++ "|mail| "
              ++ "|multicpu| "
              ++ "|multicoretemp| "
              ++ " |top| "
-- 
cgit v1.2.3