From 42f182d1e0e94f9367f1ca9720efb45bd72ac4ce Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 13 Mar 2021 06:48:12 +0000
Subject: monitoring utilities

---
 exwm.org |  6 +++++-
 init.org | 55 ++++++++++++++++++++++++++++++++++++++++++-------------
 2 files changed, 47 insertions(+), 14 deletions(-)

diff --git a/exwm.org b/exwm.org
index 0ffe0cb..c964b11 100644
--- a/exwm.org
+++ b/exwm.org
@@ -491,7 +491,11 @@
        ([XF86MonBrightnessDown] . jao-bright-down)
        ([?\s-\`] . jao-exwm-switch-to-next-x)
        ([s-tab] . jao-exwm-switch-to-next-class)
-       ([print] . jao-exwm-import-screen)))
+       ([print] . jao-exwm-import-screen)
+       ([f4] . jao-toggle-audio-applet)
+       ([f5] . jao-weather)
+       ([f6] . jao-bright-show)
+       ([f7] . battery)))
 
     (when (eq 'counsel jao-completion-engine)
       (add-to-list 'exwm-input-global-keys '([?\s-r] . counsel-linux-app)))
diff --git a/init.org b/init.org
index 721053b..a585775 100644
--- a/init.org
+++ b/init.org
@@ -216,9 +216,17 @@
     #+end_src
 *** Brightness control
     #+begin_src emacs-lisp
-      (jao-def-exec jao-bright-up "brightnessctl" "-q" "s" "5%+")
-      (jao-def-exec jao-bright-down "brightnessctl" "-q" "s" "5%-")
-    #+end_src
+      (jao-def-exec jao-bright-set-up "brightnessctl" "-q" "s" "5%+")
+      (jao-def-exec jao-bright-set-down "brightnessctl" "-q" "s" "5%-")
+
+      (defun jao-bright-show ()
+        (interactive)
+        (message "%s" (thread-first (jao-exec-string "brightnessctl")
+                        (split-string "\n")
+                        (cadr)
+                        (string-trim))))
+
+     #+end_src
 *** Memory usage
     #+begin_src emacs-lisp
       (use-package memory-usage :ensure t)
@@ -471,13 +479,14 @@
       (defun jao-exwm-enable ()
         (jao-load-org "exwm.org")
         (setq jao-exwm-enabled-p t)
-        ;; (jao-ednc-setup 90)
+        (display-battery-mode -1)
+        (display-time-mode -1)
+        (jao-ednc-setup 90)
         (exwm-enable)
-        (setq switch-window-input-style 'minibuffer
-              switch-window-minibuffer-shortcut nil)
         (jao-toggle-inactive-mode-line t)
         (jao-trisect t)
         (jao-exwm-xmobar)
+        (jao-nm-applet)
         (message "Welcome to exwm"))
     #+end_src
 *** sway
@@ -808,7 +817,7 @@
         (jao-tracking-face 'lui-highlight-face)
       #+end_src
 *** notification server
-    #+begin_src emacs-lisp :load no
+    #+begin_src emacs-lisp
       (use-package ednc
         :ensure t
         :diminish)
@@ -991,10 +1000,12 @@
       #+END_SRC
 ***** winttr
       #+begin_src emacs-lisp
-        (defun jao-weather (&optional winttr)
+        (defun jao-weather (&optional wide)
           (interactive "P")
-          (if (not winttr)
-              (jao-metar)
+          (if (not wide)
+              (message "%s"
+                       (jao-exec-string "curl -s 'https://wttr.in/?format=%s'"
+                                        "%l++%m++%C+%c+%t+%w++%p"))
             (jao-afio--goto-scratch)
             (if-let ((b (get-buffer "*wttr*")))
                 (progn (pop-to-buffer b)
@@ -3623,6 +3634,16 @@
         :init (add-to-list 'auto-mode-alist '("\\.gp$" . gnuplot-mode)))
     #+END_SRC
 * Network
+*** network monitor
+    #+begin_src emacs-lisp
+      (jao-def-exec jao-nm-applet "nm-applet")
+
+      (defun jao-toggle-nm-applet ()
+        (interactive)
+        (if (string-empty-p (jao-exec-string "pidof nm-applet"))
+            (jao-nm-applet)
+          (jao-exec-string "killall nm-applet")))
+    #+end_src
 *** Bluetooth
     #+BEGIN_SRC emacs-lisp
     (use-package bluetooth :ensure t)
@@ -3878,7 +3899,7 @@
         (start-process "amixer" nil "amixer" "sset" dev v)
         (jao-mixer-get-level dev))
 
-      (defun jao-mixer-master-toogle ()
+      (defun jao-mixer-master-toggle ()
         (interactive)
         (jao-mixer-set "Master" "toggle"))
 
@@ -3898,6 +3919,14 @@
         (interactive)
         (jao-mixer-set "Capture" "10%-"))
 
+      (jao-def-exec jao-audio-applet "pasystray")
+
+      (defun jao-toggle-audio-applet ()
+        (interactive)
+        (if (string-empty-p (jao-exec-string "pidof pasystray"))
+            (jao-audio-applet)
+          (jao-exec-string "killall pasystray")))
+
     #+end_src
 *** emms
 ***** configuration
@@ -4200,7 +4229,7 @@
       (pretty-hydra-define jao-hydra-media
         (global-map "s-m" :color blue :quit-key "q")
         ("Play"
-         (("m" jao-player-toggle "toogle")
+         (("m" jao-player-toggle "toggle")
           ("n" jao-player-next "next")
           ("f" jao-player-seek-forward "seek fwd")
           ("F" jao-player-seek-backward "seek bwd")
@@ -4212,7 +4241,7 @@
           ("w" jao-player-echo "now playing (text)")
           ("s" jao-player-search "search"))
          "Master volume"
-         (("M" jao-mixer-master-toogle "master toggle")
+         (("M" jao-mixer-master-toggle "master toggle")
           ("d" jao-mixer-master-down "master down")
           ("u" jao-mixer-master-up "master up")
           ("v" (jao-mixer-get-level "Master") "show"))
-- 
cgit v1.2.3