From 3d6e7a573b858a37be967d6402635b0b9decd390 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 20 May 2021 00:13:15 +0100
Subject: nits

---
 init.org | 74 +++++++++++++++++++++++++++++++++++-----------------------------
 1 file changed, 40 insertions(+), 34 deletions(-)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 0142852..2da63bc 100644
--- a/init.org
+++ b/init.org
@@ -750,8 +750,9 @@
         (defun jao-shorten-modes (&rest modes)
           (dolist (m modes) (add-to-list 'tracking-shorten-modes m)))
 
-        (defun jao-tracking-face (face)
-          (add-to-list 'tracking-faces-priorities face))
+        (defun jao-tracking-faces (&rest faces)
+          (dolist (face faces)
+            (add-to-list 'tracking-faces-priorities face)))
         #+end_src
 ***** Shorten
       #+begin_src emacs-lisp
@@ -835,7 +836,7 @@
               (funcall old-func buffer faces)))
 
         (advice-add #'tracking-add-buffer :around #'jao-tracking-add-buffer)
-        (jao-tracking-face 'lui-highlight-face)
+        (jao-tracking-faces 'lui-highlight-face)
       #+end_src
 *** notification server
     #+begin_src emacs-lisp
@@ -981,9 +982,7 @@
 *** eldoc
     #+begin_src emacs-lisp
       (use-package eldoc
-        :init (setq eldoc-mode-line-string nil
-                    global-eldoc-mode nil)
-        :config (global-eldoc-mode -1)
+        :init (setq eldoc-mode-line-string nil)
         :hook ((prog-mode . eldoc-mode))
         :diminish ((eldoc-mode . "")))
    #+end_src
@@ -2689,10 +2688,10 @@
     #+end_src
 * Chats
 *** rcirc
-    #+begin_src emacs-lisp
+    #+begin_src emacs-lisp :load no
       (use-package rcirc
         :init
-        (setq rcirc-server-alist `(("irc.freenode.net"
+        (setq rcirc-server-alist `(("irc.libera.chat"
                                   :encryption tls
                                   :port 6697
                                   :channels ,jao-irc-channels))
@@ -2748,9 +2747,9 @@
     slack-counts update, and it might be needed to replace
     ~slack-conversations-view~ by ~slack-conversations-history~
 
-    #+BEGIN_SRC emacs-lisp
+    #+begin_src emacs-lisp
+      (jao-load-path "emacs-slack")
       (use-package slack
-        :ensure t
         :commands (slack-start)
         :init
         (setq slack-alert-icon (jao-data-file "slack.svg")
@@ -2774,9 +2773,9 @@
 
         (jao-shorten-modes 'slack-message-buffer-mode
                            'slack-thread-message-buffer-mode)
-        (jao-tracking-face 'warning))
-    #+END_SRC
-*** Telegram
+        (jao-tracking-faces 'warning))
+    #+end_src
+*** telegram
     #+begin_src emacs-lisp
       (use-package telega
         :ensure t
@@ -2799,18 +2798,18 @@
               '(:eval (telega-mode-line-unread-unmuted)))
         (with-eval-after-load "tracking"
           (jao-shorten-modes 'telega-chat-mode)
-          (jao-tracking-face 'telega-tracking))
+          (jao-tracking-faces 'telega-tracking))
         (telega-mode-line-mode 1))
     #+end_src
-*** Signel
+*** signel
     #+begin_src emacs-lisp
       (jao-load-org "lib/net/signel.org")
       (with-eval-after-load "tracking"
-        (jao-tracking-face 'signel-notification)
+        (jao-tracking-faces 'signel-notification)
         (jao-shorten-modes 'signel-chat-mode))
       (setq signel-report-deliveries t)
     #+end_src
-*** Startup
+*** startup
     #+begin_src emacs-lisp
      (defun jao-circe (&optional p)
        (interactive "P")
@@ -3212,35 +3211,42 @@
     (global-set-key "\C-c\C-z" #'comment-or-uncomment-region)
     (global-set-key "\C-z" #'comment-or-uncomment-region)
 
-    (pretty-hydra-define jao-hydra-emacs-utils (:color blue :quit-key "q")
+    (pretty-hydra-define jao-hydra-emacs-utils
+      (global-map "s-w" :color blue :quit-key "q")
       ("Notes"
        (("n" jao-org-notes-open-or-create "capture note")
         ("N" jao-org-notes-open "go to note"))
+       "Docs"
+       (("d" (jao-buffer-same-mode 'docview-mode #'jao-afio--goto-docs)
+         "go to doc")
+        ("D" jao-open-doc "open to doc"))
        "Packages"
        (("a" jao-vterm-aptitude "aptitude")
-        ("l" (progn (jao-afio--goto-scratch) (list-packages)) "package list")
-        )
+        ("l" list-packages "packages")
+        ("s-w" jao-hydra-emacs-utils/body nil))
        "Network"
-       (("s" jao-ssh "ssh")
-        ("v" proton-vpn "proton vpn")
-        ("m" run-proton-bridge "proton bridge"))
-       ""
-       (("b" bluetooth-list-devices "bluetooth")
-        ("f" (jao-sway-run-or-focus "firefox") "switch to firefox"))
+       (("S" jao-ssh "ssh")
+        ("T" telega "telegram rooster")
+        ;; ("b" jao-exwm-bluetooth "bluetooth")
+        ;; ("m" run-proton-bridge "proton bridge")
+        ;; ("v" jao-exwm-proton-vpn "proton vpn")
+        ("c" (jao-chats t) "connect chats"))
        "Monitors"
        (("p" jao-vterm-htop "htop")
-        ("t" jao-time-echo-times "current time")
+        ;; ("P" jao-exwm-proced "proced")
+        ;; ("x" jao-exwm-xmobar "restart xmobar")
+        ;; ("X" jao-exwm-kill-xmobar "kill xmobar")
+        ;; ("t" jao-time-echo-times "current time")
         )
+       "Chats"
+       (("t" (jao-buffer-same-mode 'telega-chat-mode) "telgram buffers")
+        ("s" (jao-buffer-same-mode 'slack-message-buffer-mode) "slack buffers")
+        ("i" (jao-buffer-same-mode 'erc-mode) "irc channels"))
        "Looks"
-       (("T" jao-toggle-transparency "toggle transparency"
-         :toggle (jao-transparent-p) :color red)
+       (;; ("T" jao-toggle-transparency "toggle transparency"
+        ;;  :toggle (jao-transparent-p) :color red)
         ("w" jao-set-wallpaper "set wallpaper")
         ("W" jao-set-random-wallpaper "set radom wallpaper"))
-       "Sleep"
-       (("L" jao-lock-screen "lock screen")
-        ("z" jao-suspend "sleep")
-        ("u" jao-screensaver-toggle "toggle screensaver"
-         :toggle (jao-screensaver-enabled)))
        "Helpers"
        (("r" org-reveal "org reveal")
         ("k" jao-kb-toggle "toggle keyboard"
-- 
cgit v1.2.3