From 82cd521a3410f93ea52b063c7f05b60ea17b8ce6 Mon Sep 17 00:00:00 2001 From: Miquel Sabaté Solà Date: Wed, 11 Jan 2017 17:48:59 +0100 Subject: emacs: some fixes on mu and org MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Miquel Sabaté Solà --- emacs/settings/init-org.el | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) (limited to 'emacs/settings/init-org.el') diff --git a/emacs/settings/init-org.el b/emacs/settings/init-org.el index cf6fce4..16cb0ec 100644 --- a/emacs/settings/init-org.el +++ b/emacs/settings/init-org.el @@ -68,6 +68,8 @@ the entire subtree. Idea taken from @aaronbieber" ;(global-set-key "\C-ca" 'org-agenda) ;(global-set-key "\C-cb" 'org-iswitchb) +(setq org-src-fontify-natively t) + (setq org-todo-keywords '((sequence "TODO(t)" "|" "DONE(d!)") (sequence "IDEA(i)" "WORKING(w)" "|" "USED(u@/!)" "DISCARDED(x@/!)"))) @@ -91,20 +93,21 @@ the entire subtree. Idea taken from @aaronbieber" (setq org-agenda-custom-commands '(("p" "Printed agenda" + ; Daily agenda with a 2-weeks deadline warning. Tasks are + ; represented as [ ] items. + ((agenda "" + ((org-agenda-ndays 1) + (org-deadline-warning-days 14) + (org-agenda-todo-keyword-format "[ ]") + (org-agenda-scheduled-leaders '("" "")))) + ; Display a "High Priority" list of tasks on top. - ((tags "PRIORITY=\"A\"" + (tags "PRIORITY=\"A\"" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) (org-agenda-sorting-strategy '(tag-up priority-down)) (org-agenda-todo-keyword-format "") - (org-agenda-overriding-header "High priority\n--------------\n"))) + (org-agenda-overriding-header "\nHigh priority\n--------------\n"))) - ; Daily agenda with a 2-weeks deadline warning. Tasks are - ; represented as [ ] items. - (agenda "" - ((org-agenda-ndays 1) - (org-deadline-warning-days 14) - (org-agenda-todo-keyword-format "[ ]") - (org-agenda-scheduled-leaders '("" "")))) ; All tasks except those already listed as high priority or ; ideas. Scheduled and deadlines are also ignored here. @@ -158,6 +161,7 @@ the entire subtree. Idea taken from @aaronbieber" ; The prefix for the different kinds of types being used. (setq org-agenda-prefix-format '((agenda . "%t%s") + (tags . "%c:%s") (todo . "%c:%t%s"))) (provide 'init-org) -- cgit v1.2.3