From 49f5687a76f51737b95b5c9fffc1f73f2e8da1e8 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 23 Jun 2023 21:43:43 +1000 Subject: minor changes to org and gnus --- emacs/.emacs.d/init/ycp-gnus.el | 3 ++- emacs/.emacs.d/init/ycp-org.el | 3 +++ emacs/.emacs.d/init/ycp-project.el | 4 +++- 3 files changed, 8 insertions(+), 2 deletions(-) (limited to 'emacs') diff --git a/emacs/.emacs.d/init/ycp-gnus.el b/emacs/.emacs.d/init/ycp-gnus.el index c2b64d5..bf8ffae 100644 --- a/emacs/.emacs.d/init/ycp-gnus.el +++ b/emacs/.emacs.d/init/ycp-gnus.el @@ -183,7 +183,8 @@ (my-package bbdb (:delay 5) (bbdb-initialize 'gnus 'message) - (bbdb-mua-auto-update-init 'gnus 'message) + ;; Too noisy + ;; (bbdb-mua-auto-update-init 'gnus 'message) (setq bbdb-mail-user-agent 'gnus-user-agent) (setq bbdb-update-records-p 'create) (require 'my-bbdb) diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el index 6dbc26e..75d36d7 100644 --- a/emacs/.emacs.d/init/ycp-org.el +++ b/emacs/.emacs.d/init/ycp-org.el @@ -41,6 +41,9 @@ (setq org-catch-invisible-edits 'show) (setq org-modules '(ol-bbdb ol-gnus ol-info)) (setq org-use-sub-superscripts '{}) + (setq org-todo-keywords + '((sequence "TODO(t!)" "DOIN(i!)" "WAIT(w!)" "|" + "DONE(d!)" "OBSO(o!)" "DUPL(u!)"))) (setq org-use-fast-todo-selection 'expert) (setq org-fontify-quote-and-verse-blocks t) (setq org-highlight-latex-and-related nil) ; other options affect elisp regexp diff --git a/emacs/.emacs.d/init/ycp-project.el b/emacs/.emacs.d/init/ycp-project.el index f6ea925..e5442bb 100644 --- a/emacs/.emacs.d/init/ycp-project.el +++ b/emacs/.emacs.d/init/ycp-project.el @@ -28,7 +28,7 @@ (my-package my-project - (:delay 15) + (:delay 30) (my-setq-from-local my-projects-root-dirs) (my-keybind global-map "\C-xpl" #'my-project-copy-license-file-to-project @@ -42,6 +42,8 @@ 'my-project-remember-all-projects) (delete '(project-eshell "Eshell") project-switch-commands) (add-to-list 'project-switch-commands '(project-shell "Shell")) + (define-key project-prefix-map "m" #'magit-project-status) + (add-to-list 'project-switch-commands '(magit-project-status "Magit") t) ) (provide 'ycp-project) -- cgit v1.2.3