emacs-configuration/.emacs

;;; My basic configuration Gerardo Marx 15/Jul/2020
;;--------
;; Melpa repository:
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)
;; use-package
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))
;; frame size
(setq initial-frame-alist '((top . 10)(left . 20)
			    (width . 90)(height . 50)))

;; which-key:
(use-package which-key
  :ensure t
  :config (which-key-mode))
;; doom-themes
(use-package doom-themes
  :ensure t
  :config
  (setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
        doom-themes-enable-italic t) ; if nil, italics is universally disabled  
  (load-theme ;'doom-one
              'doom-tomorrow-day t)
  ;; Enable flashing mode-line on errors
  (doom-themes-visual-bell-config)
  ;; Enable custom neotree theme (all-the-icons must be installed!)
  (doom-themes-neotree-config)
  ;; or for treemacs users
 
  (setq doom-themes-treemacs-theme "doom-colors") ; use the colorful treemacs theme
  (doom-themes-treemacs-config)
    ;; Corrects (and improves) org-mode's native fontification.
  (doom-themes-org-config))
;; modeline
(use-package doom-modeline
  :ensure t
  :init (doom-modeline-mode 1))
;; icons:
(use-package all-the-icons
  :ensure t) ;; --> you need this M-x all-the-icons-install-fonts
;; startup config
(setq inhibit-startup-message t) ;;inhibit startup
(tool-bar-mode -1)
(menu-bar-mode -1)
(global-hl-line-mode +1) ;; highlith current line
(delete-selection-mode +1) ;; deletes selected text and replace it
(scroll-bar-mode -1)
(setq ns-right-alternate-modifier nil) ;; right option macos key enable
(setq backup-directory-alist '(("." . "~/.saves"))) ;; a backup dir to store no saved files
(fset 'yes-or-no-p 'y-or-n-p) ;; Ask y/n instead of yes/no
(add-hook 'prog-mode-hook 'display-line-numbers-mode) ;; display line number when programming
(show-paren-mode +1) ;; show matching parentheses
;; helm package:
(use-package helm
  :ensure t
  :demand t
  :bind (("M-x" . helm-M-x)
	 ("C-c h x" . helm-register)    ; C-x r SPC and C-x r j
	 ("C-c h g" . helm-google-suggest)
	 ("C-c h M-:" . helm-eval-expression-with-eldoc)
	 ("C-x C-f" . helm-find-files))
  :config
 (require 'helm-config)
  (helm-mode t))
;; projectile:
(use-package projectile
  :ensure t
  :config
  (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
  (projectile-mode t))
;; helm-projectile:
(use-package helm-projectile
  :ensure t
  :init
  (progn
    (require 'tramp)
    )
  :config (helm-projectile-on))
;; temp:
(setq ido-enable-flex-matching t)
;; dash-board:
(use-package dashboard
  :ensure t
  :init
  (progn
    (setq dashboard-items '((recents . 5)
			    (bookmarks . 5)
			    (projects . 5)
			    (agenda . 5)))
    (setq dashboard-banner-logo-title "Welcome gMarx")
    (setq dashboard-set-file-icons t)
    (setq dashboard-set-init-info t)
    (setq dashboard-startup-banner 'logo)
    )
  :config
  (dashboard-setup-startup-hook))
;; treemacs
(use-package treemacs
  :ensure t
  :init
  (with-eval-after-load 'winum
    (define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
  :config
  (progn
    (setq treemacs-is-never-other-window t)
    (setq treemacs-width 35))
  :bind
  (:map global-map
        ("M-0"       . treemacs-select-window)
	("C-x t t"   . treemacs)))
;; treemacs-projectile
(use-package treemacs-projectile
  :after treemacs projectile
  :ensure t)
;; magit
(use-package magit
  :ensure t)
;; latex
(use-package tex
  :defer t
  :ensure auctex
  :config
  (progn
    (setq TeX-auto-save t)
    (setq latex-run-command "pdflatex")
    (setenv "PATH" (concat (getenv "PATH") ":/Library/TeX/texbin/"))
    (setq exec-path (append exec-path '("/Library/TeX/texbin/")))
    )
  )
;; Use pdf-tools to open PDF files
(use-package pdf-tools
  :load-path "site-lisp/pdf-tools/lisp"
  :magic ("%PDF" . pdf-view-mode)
  :config
  (pdf-tools-install :no-query)
  :init
  (add-hook 'TeX-after-compilation-finished-functions
	    #'TeX-revert-document-buffer)
  (setq pdf-info-epdfinfo-program "/usr/local/bin/epdfinfo")
  (setq TeX-view-program-selection '((output-pdf "PDF Tools")))
;;  (add-to-list 'auto-mode-alist '("\\.pdf\\'" . pdf-view-mode))
  )


;; (use-package pdf-tools
;;   :ensure nil
;;   :pin melpa
;;   :config
;;   (custom-set-variables
;;     '(pdf-tools-handle-upgrades nil)) ; Use brew upgrade pdf-tools instead.
;;   (setq pdf-info-epdfinfo-program "/usr/local/bin/epdfinfo"))
;; ;;-----------------------
;; ;; Use pdf-tools to open PDF files
;; (setq TeX-view-program-selection '((output-pdf "PDF Tools"))
;;       TeX-source-correlate-start-server t)
;;(add-to-list 'auto-mode-alist '("\\.pdf\\'" . pdf-view-mode))
;; ;; Update PDF buffers after successful LaTeX runs
;; (add-hook 'TeX-after-compilation-finished-functions
;; 	  #'TeX-revert-document-buffer)
;;----------------------
;; flycheck
(use-package flycheck
  :ensure t
  :init (global-flycheck-mode))
;; expand region
(use-package expand-region
  :ensure t
  :bind
  ("C-=" . er/expand-region)
  ("C--" . er/contract-region))
;; org-bullets
(use-package org-bullets
  :ensure t
  :init
  (setq org-support-shift-select t))
;;  :hook
;;  (org-mode . org-bullets-mode))
;;------pomodoro
(use-package org-pomodoro
  :ensure t
  :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"))
(add-hook 'org-mode-hook
	  (lambda()
	    ;; dictionary
	    (org-bullets-mode 1)
	    (ispell-change-dictionary "en")
	    (setq org-image-actual-width nil)
	    (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.5))
	    (setq org-latex-create-formula-image-program 'imagemagick)
	    (setq org-startup-indented t) ; Enable `org-indent-mode' by default
	    (visual-line-mode 1)
	    ))
;; Company-mode
(use-package company
  :ensure t
  :init
  (add-hook 'after-init-hook 'global-company-mode))
;; ispell
(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")
;; Set default font:
(add-to-list 'default-frame-alist
	     '(font . "Source Code Pro-20"))
;; Activation org-agenda and capture
(global-set-key (kbd "C-c l") 'org-store-link)
(global-set-key (kbd "C-c a") 'org-agenda)
(global-set-key (kbd "C-c c") 'org-capture)
;;++++++++++
;; sentence one space  definition 
(setq sentence-end-double-space nil)
;;---------
;; Todo states for ORG:
(setq org-todo-keywords
          (quote
           ((sequence "TODO(t)" "PROGRESS(g)" "PAUSE(p)" "CHECK(k)" "|" "DONE(d)" "CANCELED(c)"))))
(setq org-todo-keyword-faces
          '(("PROGRESS" . "orange") ("PAUSE" . "magenta") ("CHECK" . "purple") ("CANCELED" . "red") ("DONE" . "green")))
;; capture:
    (setq org-capture-templates
      (quote (
              ("a"         ; hotkey
               "Academia Todo" ; name
               entry       ; type
               (file+headline "/Users/gmarx/beorg/academia.org" "Tasks") ;target
               "* TODO [#B] %^{Task}" ; template
               )
              ("t"
               "Task PhD"
               entry
               (file+datetree "~/beorg/phd.org")
               "* TODO [#A] %^{Task}")
              ("d"
               "Students"
               item
               (file+datetree "~/beorg/students.org")
               "- %U - %^{Activity}")
              ("r"
               "to Read"
               entry
               (file+headline "~/beorg/inbox.org" "to read")
               "* TODO %^{topic to read}\n%^{Why to read this?}"
               )
              ("s"
               "Schedule an event"
               entry
               (file+headline "~/beorg/inbox.org" "Scheduled events")
               "* %^{Event}\nSCHEDULED: %^t"
               )
              ("k"
               "Task inbox"
               entry
               (file+headline "~/beorg/inbox.org" "Tasks")
               "* TODO %^{Task} -> %^{move to}"
               )
              ("c"
               "Cheat-Sheet"
               entry
               (file+headline "~/beorg/cheatsheets.org" "Notes")
               "* %^{what solves}\n%^{the commands are}"
               )
              )))
;;-------end capture
;;=======
;;python
(use-package virtualenvwrapper
  :ensure t
  :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
  :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)
  )
  
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(custom-safe-themes
   (quote
    ("bf387180109d222aee6bb089db48ed38403a1e330c9ec69fe1f52460a8936b66" default)))
 '(package-selected-packages
   (quote
    (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
    ((set-fill-column . 5000)
     (set-fill-column . 2000)
     (TeX-auto-save . t)
     (TeX-parse-self . t)
     (org-attach-directory . "students/")
     (org-attach-use-inheritance . t)
     (org-attach-preferred-new-method . ask))))
 '(send-mail-function (quote smtpmail-send-it)))

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(org-document-title ((t (\,@headline (\,@ variable-tuple) :height 1.5 :underline nil))))
 '(org-level-1 ((t (\,@headline (\,@ variable-tuple) :height 1.25))))
 '(org-level-2 ((t (\,@headline (\,@ variable-tuple) :height 1.15))))
 '(org-level-3 ((t (\,@headline (\,@ variable-tuple) :height 1.12))))
 '(org-level-4 ((t (\,@headline (\,@ variable-tuple) :height 1.1))))
 '(org-level-5 ((t (\,@headline (\,@ variable-tuple)))))
 '(org-level-6 ((t (\,@headline (\,@ variable-tuple)))))
 '(org-level-7 ((t (\,@headline (\,@ variable-tuple)))))
 '(org-level-8 ((t (\,@headline (\,@ variable-tuple))))))