diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 89 |
1 files changed, 67 insertions, 22 deletions
diff --git a/init.el b/init.el index efcf846..d3ad238 100644 --- a/init.el +++ b/init.el | |||
@@ -87,7 +87,7 @@ | |||
87 | (:also-load acdw-compat | 87 | (:also-load acdw-compat |
88 | acdw-lisp | 88 | acdw-lisp |
89 | acdw-reading) | 89 | acdw-reading) |
90 | (acdw/require-private) | 90 | (require 'acdw-private (acdw/sync-dir "private.el") :noerror) |
91 | 91 | ||
92 | (:option user-full-name "Case Duckworth" | 92 | (:option user-full-name "Case Duckworth" |
93 | user-mail-address (rot13-string "npqj@npqj.arg")) | 93 | user-mail-address (rot13-string "npqj@npqj.arg")) |
@@ -579,13 +579,21 @@ specific to most general, they are these: | |||
579 | - `flymake-inhibit-major-modes': a list of major-modes in which | 579 | - `flymake-inhibit-major-modes': a list of major-modes in which |
580 | to inhibit `flymake-mode'. Really only useful if you want to | 580 | to inhibit `flymake-mode'. Really only useful if you want to |
581 | generally add `flymake-mode' to `prog-mode-hook'." | 581 | generally add `flymake-mode' to `prog-mode-hook'." |
582 | (unless (or (bound-and-true-p flymake-inhibit) ; file-local variable | 582 | ;; The name of this hook tells you pretty much everything you need to know |
583 | (list-string-match-p (buffer-name) | 583 | ;; for this little thing right here. |
584 | flymake-inhibit-buffer-name-regexps) | 584 | (add-hook 'hack-local-variables-hook |
585 | (list-string-match-p (buffer-file-name) | 585 | (defun flymake-unless@hack-local-variables () |
586 | flymake-inhibit-file-name-regexps) | 586 | (unless (or (cdr (assoc 'flymake-inhibit |
587 | (apply #'derived-mode-p flymake-inhibit-major-modes)) | 587 | file-local-variables-alist)) |
588 | (flymake-mode-on))) | 588 | (list-string-match-p |
589 | (buffer-name) | ||
590 | flymake-inhibit-buffer-name-regexps) | ||
591 | (list-string-match-p | ||
592 | (buffer-file-name) | ||
593 | flymake-inhibit-file-name-regexps) | ||
594 | (apply #'derived-mode-p | ||
595 | flymake-inhibit-major-modes)) | ||
596 | (flymake-mode-on))))) | ||
589 | 597 | ||
590 | (add-hook 'prog-mode-hook #'flymake-unless) | 598 | (add-hook 'prog-mode-hook #'flymake-unless) |
591 | 599 | ||
@@ -714,20 +722,57 @@ specific to most general, they are these: | |||
714 | 722 | ||
715 | (setup mu4e | 723 | (setup mu4e |
716 | (:load-from "/usr/share/emacs/site-lisp/mu4e") | 724 | (:load-from "/usr/share/emacs/site-lisp/mu4e") |
717 | (:option mu4e-change-filenames-when-moving t | 725 | (:autoload (mu4e :interactive t) |
718 | mu4e-update-interval (* 10 60) | 726 | make-mu4e-context) |
727 | (:option message-kill-buffer-on-exit t | ||
728 | message-send-mail-function #'smtpmail-send-it | ||
729 | mu4e-change-filenames-when-moving t | ||
730 | mu4e-contexts | ||
731 | (list | ||
732 | ;; Work | ||
733 | (make-mu4e-context | ||
734 | :name "Work" | ||
735 | :match-func (lambda (msg) | ||
736 | (when msg | ||
737 | (string-prefix-p | ||
738 | work-mail-dir | ||
739 | (mu4e-message-field msg :maildir)))) | ||
740 | :vars `((user-mail-address . ,work-email) | ||
741 | (smtpmail-smtp-server . ,work-smtp-server) | ||
742 | (mu4e-compose-format-flowed . nil) | ||
743 | (mu4e-drafts-folder | ||
744 | . ,(concat work-mail-dir "/[Gmail]/Drafts")) | ||
745 | (mu4e-sent-folder | ||
746 | . ,(concat work-mail-dir "/[Gmail]/Sent Mail")) | ||
747 | (mu4e-refile-dir | ||
748 | . ,(concat work-mail-dir "/[Gmail]/All Mail")) | ||
749 | (mu4e-trash-folder | ||
750 | . ,(concat work-mail-dir "/[Gmail]/Trash")))) | ||
751 | ;; Home | ||
752 | (make-mu4e-context | ||
753 | :name "Home" | ||
754 | :match-func (lambda (msg) | ||
755 | (when msg | ||
756 | (string-prefix-p | ||
757 | home-mail-dir | ||
758 | (mu4e-message-field msg :maildir)))) | ||
759 | :vars `((user-mail-address . ,home-email) | ||
760 | (smtpmail-smtp-server . ,home-smtp-server) | ||
761 | (mu4e-compose-format-flowed . nil) | ||
762 | (mu4e-drafts-folder | ||
763 | . ,(concat home-mail-dir "/Drafts")) | ||
764 | (mu4e-sent-folder | ||
765 | . ,(concat home-mail-dir "/Sent")) | ||
766 | (mu4e-refile-folder | ||
767 | . ,(concat home-mail-dir "/Archive")) | ||
768 | (mu4e-trash-folder | ||
769 | . ,(concat home-mail-dir "/Trash"))))) | ||
719 | mu4e-get-mail-command "mbsync -a" | 770 | mu4e-get-mail-command "mbsync -a" |
720 | mu4e-maildir "~/mail/clickhere") | 771 | mu4e-maildir "~/mail" |
721 | (:option mu4e-drafts-folder "/[Gmail]/Drafts" | 772 | mu4e-update-interval (* 10 60) |
722 | mu4e-sent-folder "/[Gmail]/Sent Mail" | 773 | send-mail-function #'smtpmail-send-it |
723 | mu4e-refile-folder "/[Gmail]/All Mail" | 774 | smtpmail-smtp-service 465 |
724 | mu4e-trash-folder "/[Gmail]/Trash" | 775 | smtpmail-stream-type 'ssl)) |
725 | mu4e-maildir-shortcuts | ||
726 | `((:maildir "/Inbox" :key ?i) | ||
727 | (:maildir ,mu4e-drafts-folder :key ?d) | ||
728 | (:maildir ,mu4e-sent-folder :key ?s) | ||
729 | (:maildir ,mu4e-refile-folder :key ?a) | ||
730 | (:maildir ,mu4e-trash-folder :key ?t)))) | ||
731 | 776 | ||
732 | (setup page | 777 | (setup page |
733 | (:option page-delimiter | 778 | (:option page-delimiter |
@@ -2437,7 +2482,7 @@ the default is \"/\"." | |||
2437 | (list | 2482 | (list |
2438 | (propertize " " | 2483 | (propertize " " |
2439 | 'display | 2484 | 'display |
2440 | '((space | 2485 | `((space |
2441 | :align-to | 2486 | :align-to |
2442 | ,(unless | 2487 | ,(unless |
2443 | (bound-and-true-p visual-fill-column-mode) | 2488 | (bound-and-true-p visual-fill-column-mode) |