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

30
.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
;; 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-<up>") 'org-agenda-previous-line)
(local-set-key (kbd "C-<down>") 'org-agenda-next-line)
(local-set-key (kbd "C-<up>") 'org-agenda-previous-item)
(local-set-key (kbd "C-<down>") 'org-agenda-next-item)
(local-set-key (kbd "?") 'hydra-org-agenda/body))))
;; --------------------------------------------------------------------------------
;; *** org table mode