trying to debug consult-mu
This commit is contained in:
parent
d6393c4c49
commit
4685828eb4
4 changed files with 42 additions and 57 deletions
58
config.el
58
config.el
|
@ -1,19 +1,20 @@
|
||||||
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Place your private configuration here! Remember, you do not need to run 'doom
|
|
||||||
;; sync' after modifying this file!
|
|
||||||
|
|
||||||
;; Some functionality uses this to identify you, e.g. GPG configuration, email
|
|
||||||
;; clients, file temp+bindingslates and snippets. It is optional.
|
|
||||||
(setq user-full-name "Matt Nish-Lapidus"
|
(setq user-full-name "Matt Nish-Lapidus"
|
||||||
user-mail-address "matt@emenel.ca")
|
user-mail-address "matt@emenel.ca")
|
||||||
|
|
||||||
;; See 'C-h v doom-font' for documentation and more examples of what they
|
|
||||||
;; accept. For example:
|
|
||||||
(setq doom-font (font-spec :family "IBM Plex Mono" :size 18))
|
|
||||||
(setq fancy-splash-image (concat doom-user-dir "splash.png"))
|
|
||||||
(setq doom-theme 'doom-one)
|
(setq doom-theme 'doom-one)
|
||||||
|
|
||||||
|
;; (setq doom-font (font-spec :family "Liga SFMono Nerd Font" :size 15)
|
||||||
|
;; doom-big-font (font-spec :family "Liga SFMono Nerd Font" :size 20)
|
||||||
|
;; doom-variable-pitch-font (font-spec :family "IBM Plex Sans" :size 16)
|
||||||
|
;; doom-symbol-font (font-spec :family "Liga SFMono Nerd Font")
|
||||||
|
;; doom-serif-font (font-spec :family "IBM Plex Sans" :size 16 :weight 'medium))
|
||||||
|
|
||||||
|
(setq doom-font (font-spec :family "IBM Plex Mono" :size 18))
|
||||||
|
|
||||||
|
(setq fancy-splash-image (concat doom-user-dir "splash.png"))
|
||||||
|
|
||||||
(setq +doom-dashboard-pwd-policy nil)
|
(setq +doom-dashboard-pwd-policy nil)
|
||||||
|
|
||||||
;; Must be used *after* the theme is loaded
|
;; Must be used *after* the theme is loaded
|
||||||
|
@ -25,28 +26,26 @@
|
||||||
'(line-number ((t (:foreground "#424242"))))
|
'(line-number ((t (:foreground "#424242"))))
|
||||||
'(mu4e-highlight-face ((t (:inherit nil :background "gray26" :foreground "gray85")))))
|
'(mu4e-highlight-face ((t (:inherit nil :background "gray26" :foreground "gray85")))))
|
||||||
|
|
||||||
;; This determines the style of line numbers in effect. If set to `nil', line
|
|
||||||
;; numbers are disabled. For relative line numbers, set this to `relative'.
|
|
||||||
(setq display-line-numbers-type 'relative)
|
(setq display-line-numbers-type 'relative)
|
||||||
(setq scroll-preserve-screen-position t)
|
(setq scroll-preserve-screen-position t)
|
||||||
(setq global-hl-line-modes nil)
|
(setq global-hl-line-modes nil)
|
||||||
|
|
||||||
(if (daemonp)
|
(if (daemonp)
|
||||||
(add-hook 'after-make-frame-functions
|
(add-hook! after-make-frame-functions
|
||||||
(lambda (frame)
|
(lambda (frame)
|
||||||
(with-selected-frame frame
|
(with-selected-frame frame
|
||||||
(scroll-bar-mode -1))))
|
(scroll-bar-mode -1))))
|
||||||
(scroll-bar-mode -1))
|
(scroll-bar-mode -1))
|
||||||
|
|
||||||
|
;; encodings
|
||||||
(setq locale-coding-system 'utf-8)
|
(setq locale-coding-system 'utf-8)
|
||||||
(set-terminal-coding-system 'utf-8)
|
(set-terminal-coding-system 'utf-8)
|
||||||
(set-keyboard-coding-system 'utf-8)
|
(set-keyboard-coding-system 'utf-8)
|
||||||
(prefer-coding-system 'utf-8)
|
(prefer-coding-system 'utf-8)
|
||||||
|
|
||||||
|
;; org dir == obsidian vault
|
||||||
(setq org-directory "~/Documents/Obsidian/Primary")
|
(setq org-directory "~/Documents/Obsidian/Primary")
|
||||||
|
|
||||||
(use-package! kbd-mode :defer t)
|
|
||||||
|
|
||||||
(use-package! direnv
|
(use-package! direnv
|
||||||
:config
|
:config
|
||||||
(direnv-mode))
|
(direnv-mode))
|
||||||
|
@ -169,6 +168,8 @@
|
||||||
(after! vertico
|
(after! vertico
|
||||||
(vertico-mouse-mode))
|
(vertico-mouse-mode))
|
||||||
|
|
||||||
|
;; modes
|
||||||
|
(use-package! kbd-mode :defer t)
|
||||||
|
|
||||||
(after! lsp-mode
|
(after! lsp-mode
|
||||||
(setq lsp-signature-render-documentation nil)
|
(setq lsp-signature-render-documentation nil)
|
||||||
|
@ -250,8 +251,7 @@
|
||||||
(after! gcode-mode
|
(after! gcode-mode
|
||||||
(add-hook! 'gcode-mode-hook 'eldoc-mode))
|
(add-hook! 'gcode-mode-hook 'eldoc-mode))
|
||||||
|
|
||||||
(use-package!
|
(use-package! tramp
|
||||||
tramp
|
|
||||||
:defer t
|
:defer t
|
||||||
:config
|
:config
|
||||||
;; To “turn off” the backup feature for remote files and stop TRAMP from saving to the backup directory.
|
;; To “turn off” the backup feature for remote files and stop TRAMP from saving to the backup directory.
|
||||||
|
@ -320,16 +320,16 @@
|
||||||
(end (region-end)))
|
(end (region-end)))
|
||||||
(font-lock-flush beg end))))
|
(font-lock-flush beg end))))
|
||||||
|
|
||||||
(defun +workspaces-associate-frame-fn (frame &optional _new-frame-p)
|
;; (defun +workspaces-associate-frame-fn (frame &optional _new-frame-p)
|
||||||
"Create a blank, new perspective and associate it with FRAME."
|
;; "Create a blank, new perspective and associate it with FRAME."
|
||||||
(when persp-mode
|
;; (when persp-mode
|
||||||
(with-selected-frame frame
|
;; (with-selected-frame frame
|
||||||
(if (not (cdr-safe (persp-frame-list-without-daemon)))
|
;; (if (not (cdr-safe (persp-frame-list-without-daemon)))
|
||||||
(+workspace-switch +workspaces-main t)
|
;; (+workspace-switch +workspaces-main t)
|
||||||
(+workspace-switch (format "#%s" (+workspace--generate-id)) t))
|
;; (+workspace-switch (format "#%s" (+workspace--generate-id)) t))
|
||||||
(unless (doom-real-buffer-p (current-buffer))
|
;; (unless (doom-real-buffer-p (current-buffer))
|
||||||
(switch-to-buffer (doom-fallback-buffer)))
|
;; (switch-to-buffer (doom-fallback-buffer)))
|
||||||
(set-frame-parameter frame 'workspace (+workspace-current-name))
|
;; (set-frame-parameter frame 'workspace (+workspace-current-name))
|
||||||
;; ensure every buffer has a buffer-predicate
|
;; ;; ensure every buffer has a buffer-predicate
|
||||||
(persp-set-frame-buffer-predicate frame))
|
;; (persp-set-frame-buffer-predicate frame))
|
||||||
(run-at-time 0.1 nil #'+workspace/display)))
|
;; (run-at-time 0.1 nil #'+workspace/display)))
|
||||||
|
|
3
meow.el
3
meow.el
|
@ -120,6 +120,9 @@
|
||||||
:config
|
:config
|
||||||
(meow-setup)
|
(meow-setup)
|
||||||
(pushnew! meow-mode-state-list '(mu4e-main-mode . motion))
|
(pushnew! meow-mode-state-list '(mu4e-main-mode . motion))
|
||||||
|
(pushnew! meow-mode-state-list '(mu4e-view-mode . motion))
|
||||||
|
(pushnew! meow-mode-state-list '(mu4e-compose-mode . normal))
|
||||||
|
(pushnew! meow-mode-state-list '(mu4e-headers-mode . motion))
|
||||||
(pushnew! meow-mode-state-list '(sly-db-mode . motion))
|
(pushnew! meow-mode-state-list '(sly-db-mode . motion))
|
||||||
(pushnew! meow-mode-state-list '(sly-inspector-mode . motion))
|
(pushnew! meow-mode-state-list '(sly-inspector-mode . motion))
|
||||||
(pushnew! meow-mode-state-list '(vterm-mode . insert))
|
(pushnew! meow-mode-state-list '(vterm-mode . insert))
|
||||||
|
|
|
@ -53,7 +53,6 @@
|
||||||
(print args)
|
(print args)
|
||||||
(kill-this-buffer))
|
(kill-this-buffer))
|
||||||
;;TODO close view window and open compose window in place
|
;;TODO close view window and open compose window in place
|
||||||
;;
|
|
||||||
|
|
||||||
|
|
||||||
(defun mu4e-view-save-all-attachments (&optional arg)
|
(defun mu4e-view-save-all-attachments (&optional arg)
|
||||||
|
@ -93,17 +92,18 @@
|
||||||
|
|
||||||
|
|
||||||
(use-package! consult-mu
|
(use-package! consult-mu
|
||||||
:defer-incrementally mu4e
|
:after mu4e
|
||||||
:custom
|
:custom
|
||||||
(consult-mu-maxnum 200)
|
(consult-mu-maxnum 200)
|
||||||
|
|
||||||
;;show preview when pressing any keys
|
;;show preview when pressing any keys
|
||||||
(consult-mu-preview-key 'any)
|
(consult-mu-preview-key 'any)
|
||||||
(consult-mu-mark-previewed-as-read nil)
|
(consult-mu-mark-previewed-as-read nil)
|
||||||
;;mark email as read when selected.
|
(consult-mu-mark-viewed-as-read t)
|
||||||
;; (consult-mu-mark-viewed-as-read t)
|
|
||||||
(consult-mu-use-wide-reply t)
|
(consult-mu-use-wide-reply t)
|
||||||
|
|
||||||
(consult-mu-headers-template (lambda () (concat "%f" (number-to-string (floor (* (frame-width) 0.15))) "%s" (number-to-string (floor (* (frame-width) 0.5))) "%d13" "%g" "%x")))
|
(consult-mu-headers-template (lambda () (concat "%f" (number-to-string (floor (* (frame-width) 0.15))) "%s" (number-to-string (floor (* (frame-width) 0.5))) "%d13" "%g" "%x")))
|
||||||
|
|
||||||
(consult-mu-action #'consult-mu--view-action)
|
(consult-mu-action #'consult-mu--view-action)
|
||||||
|
|
||||||
:config
|
:config
|
||||||
|
@ -131,11 +131,6 @@
|
||||||
:defer-incrementally t
|
:defer-incrementally t
|
||||||
:config
|
:config
|
||||||
|
|
||||||
;; Run mu4e in the background to sync mail periodically
|
|
||||||
;; (mu4e t)
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(setq mm-discouraged-alternatives '("text/html" "text/richtext"))
|
(setq mm-discouraged-alternatives '("text/html" "text/richtext"))
|
||||||
|
|
||||||
(setq
|
(setq
|
||||||
|
@ -161,13 +156,6 @@
|
||||||
|
|
||||||
(set-popup-rule! "*mu4e overview*" :side 'left :size '0.25)
|
(set-popup-rule! "*mu4e overview*" :side 'left :size '0.25)
|
||||||
|
|
||||||
;; Use gnus article view
|
|
||||||
;; (setq mu4e-view-use-gnus t)
|
|
||||||
|
|
||||||
;; (gnus-icalendar-setup)
|
|
||||||
;; Optional
|
|
||||||
;; (setq mu4e-icalendar-trash-after-reply t)
|
|
||||||
|
|
||||||
(setq
|
(setq
|
||||||
sendmail-program "/etc/profiles/per-user/emenel/bin/msmtp"
|
sendmail-program "/etc/profiles/per-user/emenel/bin/msmtp"
|
||||||
send-mail-function 'smtpmail-send-it
|
send-mail-function 'smtpmail-send-it
|
||||||
|
@ -177,7 +165,6 @@
|
||||||
|
|
||||||
(add-hook! 'mu4e-compose-mode-hook
|
(add-hook! 'mu4e-compose-mode-hook
|
||||||
(ws-butler-mode -1)
|
(ws-butler-mode -1)
|
||||||
;; (use-hard-newlines -1)
|
|
||||||
(visual-line-mode)
|
(visual-line-mode)
|
||||||
(message-goto-body)
|
(message-goto-body)
|
||||||
(message-insert-signature-at-point)
|
(message-insert-signature-at-point)
|
||||||
|
|
17
packages.el
17
packages.el
|
@ -37,25 +37,22 @@
|
||||||
:files (:defaults "*.el")))
|
:files (:defaults "*.el")))
|
||||||
|
|
||||||
(package! meow-vterm
|
(package! meow-vterm
|
||||||
:recipe (:type git
|
:recipe (:type git :host github :repo "accelbread/meow-vterm"))
|
||||||
:host github
|
|
||||||
:repo "accelbread/meow-vterm"))
|
|
||||||
|
|
||||||
(package! meow-tree-sitter
|
(package! meow-tree-sitter
|
||||||
:recipe (:type git :host github :repo "skissue/meow-tree-sitter"))
|
:recipe (:type git :host github :repo "skissue/meow-tree-sitter"))
|
||||||
|
|
||||||
(package! kbd-mode
|
(package! kbd-mode
|
||||||
:recipe (:type git
|
:recipe (:type git :host github :repo "kmonad/kbd-mode"))
|
||||||
:host github
|
|
||||||
:repo "kmonad/kbd-mode"))
|
(package! mu4e-query
|
||||||
|
:recipe (:host github :type git :repo "mickeynp/mu4e-query"))
|
||||||
|
|
||||||
(package! consult-mu
|
(package! consult-mu
|
||||||
:recipe (:host github :type git :repo "armindarvish/consult-mu" :files (:defaults "extras/*.el")))
|
:recipe (:host github :type git :repo "armindarvish/consult-mu" :files (:defaults "extras/*.el")))
|
||||||
|
|
||||||
(package! mu4e-overview
|
(package! mu4e-overview
|
||||||
:recipe (:type git
|
:recipe (:type git :host github :repo "mkcms/mu4e-overview"))
|
||||||
:host github
|
|
||||||
:repo "mkcms/mu4e-overview"))
|
|
||||||
|
|
||||||
(package! just-mode)
|
(package! just-mode)
|
||||||
(package! justl)
|
(package! justl)
|
||||||
|
@ -99,8 +96,6 @@
|
||||||
:repo "moderninterpreters/markup"
|
:repo "moderninterpreters/markup"
|
||||||
:files ("*.el")))
|
:files ("*.el")))
|
||||||
|
|
||||||
(package! bookmark-in-project)
|
|
||||||
|
|
||||||
(package! eglot-booster
|
(package! eglot-booster
|
||||||
:recipe (:type git
|
:recipe (:type git
|
||||||
:host github
|
:host github
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue