From 679c30a20b5fd8646c0f67e2e03baf641ec78a9d Mon Sep 17 00:00:00 2001
From: Lars Vierbergen <vierbergenlars@gmail.com>
Date: Thu, 29 Sep 2016 20:49:45 +0200
Subject: [PATCH] Add redshift toggle keybinding

---
 .xmobarrc          | 3 ++-
 toggle-redshift.sh | 7 +++++++
 xmonad.hs          | 1 +
 3 files changed, 10 insertions(+), 1 deletion(-)
 create mode 100755 toggle-redshift.sh

diff --git a/.xmobarrc b/.xmobarrc
index 4d30f7e..c07d885 100644
--- a/.xmobarrc
+++ b/.xmobarrc
@@ -9,9 +9,10 @@ Config { font = "-*-Fixed-Bold-R-Normal-*-13-*-*-*-*-*-*-*"
                     , Run Battery ["-t", "<acstatus>", "-L", "10", "-H", "80", "-l", "red", "-h", "green", "--", "-O", "<fc=blue><left>%</fc>", "-i", "<fc=blue><left>%</fc>",  "-o", "Bat: <left>% / <timeleft>"] 10
                     , Run Locks
                     , Run Com "python" ["/home/lars/.xmonad/xmonad-pulsevolume/show-volume.py"] "vol" 1
+                    , Run Com "bash" ["-c", "if pidof redshift > /dev/null; then echo R; else echo r; fi"] "redshift" 1
                     , Run StdinReader
                     ]
        , sepChar = "%"
        , alignSep = "}{"
-       , template = "%StdinReader% }{ <action=`pavucontrol`>%vol%</action> | %locks% | <action=`gnome-power-statistics`>%battery%</action> | <action=`gnome-system-monitor`>%cpu% | %memory% * %swap%</action> | <fc=#ee9a00>%date%</fc>"
+       , template = "%StdinReader% }{ <action=`~/.xmonad/toggle-redshift.sh`>%redshift%</action> | <action=`pavucontrol`>%vol%</action> | %locks% | <action=`gnome-power-statistics`>%battery%</action> | <action=`gnome-system-monitor`>%cpu% | %memory% * %swap%</action> | <fc=#ee9a00>%date%</fc>"
        }
diff --git a/toggle-redshift.sh b/toggle-redshift.sh
new file mode 100755
index 0000000..408a3e7
--- /dev/null
+++ b/toggle-redshift.sh
@@ -0,0 +1,7 @@
+#!/bin/bash
+if pidof redshift; then
+    killall redshift
+else
+    redshift -l 51:5 -t 6500:3000&
+    disown
+fi
diff --git a/xmonad.hs b/xmonad.hs
index 7e9f8df..3dd203a 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -67,6 +67,7 @@ main = do
         `additionalKeys`
         [ ((modMask baseConfig .|. controlMask, xK_l), spawn "xscreensaver-command -lock")
         , ((modMask baseConfig .|. controlMask, xK_s), spawn "systemctl hibernate")
+        , ((modMask baseConfig, xK_r), spawn "~/.xmonad/toggle-redshift.sh")
         , ((modMask baseConfig, xK_e), spawn "caja")
         , ((0, xK_Print), spawn "scrot")
         -- Normal Alt-Tab behavior