update of packages

2023-11-04 19:26:41 +01:00
parent e162a12b58
commit 3b54a3236d
726 changed files with 297673 additions and 34585 deletions
--- a/settings/gui-settings.el
+++ b/settings/gui-settings.el
@@ -194,6 +194,7 @@ DISPLAY-START: `integer', e.g. 3820"
    ))

 (use-package dashboard
+  :after (all-the-icons)
  :delight (dashboard-mode "Db")  ;; "\u01F153
  :config
  ;; see `dashboad-widget'
--- a/settings/mail-settings.el
+++ b/settings/mail-settings.el
@@ -135,7 +135,7 @@ be set according to this variable."
        ((eq my-mu4e-sync 'mbsync)
         (setq mu4e-get-mail-command my-mu4e-mbsync-command)
         (setq mu4e-change-filenames-when-moving t)))  ;; t better for mbsync
-  
+
  ;;; vars
  (setq mu4e-completing-read-function 'ivy-completing-read)
  (setq mu4e-confirm-quit nil)
@@ -152,7 +152,7 @@ be set according to this variable."
                              (:from-or-to . 22)  ;; :from-or-to shows From: except when the e-mail was sent by the user (i.e., you) in that case it shows To: (prefixed by To, see also `mu4e-headers-from-or-to-prefix')
                              (:subject)))
  ;;(setq mu4e-headers-from-or-to-prefix '("" . "To "))  ;; prefix "To " for sent messages
-  
+
  ;;; message
  ;;(setq mu4e-html2text-command ...)

@@ -161,7 +161,7 @@ be set according to this variable."
  (setq mu4e-view-show-addresses t)
  (add-to-list 'mu4e-headers-actions '("view in browser" . mu4e-action-view-in-browser))
  (add-to-list 'mu4e-view-actions '("view in browser" . mu4e-action-view-in-browser))
-  
+
  ;;; actions
  (setq mu4e-action-tags-header "X-Keywords")  ;; for e.g. gmail

@@ -183,11 +183,11 @@ be set according to this variable."
 folder in maildir the email (eg. ~/.mail/work) is located in."
    (when rx
      (if (listp rx)
-	        ;; If rx is a list, try each one for a match
-	        (or (mu4e-message-maildir-matches msg (car rx))
-	            (mu4e-message-maildir-matches msg (cdr rx)))
-	      ;; Not a list, check rx
-	      (string-match rx (mu4e-message-field msg :maildir)))))
+          ;; If rx is a list, try each one for a match
+          (or (mu4e-message-maildir-matches msg (car rx))
+              (mu4e-message-maildir-matches msg (cdr rx)))
+        ;; Not a list, check rx
+        (string-match rx (mu4e-message-field msg :maildir)))))
  ;; overwite in custom.el
  (defun my-mu4e-refile-folder-work (msg)
    "Function for chosing the refile folder for the work account.
@@ -209,55 +209,58 @@ MSG is a message p-list from mu4e."
  ;;(setq mu4e-org-link-query-in-headers-mode nil)  ;; point to message (default) rather then the query
  )

-(use-package mu4e-maildirs-extension
-  :after mu4e
-  :config
-  (setq mu4e-maildirs-extension-title
-        (concat "  Maildirs\t(["
-                (key-description mu4e-maildirs-extension-toggle-maildir-key)
-                "] fold, [C-u "
-                (key-description mu4e-maildirs-extension-toggle-maildir-key)
-                "] fold w/ children, [RET]/[mouse-2] jump to, [C-u RET] jump to unread only)\n"))
-  (setq mu4e-maildirs-extension-action-text
-        (concat "\t* ["
-                (key-description mu4e-maildirs-extension-action-key)
-                "]pdate index & cache\t([C-u "
-                (key-description mu4e-maildirs-extension-action-key)
-                "] clear cache, [C-u C-u "
-                (key-description mu4e-maildirs-extension-action-key)
-                "] clear and refresh)\n"))
-  (setq mu4e-maildirs-extension-maildir-default-prefix "└")  ;;├> └>
-  (setq mu4e-maildirs-extension-fake-maildir-separator "\\.")
-
-  ;; overwrite to remove double entries:
-  ;; /desy/*
-  ;; /desy/Drafts
-  ;; /desy/INBOX
-  ;; /desy/INBOX.event
-  ;; /desy/INBOX.Ing
-  ;; /desy/INBOX/Ing/*
-  ;; /desy/INBOX.Ing.CAD
-  ;; /desy/INBOX/Ing/CAD/*
-  ;; alteration: searching for "/.*/.*" pathes and do not append /* to them.
-  (defun mu4e-maildirs-extension-paths ()
-    "Get maildirs paths."
-    (let ((paths (mu4e-maildirs-extension-get-relevant-maildirs))
-          (paths-to-show nil))
-
-      (mapc #'(lambda (name)
-                (let ((parents (butlast (mu4e-maildirs-extension-parse name)))
-                      (path nil))
-                  (mapc #'(lambda (parent-name)
-                            (setq path (concat path "/" parent-name))
-                            (unless (or (member path paths-to-show)
-                                        (string-match-p "/.*/.*" path))
-                              (add-to-list 'paths-to-show (format "%s/*" path) t)))
-                        parents))
-                (add-to-list 'paths-to-show name t))
-            paths)
-      paths-to-show))
-
-  (mu4e-maildirs-extension))
+;; TODO: removed
+;; https://github.com/agpchil/mu4e-maildirs-extension
+;; https://github.com/djcb/mu/pull/1586
+;; (use-package mu4e-maildirs-extension
+;;   :after mu4e
+;;   :config
+;;   (setq mu4e-maildirs-extension-title
+;;         (concat "  Maildirs\t(["
+;;                 (key-description mu4e-maildirs-extension-toggle-maildir-key)
+;;                 "] fold, [C-u "
+;;                 (key-description mu4e-maildirs-extension-toggle-maildir-key)
+;;                 "] fold w/ children, [RET]/[mouse-2] jump to, [C-u RET] jump to unread only)\n"))
+;;   (setq mu4e-maildirs-extension-action-text
+;;         (concat "\t* ["
+;;                 (key-description mu4e-maildirs-extension-action-key)
+;;                 "]pdate index & cache\t([C-u "
+;;                 (key-description mu4e-maildirs-extension-action-key)
+;;                 "] clear cache, [C-u C-u "
+;;                 (key-description mu4e-maildirs-extension-action-key)
+;;                 "] clear and refresh)\n"))
+;;   (setq mu4e-maildirs-extension-maildir-default-prefix "└")  ;;├> └>
+;;   (setq mu4e-maildirs-extension-fake-maildir-separator "\\.")
+;;
+;;   ;; overwrite to remove double entries:
+;;   ;; /desy/*
+;;   ;; /desy/Drafts
+;;   ;; /desy/INBOX
+;;   ;; /desy/INBOX.event
+;;   ;; /desy/INBOX.Ing
+;;   ;; /desy/INBOX/Ing/*
+;;   ;; /desy/INBOX.Ing.CAD
+;;   ;; /desy/INBOX/Ing/CAD/*
+;;   ;; alteration: searching for "/.*/.*" pathes and do not append /* to them.
+;;   (defun mu4e-maildirs-extension-paths ()
+;;     "Get maildirs paths."
+;;     (let ((paths (mu4e-maildirs-extension-get-relevant-maildirs))
+;;           (paths-to-show nil))
+;;
+;;       (mapc #'(lambda (name)
+;;                 (let ((parents (butlast (mu4e-maildirs-extension-parse name)))
+;;                       (path nil))
+;;                   (mapc #'(lambda (parent-name)
+;;                             (setq path (concat path "/" parent-name))
+;;                             (unless (or (member path paths-to-show)
+;;                                         (string-match-p "/.*/.*" path))
+;;                               (add-to-list 'paths-to-show (format "%s/*" path) t)))
+;;                         parents))
+;;                 (add-to-list 'paths-to-show name t))
+;;             paths)
+;;       paths-to-show))
+;;
+;;   (mu4e-maildirs-extension))

 (defgroup my-notmuch nil
  "My notmuch concept mapping"
--- a/settings/theme-settings.el
+++ b/settings/theme-settings.el
@@ -10,7 +10,7 @@
 ;;     Asana Math (debian texlive-fonts-extra)

 ;;; Code:
-(use-package spacemacs-common
+(use-package spacemacs-theme
  :after (cl-lib)  ;; spacemacs-common misses to load cl-lib
  :config
  (load-theme 'spacemacs-dark t))