scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2025-12-17 04:20:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

added scheduling to agenda

Browse Source
This commit is contained in:
Thomas von Dein
2018-11-23 15:24:58 +01:00
parent 87598ee121
commit 7724b7a495
1 changed files with 21 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
.emacs
View File

@@ -1,4 +1,4 @@
;; Toms Emacs Config - portable - version ("20181122.01") -*-emacs-lisp-*- ;; Toms Emacs Config - portable - version ("20181123.01") -*-emacs-lisp-*-
;; * Introduction ;; * Introduction
;; This is my emacs config, it is more than twenty years old. It ;; This is my emacs config, it is more than twenty years old. It
@@ -719,6 +719,11 @@
;; 20181122.01 ;; 20181122.01
;; - + new agenda o function ;; - + 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 ;; ** TODO
;; - check helpful https://github.com/wilfred/helpful ;; - check helpful https://github.com/wilfred/helpful
@@ -746,7 +751,7 @@
;; My emacs config has a version (consisting of a timestamp with a ;; 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 ;; serial), which I display in the mode line. So I can clearly see, if
;; I'm using an outdated config somewhere. ;; I'm using an outdated config somewhere.
(defvar tvd-emacs-version "20181122.01") (defvar tvd-emacs-version "20181123.01")
;; -------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------
@@ -2004,7 +2009,7 @@ col1, col2"
"Replace all matches of REGEX with REPLACE in current buffer." "Replace all matches of REGEX with REPLACE in current buffer."
(interactive) (interactive)
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward regex (end-of-line) t) (while (re-search-forward regex nil t)
(replace-match replace))) (replace-match replace)))
;; * Modes ;; * 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" "* 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) :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) "* TODO %^{title}\n:LOGBOOK:\n%u:END:\n" :prepend t :immediate-finish t)
("j" "Journal" entry (file+headline tvd-org-file "Kurznotizen") ("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 (setq org-agenda-custom-commands
'(("o" "Daily TODO Tasks" '(("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-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-follow-mode t)
(org-agenda-entry-text-mode t))) (org-agenda-entry-text-mode t)))
;; manually created todo items in wait state
(tags "CATEGORY=\"WORK\"" (tags "CATEGORY=\"WORK\""
((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("CANCEL" "START" "DONE" "TODO"))) ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("CANCEL" "START" "DONE" "TODO")))
(org-agenda-overriding-header "\nTasks Waiting:")))) (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 "f") 'org-agenda-follow-mode)
(local-set-key (kbd "e") 'org-agenda-entry-text-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 "z") 'org-agenda-archive-to-archive-sibling)
(local-set-key (kbd "C-<up>") 'org-agenda-previous-line) (local-set-key (kbd "C-<up>") 'org-agenda-previous-item)
(local-set-key (kbd "C-<down>") 'org-agenda-next-line) (local-set-key (kbd "C-<down>") 'org-agenda-next-item)
(local-set-key (kbd "?") 'hydra-org-agenda/body)))) (local-set-key (kbd "?") 'hydra-org-agenda/body))))
;; -------------------------------------------------------------------------------- ;; --------------------------------------------------------------------------------
;; *** org table mode ;; *** org table mode