From 8520e18ad256ae8e7a7ee1716fddc566b39a1a6b Mon Sep 17 00:00:00 2001 From: Azat Bahawi Date: Mon, 20 Mar 2023 13:57:57 +0300 Subject: 2023-03-20 --- modules/common/emacs/doom/config.el | 60 +++++++++++++++++-------------------- 1 file changed, 27 insertions(+), 33 deletions(-) (limited to 'modules/common/emacs/doom') diff --git a/modules/common/emacs/doom/config.el b/modules/common/emacs/doom/config.el index 4863792..589b993 100644 --- a/modules/common/emacs/doom/config.el +++ b/modules/common/emacs/doom/config.el @@ -32,29 +32,27 @@ ;;; Org ;; -(setq org-directory "~/doc/org/") -(after! org - (setq org-todo-keywords '((sequence - "PROJ(p)" ; A master task. - "TODO(t)" ; A task that needs to be done with statues: - "STRT(s@)" ; - In progress. - "HOLD(l@/!)" ; - Paused because of me. - "WAIT(w@/!)" ; - Paused because of not me. - "|" - "DONE(d@/!)" ; Complete state. - "KILL(k@/!)")) ; Incomplete state. - org-todo-keyword-faces '(("PROJ" . +org-todo-project) - ("TODO" . +org-todo-active) - ("STRT" . +org-todo-active) - ("HOLD" . +org-todo-onhold) - ("WAIT" . +org-todo-onhold) - ("DONE" . +org-todo-cancel) - ("KILL" . +org-todo-cancel)))) +(setq org-directory "~/doc/org/" + org-todo-keywords '((sequence + "PROJ(p)" ; A master task. + "TODO(t)" ; A task that needs to be done with statues: + "STRT(s@)" ; - In progress. + "HOLD(l@/!)" ; - Paused because of me. + "WAIT(w@/!)" ; - Paused because of not me. + "|" + "DONE(d@/!)" ; Complete state. + "KILL(k@/!)")) ; Incomplete state. + org-todo-keyword-faces '(("PROJ" . +org-todo-project) + ("TODO" . +org-todo-active) + ("STRT" . +org-todo-active) + ("HOLD" . +org-todo-onhold) + ("WAIT" . +org-todo-onhold) + ("DONE" . +org-todo-cancel) + ("KILL" . +org-todo-cancel))) (add-hook! 'org-mode-hook 'auto-fill-mode) -(add-hook! 'org-mode-hook (lambda (&rest _) - (setq fill-column 80))) +(setq-hook! 'org-mode-hook fill-column 80) (setq org-roam-directory "~/doc/roam/" org-roam-db-location (concat org-roam-directory ".db")) @@ -72,7 +70,7 @@ ;;; Elisp ;; -(setq-default flycheck-disabled-checkers '(emacs-lisp-checkdoc)) +(pushnew! flycheck-disabled-checkers 'emacs-lisp-checkdoc) ;; ;;; Haskell @@ -96,7 +94,7 @@ ;; (add-hook! 'yaml-mode-hook - (defun +disable-flycheck-for-yaml-helm-templates () + (defun nixfiles/disable-flycheck-for-helm-templates-h () (when (and buffer-file-name (string-match-p "/templates/" buffer-file-name) (or (string-suffix-p ".yaml" buffer-file-name) @@ -121,17 +119,13 @@ ;;; mu4e ;; -(setq mu4e-root-maildir "~/mail" - mu4e-context-policy 'ask-if-none - mu4e-compose-context-policy 'always-ask - mu4e-update-interval 60 - sendmail-program (executable-find "msmtp") - send-mail-function #'message-send-mail-with-sendmail - message-send-mail-function #'message-send-mail-with-sendmail - message-sendmail-envelope-from 'header - message-sendmail-extra-arguments '("--read-envelope-from") - message-sendmail-f-is-evil t - message-kill-buffer-on-exit t) +(setq-hook! 'mu4e-main-mode-hook mu4e-update-interval 60) + +(setq-hook! 'mu4e-compose-mode-hook sendmail-program (executable-find "msmtp") + send-mail-function #'sendmail-send-it + message-send-mail-function #'message-send-mail-with-sendmail + message-sendmail-extra-arguments '("--read-envelope-from") + message-sendmail-f-is-evil t) ;; ;;; Circe -- cgit v1.2.3