From ce0c898a4e7d5a8197f4bda7fdc2fa8b12f41150 Mon Sep 17 00:00:00 2001 From: Gerardo Marx Date: Wed, 9 Sep 2020 22:22:13 -0500 Subject: [PATCH] no mu4e package and ubuntu version --- .emacs | 134 ++++----------------------------------------------------- 1 file changed, 9 insertions(+), 125 deletions(-) diff --git a/.emacs b/.emacs index 1f9909f..4b7a8b3 100644 --- a/.emacs +++ b/.emacs @@ -188,7 +188,7 @@ :after org :bind ("C-x p" . org-pomodoro)) ;; org configuration: -(setq org-agenda-files '("~/beorg/phd.org" "~/beorg/students.org" "~/beorg/inbox.org" "~/beorg/academia.org")) +;;(setq org-agenda-files '("~/beorg/phd.org" "~/beorg/students.org" "~/beorg/inbox.org" "~/beorg/academia.org")) (add-hook 'org-mode-hook (lambda() ;; dictionary @@ -209,7 +209,7 @@ (dolist (hook '(org-mode-hook latex-mode-hook tex-mode-hook git-commit-mode-hook)) (add-hook hook (lambda () (flyspell-mode 1)))) ;;(setq ispell-dictionary "en") -(setq ispell-program-name "/usr/local/bin/aspell") +(setq ispell-program-name "/usr/bin/aspell") ;; Set default font: (add-to-list 'default-frame-alist '(font . "Source Code Pro-14")) @@ -279,129 +279,13 @@ :config (setq python-shell-interpreter "python3") (setq venv-location "~/.virtualenvs")) -;;mu4e -;; (use-package mu4e -;; :commands (mu4e) -;; :init -;; ;;(progn (require 'helm-mu)) -;; :config -;; (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu/mu4e") -;; (setq mu4e-mu-binary "/usr/local/bin/mu")) -;;-+-+-+-+-+-+-+-+-+-+-+-+ -;; "default" parameters from Gmail -(setq user-full-name "Gerardo Marx Chávez-Campos") ;;user -(setq mu4e-compose-signature t) ;; signature in file ~/.signature -(add-hook 'mu4e-compose-mode-hook 'flyspell-mode(setq ispell-local-dictionary "castellano")) ;; spell check -;; attempt to show images when viewing messages -(setq mu4e-view-show-images t) -(setq mu4e-sent-folder "/Gmail/sent" - ;; mu4e-sent-messages-behavior 'delete ;; Unsure how this should be configured - mu4e-drafts-folder "/Gmail/drafts" - user-mail-address "gmarx_cc@itmorelia.edu.mx" - smtpmail-local-domain "gmail.com" - smtpmail-default-smtp-server "smtp.gmail.com" - smtpmail-stream-type 'starttls - smtpmail-smtp-server "smtp.gmail.com" - smtpmail-smtp-service 587) -;; --- -;; Now I set a list of -(defvar my-mu4e-account-alist - '(("Gmail" - (mu4e-sent-folder "/Gmail/sent") - (mu4e-drafts-folder "/Gmail/drafts") - (user-mail-address "gmarx_cc@itmorelia.edu.mx") - (smtpmail-smtp-user "gmarx_cc@itmorelia.edu.mx") - (smtpmail-local-domain "gmail.com") - (smtpmail-default-smtp-server "smtp.gmail.com") - (smtpmail-stream-type starttls) - (smtpmail-smtp-server "smtp.gmail.com") - (smtpmail-smtp-service 587) - ) - ;; Include any other accounts here ... - ("Exchange" - (mu4e-sent-folder "/Exchange/sent") - (mu4e-drafts-folder "/Exchange/drafts") - (user-mail-address "gerardo.cc@morelia.tecnm.mx") - (smtpmail-smtp-user "gerardo.cc@morelia.tecnm.mx") - (smtpmail-local-domain "office365.com") - (smtpmail-default-smtp-server "smtp.office365.com") - (smtpmail-stream-type starttls) - (smtpmail-smtp-server "smtp.office365.com") - (smtpmail-smtp-service 587) - ) - ;; - ;; hotmail - ("Hotmail" - (mu4e-sent-folder "/Hotmail/sent") - (mu4e-drafts-folder "/Hotmail/drafts") - (user-mail-address "gmarx_cc@hotmail.com") - (smtpmail-smtp-user "gmarx_cc@hotmail.com") - (smtpmail-local-domain "office365.com") - (smtpmail-default-smtp-server "smtp.office365.com") - (smtpmail-stream-type starttls) - (smtpmail-smtp-server "smtp.office365.com") - (smtpmail-smtp-service 25) - ) - )) -;; --- -(defun my-mu4e-set-account () - "Set the account for composing a message. - This function is taken from: - https://www.djcbsoftware.nl/code/mu/mu4e/Multiple-accounts.html" - (let* ((account - (if mu4e-compose-parent-message - (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir))) - (string-match "/\\(.*?\\)/" maildir) - (match-string 1 maildir)) - (completing-read (format "Compose with account: (%s) " - (mapconcat #'(lambda (var) (car var)) - my-mu4e-account-alist "/")) - (mapcar #'(lambda (var) (car var)) my-mu4e-account-alist) - nil t nil nil (caar my-mu4e-account-alist)))) - (account-vars (cdr (assoc account my-mu4e-account-alist)))) - (if account-vars - (mapc #'(lambda (var) - (set (car var) (cadr var))) - account-vars) - (error "No email account found")))) -(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account) -;;-+-+-+-+-+-+-+-+-+-+-+-+ -;;--------- -;; mu4e-maildirs-extension -;; (use-package mu4e-maildirs-extension -;; :ensure t -;; :init -;; (mu4e-maildirs-extension) -;; :custom -;; (mu4e-maildirs-extension-custom-list '("/Gmail/INBOX" "/Exchange/INBOX" "/Hotmail/INBOX")) -;; ) -;; mu4e-alert -(use-package mu4e-alert +;; pyenv: +(use-package pyvenv :ensure t - :after mu4e - :init - (setq mu4e-alert-interesting-mail-query - (concat - "flag:unread maildir:/Exchange/INBOX " - "OR " - "flag:unread maildir:/Gmail/INBOX" - )) - (mu4e-alert-enable-mode-line-display) - (defun gjstein-refresh-mu4e-alert-mode-line () - (interactive) - (mu4e~proc-kill) - (mu4e-alert-enable-mode-line-display) - ) - (run-with-timer 0 60 'gjstein-refresh-mu4e-alert-mode-line)) -;; helm -;; (use-package helm-mu -;; :ensure t -;; :config -;; ;;(define-key mu4e-main-mode-map "s" 'helm-mu) -;; ;;(define-key mu4e-headers-mode-map "s" 'helm-mu) -;; ;;(define-key mu4e-view-mode-map "s" 'helm-mu) -;; ) + :config + (pyvenv-mode 1)) + (custom-set-variables ;; custom-set-variables was added by Custom. @@ -410,10 +294,10 @@ ;; If there is more than one, they won't work right. '(custom-safe-themes (quote - ("99ea831ca79a916f1bd789de366b639d09811501e8c092c85b2cb7d697777f93" "bf387180109d222aee6bb089db48ed38403a1e330c9ec69fe1f52460a8936b66" default))) + ("71e5acf6053215f553036482f3340a5445aee364fb2e292c70d9175fb0cc8af7" "99ea831ca79a916f1bd789de366b639d09811501e8c092c85b2cb7d697777f93" "bf387180109d222aee6bb089db48ed38403a1e330c9ec69fe1f52460a8936b66" default))) '(package-selected-packages (quote - (latex-preview-pane org-pomodoro which-key virtualenvwrapper use-package treemacs-projectile pdf-tools org-bullets mu4e-maildirs-extension mu4e-alert magit helm-projectile helm-mu flycheck expand-region doom-themes doom-modeline dashboard company auctex))) + (pyvenv latex-preview-pane org-pomodoro which-key virtualenvwrapper use-package treemacs-projectile pdf-tools org-bullets mu4e-maildirs-extension mu4e-alert magit helm-projectile helm-mu flycheck expand-region doom-themes doom-modeline dashboard company auctex))) '(pdf-tools-handle-upgrades nil) '(safe-local-variable-values (quote