From 408f63f40931ba0bb457772accabc64f87501fdd Mon Sep 17 00:00:00 2001 From: Gerardo Marx Date: Wed, 23 Sep 2020 10:44:47 -0500 Subject: [PATCH] commenting mu4e, ace-jump and ace-window; needs clean vars** --- .emacs | 341 ++++++++++++++++++++++++++++++++++----------------------- 1 file changed, 206 insertions(+), 135 deletions(-) diff --git a/.emacs b/.emacs index d85b75a..24c870a 100644 --- a/.emacs +++ b/.emacs @@ -2,7 +2,8 @@ ;;-------- ;; Melpa repository: (require 'package) -(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) +(add-to-list 'package-archives + '("melpa" . "https://melpa.org/packages/")t) (package-initialize) ;; use-package (unless (package-installed-p 'use-package) @@ -310,143 +311,42 @@ :ensure t :config (pyvenv-mode 1)) -;;ess: -;(use-package ess -; :ensure t) -;(require 'ess-site) - - +;; org-configuration: +(org-babel-do-load-languages + 'org-babel-load-languages + '((python . t))) - -;;-=-=-=-=-=-=- -;; 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 +;;ess: +(use-package ess :ensure t - :init - (mu4e-maildirs-extension) - :custom - (mu4e-maildirs-extension-custom-list '("/Gmail/INBOX" "/Exchange/INBOX" "/Hotmail/INBOX")) - ) + :init (require 'ess-site)) -;; mu4e-alert -(use-package mu4e-alert +;; markdown: +(use-package markdown-mode :ensure t - :after mu4e + :commands (markdown-mode gfm-mode) + :mode (("README\\.md\\'" . gfm-mode) + ("\\.md\\'" . markdown-mode) + ("\\.markdown\\'" . markdown-mode)) :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) + (setq markdown-command "multimarkdown") + (add-hook 'markdown-mode-hook + (lambda() + (ispell-change-dictionary "en") + (flyspell-mode 1))) + (setq markdown-css-paths '( + "./assets/stylesheets/style.css" + "./assets/stylesheets/pilcrow.css" + "./assets/stylesheets/hljs-github.min.css" + )) ) -;;agenda files -;;(setq org-agenda-files '("~/beorg/phd.org" "~/beorg/students.org" "~/beorg/inbox.org" "~/beorg/academia.org")) -(setq recentf-exclude (org-agenda-files)) - +;;criticMarkup +(use-package cm-mode + :ensure t) + +;;org-trello +(require 'org-trello) (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. @@ -455,17 +355,23 @@ '(LaTeX-command "latex -synctex=1") '(custom-safe-themes (quote - ("2f1518e906a8b60fac943d02ad415f1d8b3933a5a7f75e307e6e9a26ef5bf570" "71e5acf6053215f553036482f3340a5445aee364fb2e292c70d9175fb0cc8af7" "99ea831ca79a916f1bd789de366b639d09811501e8c092c85b2cb7d697777f93" "bf387180109d222aee6bb089db48ed38403a1e330c9ec69fe1f52460a8936b66" default))) + ("7a994c16aa550678846e82edc8c9d6a7d39cc6564baaaacc305a3fdc0bd8725f" "5b809c3eae60da2af8a8cfba4e9e04b4d608cb49584cb5998f6e4a1c87c057c4" "d74c5485d42ca4b7f3092e50db687600d0e16006d8fa335c69cf4f379dbd0eee" "2f1518e906a8b60fac943d02ad415f1d8b3933a5a7f75e307e6e9a26ef5bf570" "71e5acf6053215f553036482f3340a5445aee364fb2e292c70d9175fb0cc8af7" "99ea831ca79a916f1bd789de366b639d09811501e8c092c85b2cb7d697777f93" "bf387180109d222aee6bb089db48ed38403a1e330c9ec69fe1f52460a8936b66" default))) + '(markdown-command "/usr/local/bin/pandoc" t) '(org-agenda-files (quote - ("~/beorg/inbox.org" "~/beorg/academia.org" "~/beorg/water-quality.org" "~/beorg/phd.org" "~/lwc/projects/dynamicSystems/dynamic-systems.org"))) + ("~/lwc/projects/dynamicSystems/trello-jason.org" "~/beorg/inbox.org" "~/beorg/academia.org" "~/beorg/water-quality.org" "~/beorg/phd.org" "~/lwc/projects/dynamicSystems/dynamic-systems.org"))) + '(org-trello-current-prefix-keybinding "C-c o" nil (org-trello)) + '(org-trello-files (quote ("~/beorg/trello-org.org")) nil (org-trello)) '(package-selected-packages (quote - (pyvenv ess ace-mc ox-twbs org-alert 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))) + (ace-jump cm-mode org-trello markdown-mode pyvenv ess ace-mc ox-twbs org-alert 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 - ((fill-column . 5000:) + ((markdown-css-paths . "./assets/stylesheets/main.css") + (markdown-css-path . "./assets/stylesheets/main.css") + (column-width . 5000) + (fill-column . 5000:) (ispell-local-dictionary . castellano) (ispell-local-directory . castellano) (LaTeX-includegraphics-read-file . LaTeX-includegraphics-read-file-relative) @@ -478,6 +384,171 @@ (org-attach-preferred-new-method . ask)))) '(send-mail-function (quote smtpmail-send-it))) + + +;; org-trello: +(use-package org-trello + :ensure t) + +;; ace-window +(use-package ace-window + :ensure t + :bind + ("M-o" . 'ace-window) + :config + (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l))) + +;; ace-jump +(use-package ace-jump-mode + :ensure t + :bind + ("C-c SPC" . 'ace-jump-mode) + ("C-c C-j l" . 'ace-jump-line-mode) + ("C-c C-j c" . 'ace-jump-char-mode)) +;;-0-0-0-0-0-0-0 +;; my functions: + +;; show in finder +(defun show-in-finder () + (interactive) + (shell-command (concat "open -R " buffer-file-name))) + +(global-set-key (kbd "C-x x f") 'show-in-finder) +;; + +;;-=-=-=-=-=-=- +;; 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) +;; ) + + +;;=-=-=-=-=-=-=-=-=-=-=-= +;;agenda files +;;(setq org-agenda-files '("~/beorg/phd.org" "~/beorg/students.org" "~/beorg/inbox.org" "~/beorg/academia.org")) +(setq recentf-exclude (org-agenda-files)) + + + (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful.