nits

3 files changed, 27 insertions, 26 deletions

diff --git a/completion.org b/completion.org
index da9a9b0..4567db9 100644
--- a/completion.org
+++ b/completion.org
@@ -248,7 +248,7 @@
     #+begin_src emacs-lisp
       (use-package embark
         :ensure t
-
+        :demand t
         :custom ((embark-quit-after-action nil)
                  (embark-verbose-indicator-display-action
                   '((display-buffer-at-bottom)
@@ -269,7 +269,7 @@
       (with-eval-after-load 'consult
         (with-eval-after-load 'embark
           (require 'embark-consult)))
-    (require 'embark)
+
     #+end_src
 *** org targets
     #+begin_src emacs-lisp
diff --git a/lib/themes/jao-themes.el b/lib/themes/jao-themes.el
index 60af12a..5637325 100644
--- a/lib/themes/jao-themes.el
+++ b/lib/themes/jao-themes.el
@@ -335,28 +335,6 @@
             (clojure-test-failure-face (p warning) ul)
             (clojure-test-error-face (p error) ul)
             (cursor (p error)))
-          `((diredp-compressed-file-suffix (~ diredp-file-suffix))
-            (diredp-date-time (p f01))
-            (diredp-deletion (p error))
-            (diredp-deletion-file-name (~ diredp-deletion))
-            (diredp-dir-heading bf dfg dbg)
-            (diredp-dir-name (p f10))
-            (diredp-dir-priv dfg dbg bf)
-            (diredp-display-msg (p f00))
-            (diredp-exec-priv dfg dbg bf)
-            (diredp-executable-tag (p error))
-            (diredp-file-name dfg dbg)
-            (diredp-file-suffix (~ diredp-file-name))
-            (diredp-flag-mark (p f00) bf)
-            (diredp-flag-mark-line (p hilite))
-            (diredp-ignored-file-name (p dimm))
-            (diredp-link-priv (~ diredp-symlink))
-            (diredp-no-priv (~ diredp-read-priv))
-            (diredp-other-priv dfg dbg)
-            (diredp-rare-priv dfg dfg)
-            (diredp-read-priv dfg dbg bf)
-            (diredp-symlink (p warning))
-            (diredp-write-priv dfg dbg bf))
           `((change-log-acknowledgement (p f02))
             (change-log-conditionals (p f02))
             (change-log-date (p f01))
@@ -392,6 +370,7 @@
             (compilation-mode-line-exit (p f01) nbf)
             (compilation-mode-line-run (p warning))
             (compilation-warning nbf (p warning) nul)
+            (completions-annotations (p f10) nit)
             (completions-common-part nbf :width normal)
             (completions-first-difference bf dfg dbg)
             (corfu-background (p hilite))
@@ -464,6 +443,28 @@
             (dired-warn-writable (p warning))
             (dired-warning (p warning))
             (diredp-number (p f11)))
+          `((diredp-compressed-file-suffix (~ diredp-file-suffix))
+            (diredp-date-time (p f01))
+            (diredp-deletion (p error))
+            (diredp-deletion-file-name (~ diredp-deletion))
+            (diredp-dir-heading bf dfg dbg)
+            (diredp-dir-name (p f10))
+            (diredp-dir-priv dfg dbg bf)
+            (diredp-display-msg (p f00))
+            (diredp-exec-priv dfg dbg bf)
+            (diredp-executable-tag (p error))
+            (diredp-file-name dfg dbg)
+            (diredp-file-suffix (~ diredp-file-name))
+            (diredp-flag-mark (p f00) bf)
+            (diredp-flag-mark-line (p hilite))
+            (diredp-ignored-file-name (p dimm))
+            (diredp-link-priv (~ diredp-symlink))
+            (diredp-no-priv (~ diredp-read-priv))
+            (diredp-other-priv dfg dbg)
+            (diredp-rare-priv dfg dfg)
+            (diredp-read-priv dfg dbg bf)
+            (diredp-symlink (p warning))
+            (diredp-write-priv dfg dbg bf))
           `((ediff-current-diff-A (~ diff-added) ex)
             (ediff-current-diff-Ancestor (c nil ,jao-themes--box))
             (ediff-current-diff-B (~ ediff-current-diff-A) ex)
diff --git a/notmuch.org b/notmuch.org
index 9a7772f..20ddebc 100644
--- a/notmuch.org
+++ b/notmuch.org
@@ -187,8 +187,8 @@
                      (insert (match-string 1 address))
                      (let ((shr-width 1000))
                        (shr-render-region (point-min) (point-max)))
-                     (buffer-string))
-                 (string-replace "ElDiario.es - ElDiario.es" "D.es" address))))
+                     (replace-regexp-in-string "\"" "" (buffer-string)))
+                 (string-replace "ElDiario.es - ElDiario.es" "D" address))))
           (funcall fun address)))
 
       (advice-add 'notmuch-clean-address :around #'jao-mail-clean-address)