easbarba · April 19, 2020 14:05 · Apr 19, 2020
diff --git a/exwm-bar b/exwm-bar
@@ -0,0 +1,67 @@
+      (defun a/_exwm-statusbar-battery ()
+        "Get laptop battery current capacity."
+        (let ((bat
+               (concat
+                (string-trim
+                 (shell-command-to-string
+                  "cat /sys/class/power_supply/BAT0/capacity"))
+                "%")))
+          bat))
+
+      (defun a/_exwm-statusbar-cpu-temperature ()
+        "Get CPU current temperature."
+        (let ((cpu-temp
+               (concat (substring
+                        (string-trim
+                         (shell-command-to-string
+                          "cat /sys/class/thermal/thermal_zone1/temp"))
+                        0 -3)
+                       "°C")))
+          cpu-temp))
+
+
+      (defun a/_exwm-statusbar-cpu-frequency ()
+        "Get CPU current frequency."
+        (let ((cpu-freq
+               (concat (number-to-string
+                        (let ((a (split-string (shell-command-to-string
+                                                "grep 'cpu ' /proc/stat"))))
+                          (/ (* (+ (string-to-number (nth 1 a))
+                                   (string-to-number (nth 3 a)))
+                                100)
+                             (+ (string-to-number (nth 1 a))
+                                (string-to-number (nth 3 a))
+                                (string-to-number (nth 4 a))))))
+                       "%")))
+          cpu-freq))
+
+      (defun a/_exwm-statusbar-date-time ()
+        "Get System current time and date."
+        (let ((time
+               (format-time-string "%A %D - %l:%M %p" (current-time))))
+          time))
+
+      (defun a/_exwm-statusbar-volume ()
+        "Get System current audio volume.
+        Supports Pulseaudio."
+        (let ((volume (let ((current-volume (shell-command-to-string "amixer get Master")))
+                        (string-match "\\([0-9]+%\\)" current-volume)
+                        (match-string 0 current-volume))))
+          volume))
+
+      (defun a/exwm-statusbar ()
+        "Use echo-area to display system stats"
+
+        ;; TODO: Proper all-the-icons usage
+        ;; TODO: Emacs package?
+        ;; TODO: Unix Portable
+
+        (require 'all-the-icons)
+        (require 'subr-x)
+        (message " %s /  %s /  %s  /   %s   /  %s  /  %s"
+                 (a/exwm-get-workspace-number)
+                 (a/_exwm-statusbar-battery)
+                 (a/_exwm-statusbar-cpu-frequency)
+                 (a/_exwm-statusbar-cpu-temperature)
+                 (a/_exwm-statusbar-volume)
+                 (a/_exwm-statusbar-date-time)))