From 04a7755cb987cf8d2a122e2d4c32cccaa9a39b5c Mon Sep 17 00:00:00 2001
From: Flinner Yuu <flinner@nand.sh>
Date: Sun, 17 Apr 2022 07:04:20 +0300
Subject: [PATCH] feat(emacs+polybar): add org clock :D

---
 emacs.mine/.config/emacs.mine/emacs.org       | 19 ++++++++++++
 polybar/.config/polybar/forest/config.ini     |  2 +-
 .../.config/polybar/forest/user_modules.ini   | 29 +++++++++++++++++++
 3 files changed, 49 insertions(+), 1 deletion(-)

diff --git a/emacs.mine/.config/emacs.mine/emacs.org b/emacs.mine/.config/emacs.mine/emacs.org
index 2bedf44..7d45ab6 100644
--- a/emacs.mine/.config/emacs.mine/emacs.org
+++ b/emacs.mine/.config/emacs.mine/emacs.org
@@ -2159,6 +2159,25 @@ ivy bibtex
       (keyfreq-autosave-mode 1))
 #+end_src
 
+** Polybar
+*** org clock
+#+begin_src emacs-lisp
+  (defun my/polybar/org-clock ()
+    "Gets polybar formatted message"
+    (let ((message nil)
+            (icon nil)
+            (icon-color nil))
+        (if (org-clock-is-active)
+            (setq message (substring-no-properties (org-clock-get-clock-string))
+                    icon ""
+                    icon-color "#BA68C8")
+            (setq message ""
+                    icon ""
+                    icon-color "#FDD835"))
+        (concat "%{F" icon-color "}" icon  "%{F-}" message)))
+
+#+end_src
+
 * Elfeed org
  =;; (setq rmh-elfeed-org-files (list "~/Documents/private.el/elfeed.org"))=
 ** Elfeed-org
diff --git a/polybar/.config/polybar/forest/config.ini b/polybar/.config/polybar/forest/config.ini
index cfaa310..e693758 100644
--- a/polybar/.config/polybar/forest/config.ini
+++ b/polybar/.config/polybar/forest/config.ini
@@ -144,7 +144,7 @@ font-1 = "waffle:size=10;3"
 ;modules-right = color-switch sep mail sep network sep keyboard battery volume backlight sep sysmenu try
 #modules-right = color-switch sep network sep keyboard battery volume backlight sep sysmenu try
 
-modules-left = launcher sep workspaces sep memory_bar cpu_bar sep  temperature sep title
+modules-left = launcher sep workspaces sep memory_bar cpu_bar sep  temperature sep org-clock
 modules-center = date sep mu4e_edu mu4e ssh keepassxc
 modules-right = color-switch sep network sep keyboard sep volume brightness sep filesystem_bar sep battery sep sysmenu tray
 ;; _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
diff --git a/polybar/.config/polybar/forest/user_modules.ini b/polybar/.config/polybar/forest/user_modules.ini
index 4b57c98..3861e4b 100644
--- a/polybar/.config/polybar/forest/user_modules.ini
+++ b/polybar/.config/polybar/forest/user_modules.ini
@@ -72,6 +72,35 @@ label-padding = 1
 format-prefix = ""
 format-prefix-foreground = ${color.green}
 
+[module/org-clock]
+type = custom/script
+
+## At time of writing:
+#  (defun my/polybar/org-clock ()
+#    "Gets polybar formatted message"
+#    (let ((message nil)
+#            (icon nil)
+#            (icon-color nil))
+#        (if (org-clock-is-active)
+#            (setq message (substring-no-properties (org-clock-get-clock-string))
+#                    icon ""
+#                    icon-color "#BA68C8")
+#            (setq message ""
+#                    icon ""
+#                    icon-color "#FDD835"))
+#        (concat "%{F" icon-color "}" icon  "%{F-}" message)))
+
+
+exec = emacsclient --eval '(my/polybar/org-clock)' | sed 's/"//g'
+
+
+interval = 5
+
+format =  <label>
+label-padding = 1
+format-prefix = ""
+format-prefix-foreground = ${color.purple}
+
 ;; _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
 
 [module/updates]