forked from colonelpanic/dotfiles
Make init.el not super broken. More email tweaks.
This commit is contained in:
parent
00fc34c7b9
commit
568b50e79c
@ -885,9 +885,12 @@ the same tree node, and the headline of the tree node in the Org-mode file."
|
|||||||
(progn
|
(progn
|
||||||
(defun email (&optional arg)
|
(defun email (&optional arg)
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(persp-switch "email")
|
(if (string-equal (persp-name persp-curr) "email")
|
||||||
(when (or (not (mu4e-running-p)) arg)
|
(progn (delete-other-windows) (mu4e))
|
||||||
(delete-other-windows) (mu4e)))
|
(progn
|
||||||
|
(persp-switch "email")
|
||||||
|
(when (or (not (mu4e-running-p)) arg)
|
||||||
|
(delete-other-windows) (mu4e)))))
|
||||||
;; enable inline images
|
;; enable inline images
|
||||||
(setq mu4e-view-show-images t)
|
(setq mu4e-view-show-images t)
|
||||||
;; show images
|
;; show images
|
||||||
@ -1365,7 +1368,7 @@ window is active in the perspective."
|
|||||||
(setq retval (cons 'exception (list ex))))
|
(setq retval (cons 'exception (list ex))))
|
||||||
nil)))
|
nil)))
|
||||||
|
|
||||||
defun message-virtual-envs ()
|
(defun message-virtual-envs ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(message "%s" (get-virtual-envs)))
|
(message "%s" (get-virtual-envs)))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user