diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 2976c87e..2e411cf2 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -372,7 +372,6 @@ The current directory is assumed to be the project's root otherwise." (cons 'yas-ido-prompt (cl-delete 'yas-ido-prompt yas-prompt-functions))))) - (use-package tramp :commands tramp :config @@ -826,6 +825,9 @@ The current directory is assumed to be the project's root otherwise." (add-hook 'mu4e-compose-mode-hook (defun my-do-compose-stuff () (flyspell-mode))) + (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)) + (defun mu4e-view (msg headersbuf) "Display the message MSG in a new buffer, and keep in sync with HDRSBUF. 'In sync' here means that moving to the next/previous message in @@ -899,6 +901,7 @@ marking if it still had that." :commands (sauron-start sauron-start-hidden) :config (progn + (setq sauron-prio-sauron-started 2) (setq sauron-min-priority 3) (setq sauron-dbus-cookie t) (setq sauron-separate-frame nil) @@ -1532,6 +1535,7 @@ marking if it still had that." (load-theme theme no-confirm no-enable)) (defun set-my-font-for-frame (frame) + (interactive (list nil)) (condition-case exp (set-frame-font (random-choice fonts) nil t) ('error (package-refresh-contents) @@ -1543,6 +1547,7 @@ marking if it still had that." (if (fboundp 'menu-bar-mode) (menu-bar-mode -1)) (set-fringe-mode 0) (setq linum-format 'dynamic) + (set-my-font-for-frame nil) (setq left-margin-width 0) (setq hl-line-mode nil))