From 31c1da1f0722ab0b85d022062f8e5eb46564f920 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 3 Mar 2022 05:55:45 +0000
Subject: whitespace

---
 attic/misc.org              | 18 +++++++++++++
 gnus.org                    | 66 +++++++++++++++++++++------------------------
 init.org                    |  4 +--
 lib/media/jao-mpris.el      |  2 +-
 lib/net/jao-notmuch-gnus.el |  1 +
 5 files changed, 53 insertions(+), 38 deletions(-)

diff --git a/attic/misc.org b/attic/misc.org
index 74667ad..e2aa303 100644
--- a/attic/misc.org
+++ b/attic/misc.org
@@ -1133,6 +1133,24 @@
 
       ;; (spam-initialize)
     #+end_src
+* dtach
+    #+begin_src emacs-lisp
+      (use-package dtache
+        :ensure t
+        :hook (after-init . dtache-setup)
+        :bind (([remap async-shell-command] . dtache-shell-command)))
+
+      (global-set-key (kbd "C-c D") dtache-action-map)
+
+      (use-package dtache-eshell
+        :hook (eshell-mode . dtache-eshell-mode))
+
+      (use-package dtache-consult
+        :after dtache
+        ;; :bind ([remap dtache-open-session] . dtache-consult-session)
+        )
+
+    #+end_src
 * snippets
   #+begin_src emacs-lisp
     (defun jao-minibuffer--text-with-padding (text)
diff --git a/gnus.org b/gnus.org
index 1a5a9ea..558b98e 100644
--- a/gnus.org
+++ b/gnus.org
@@ -377,40 +377,6 @@
     (eval-after-load "message"
       '(setq message-draft-headers (remove 'Date message-draft-headers)))
   #+END_SRC
-* Notmuch integration
-*** notmuch tags
-    #+begin_src emacs-lisp
-      (require 'jao-notmuch-gnus)
-
-      (defun jao-gnus-toggle-todo ()
-        (interactive)
-        (jao-notmuch-gnus-toggle-tags '("todo")))
-
-      (define-key gnus-summary-mode-map (kbd "C-c T") #'jao-notmuch-gnus-tag-message)
-      (define-key gnus-summary-mode-map (kbd "C-c t") #'jao-notmuch-gnus-show-tags)
-      (define-key gnus-summary-mode-map (kbd "C-c C-t") #'jao-gnus-toggle-todo)
-
-    #+end_src
-*** notmuch -> gnus / consult-notmuch
-    #+begin_src emacs-lisp
-      (with-eval-after-load "notmuch-show"
-        (define-key gnus-group-mode-map "z" #'jao-gnus-consult-notmuch)
-        (define-key gnus-group-mode-map "Z" #'notmuch)
-        (define-key notmuch-show-mode-map
-                    (kbd "C-c C-c")
-                    #'jao-notmuch-gnus-goto-message))
-
-      (defun jao-gnus-notmuch-export (query)
-        (notmuch-tree query nil nil "* consult-notmuch results *"))
-
-      (setq consult-notmuch-export-function #'jao-gnus-notmuch-export)
-
-      (with-eval-after-load "notmuch-tree"
-        (define-key notmuch-tree-mode-map
-                    (kbd "C-<return>")
-                    #'jao-notmuch-gnus-goto-message))
-
-  #+end_src
 * Groups buffer
   #+begin_src emacs-lisp
     ;; (setq gnus-group-line-format " %m%S%p%P:%~(pad-right 35)c %3y %B\n")
@@ -726,7 +692,37 @@
                 (jao-browse-add-url-to-mpc url))))))
     #+end_src
 * Add-ons
-*** icalendar/org
+*** notmuch integration
+    #+begin_src emacs-lisp
+      (require 'jao-notmuch-gnus)
+
+      (defun jao-gnus-toggle-todo ()
+        (interactive)
+        (jao-notmuch-gnus-toggle-tags '("todo")))
+
+      (define-key gnus-summary-mode-map (kbd "C-c T") #'jao-notmuch-gnus-tag-message)
+      (define-key gnus-summary-mode-map (kbd "C-c t") #'jao-notmuch-gnus-show-tags)
+      (define-key gnus-summary-mode-map (kbd "C-c C-t") #'jao-gnus-toggle-todo)
+
+      (with-eval-after-load "notmuch-show"
+        (define-key gnus-group-mode-map "z" #'jao-gnus-consult-notmuch)
+        (define-key gnus-group-mode-map "Z" #'notmuch)
+        (define-key notmuch-show-mode-map
+                    (kbd "C-c C-c")
+                    #'jao-notmuch-gnus-goto-message))
+
+      (defun jao-gnus-notmuch-export (query)
+        (notmuch-tree query nil nil "* consult-notmuch results *"))
+
+      (setq consult-notmuch-export-function #'jao-gnus-notmuch-export)
+
+      (with-eval-after-load "notmuch-tree"
+        (define-key notmuch-tree-mode-map
+                    (kbd "C-<return>")
+                    #'jao-notmuch-gnus-goto-message))
+
+    #+end_src
+*** gnus-icalendar
     #+begin_src emacs-lisp
       (require 'ol-gnus)
       (use-package gnus-icalendar
diff --git a/init.org b/init.org
index 5f5aace..b1d68ee 100644
--- a/init.org
+++ b/init.org
@@ -493,10 +493,10 @@
         (setq jao-browse-doc-use-emacs-p t)
         (setq jao-minibuffer-right-margin " ")
         (setq jao-wallpaper-random-wake nil)
-        (jao-trisect)
         (setq jao-transparent-only-bg t jao-frames-default-alpha 88)
         (jao-set-transparency)
         (jao-themes-setup)
+        (jao-trisect)
         (message "Welcome to xmonad"))
 
       (when jao-xmonad-enabled (add-hook 'after-init-hook #'jao-xmonad-enable))
@@ -3146,7 +3146,7 @@
         ("t" "telegram" jao-chats-telega)
         ("s" "slack" jao-chats-slack)
         ("i"  "irc" jao-chats-irc)]
-       ["Windows"  :if window-system
+       ["Windows" :if window-system
         ("w" "set wallpaper" jao-set-wallpaper)
         ("W" "set radom wallpaper" jao-set-random-wallpaper)]
        ["Helpers"
diff --git a/lib/media/jao-mpris.el b/lib/media/jao-mpris.el
index 977dab3..4df83c7 100644
--- a/lib/media/jao-mpris.el
+++ b/lib/media/jao-mpris.el
@@ -112,7 +112,7 @@
          (duration (cond (duration duration)
                          ((stringp len) len)
                          ((numberp len) (jao-mpris--fmt-time (/ len 1e6) "")))))
-    (format " %s %s %s%s%s"
+    (format "> %s %s %s%s%s"
             (jao--put-face (format "%s" (or track "")) 'jao-themes-f00)
             (jao--put-face (or title "") 'jao-themes-f01)
             (jao--put-face (or artist "") 'jao-themes-f11)
diff --git a/lib/net/jao-notmuch-gnus.el b/lib/net/jao-notmuch-gnus.el
index fbfa423..3f18f12 100644
--- a/lib/net/jao-notmuch-gnus.el
+++ b/lib/net/jao-notmuch-gnus.el
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (require 'gnus)
+(require 'ol-gnus)
 (require 'notmuch-show)
 
 
-- 
cgit v1.2.3