From 7724b7a495bd430f9465ae7557ea46ebfeb73937 Mon Sep 17 00:00:00 2001 From: Thomas von Dein Date: Fri, 23 Nov 2018 15:24:58 +0100 Subject: [PATCH] added scheduling to agenda --- .emacs | 30 +++++++++++++++++++++--------- 1 file changed, 21 insertions(+), 9 deletions(-) diff --git a/.emacs b/.emacs index bf5f6d5..c21bde8 100644 --- a/.emacs +++ b/.emacs @@ -1,4 +1,4 @@ -;; Toms Emacs Config - portable - version ("20181122.01") -*-emacs-lisp-*- +;; Toms Emacs Config - portable - version ("20181123.01") -*-emacs-lisp-*- ;; * Introduction ;; This is my emacs config, it is more than twenty years old. It @@ -719,6 +719,11 @@ ;; 20181122.01 ;; - + new agenda o function +;; 20181123.01 +;; - added support for scheduled agenda entries and fixed tvd-replace-all +;; - c-down in agenda fixed +;; - fixed 'n' agenda command, file to correct item + ;; ** TODO ;; - check helpful https://github.com/wilfred/helpful @@ -746,7 +751,7 @@ ;; My emacs config has a version (consisting of a timestamp with a ;; serial), which I display in the mode line. So I can clearly see, if ;; I'm using an outdated config somewhere. -(defvar tvd-emacs-version "20181122.01") +(defvar tvd-emacs-version "20181123.01") ;; -------------------------------------------------------------------------------- @@ -2000,11 +2005,11 @@ col1, col2" (string-equal (substring s 0 (length begins)) begins)) (t nil))) -(defun tvd-replace-all (regex replace) +(defun tvd-replace-all (regex replace) "Replace all matches of REGEX with REPLACE in current buffer." (interactive) (goto-char (point-min)) - (while (re-search-forward regex (end-of-line) t) + (while (re-search-forward regex nil t) (replace-match replace))) ;; * Modes @@ -3759,7 +3764,7 @@ down and unfold it, otherwise jump paragraph as usual." "* TODO %^{title}\n%u\n** Kostenstelle\n** Contact Peer\n** Contact Customer\n** Aufträge\n** Daten\n** Notizen\n %i%?\n" :prepend t :jump-to-captured t) - ("t" "Todo Item" entry (file+headline tvd-org-file "Heute") + ("t" "Todo Item" entry (file+headline tvd-org-file "Manual-Agenda-Tasks") "* TODO %^{title}\n:LOGBOOK:\n%u:END:\n" :prepend t :immediate-finish t) ("j" "Journal" entry (file+headline tvd-org-file "Kurznotizen") @@ -3835,11 +3840,18 @@ down and unfold it, otherwise jump paragraph as usual." ;; (setq org-agenda-custom-commands '(("o" "Daily TODO Tasks" - ((tags "CATEGORY=\"WORK\"" + ( + ;; a block containing only items scheduled for today, if any + (agenda "" + ((org-agenda-span 1) + (org-agenda-overriding-header "Tasks scheduled:"))) + ;; manually created todo items due (state TODO) + (tags "CATEGORY=\"WORK\"" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("CANCEL" "START" "DONE" "WAIT"))) - (org-agenda-overriding-header "Tasks to do today:") + (org-agenda-overriding-header "\nTasks to do today:") (org-agenda-follow-mode t) (org-agenda-entry-text-mode t))) + ;; manually created todo items in wait state (tags "CATEGORY=\"WORK\"" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("CANCEL" "START" "DONE" "TODO"))) (org-agenda-overriding-header "\nTasks Waiting:")))) @@ -3957,8 +3969,8 @@ _a_: add a note to the entry _B_: bulk action (local-set-key (kbd "f") 'org-agenda-follow-mode) (local-set-key (kbd "e") 'org-agenda-entry-text-mode) (local-set-key (kbd "z") 'org-agenda-archive-to-archive-sibling) - (local-set-key (kbd "C-") 'org-agenda-previous-line) - (local-set-key (kbd "C-") 'org-agenda-next-line) + (local-set-key (kbd "C-") 'org-agenda-previous-item) + (local-set-key (kbd "C-") 'org-agenda-next-item) (local-set-key (kbd "?") 'hydra-org-agenda/body)))) ;; -------------------------------------------------------------------------------- ;; *** org table mode