From 7ce5ab066c39c98b6f385e37c22231569564818b Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 22 Jan 2022 04:52:19 +0000
Subject: transient for X11 window managers (e.g. xmonad)

---
 init.org | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/init.org b/init.org
index 17ca5f3..3ea9614 100644
--- a/init.org
+++ b/init.org
@@ -1747,6 +1747,11 @@
         (when page (jao-doc-view-goto-page page height)))
 
       (setq jao-org-open-pdf-fun #'jao-afio-open-pdf)
+
+      (defun jao-select-pdf ()
+        (interactive)
+        (jao-buffer-same-mode '(pdf-view-mode doc-view-mode)
+                              #'jao-afio--goto-docs))
     #+end_src
 *** transient
     #+begin_src emacs-lisp
@@ -3114,6 +3119,42 @@
     (global-set-key "\C-c\C-z" #'comment-or-uncomment-region)
     (global-set-key "\C-z" #'comment-or-uncomment-region)
   #+end_src
+*** x11
+    #+begin_src emacs-lisp
+      (transient-define-prefix jao-transient-x-utils ()
+        "Global operations in X11."
+        [["Notes"
+          ("n" "capture note" jao-org-notes-open-or-create)
+          ("/" "search notes" jao-org-notes-open)
+          ("\\" "grep notes" jao-org-notes-grep)]
+         ["Documents"
+          ("d" "go to doc" jao-select-pdf)
+          ("D" "open to doc" jao-open-doc)]
+         ["Packages"
+          ("a" "aptitude" jao-term-aptitude)
+          ("l" "packages" list-packages)]
+         ["Monitors"
+          ("p" "htop" jao-term-htop)
+          ("v" "vpn status" jao-mullvad-status)
+          ("T" "telegram rooster" telega)]
+         ["Network"
+          ("S" "ssh" jao-ssh)
+          ("b" "bluetooth" bluetooth-list-devices)
+          ("c" "connect chats" jao-all-chats)]
+         ["Chats"
+          ("t" "telegram" jao-chats-telega)
+          ("s" "slack" jao-chats-slack)
+          ("i"  "irc" jao-chats-irc)]
+         ["Windows"
+          ("w" "set wallpaper" jao-set-wallpaper)
+          ("W" "set radom wallpaper" jao-set-random-wallpaper)]
+         ["Helpers"
+          ("r" "org reveal" org-reveal)
+          ("k" (lambda () (concat "keyboard" (when (jao-kb-toggled-p) "*")))
+           jao-kb-toggle)
+          ("M" (lambda () (concat "minibuffer" (when jao-minibuffer-enabled-p "*")))
+           jao-minibuffer-toggle)]])
+    #+end_src
 * Last minute (post.el)
   #+begin_src emacs-lisp
     (jao-load-site-el "post")
-- 
cgit v1.2.3