From 19cc41a822c7bb8632a9d823714a6d5c2ca3a93d Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 11 Apr 2017 23:01:16 -0400 Subject: Add org-agenda-reschedule-by-days command --- init.el | 1 + lisp/km-org-agenda.el | 6 ++++++ 2 files changed, 7 insertions(+) diff --git a/init.el b/init.el index fa20541..16c9f80 100644 --- a/init.el +++ b/init.el @@ -279,6 +279,7 @@ ("C-j" . org-agenda-goto-date) ("a" . org-agenda) ("d" . org-agenda-view-mode-dispatch) + ("i" . km/org-agenda-reschedule-by-days) ("k" . nil) ("v" . org-agenda-capture))) diff --git a/lisp/km-org-agenda.el b/lisp/km-org-agenda.el index 553db51..8ece0d8 100644 --- a/lisp/km-org-agenda.el +++ b/lisp/km-org-agenda.el @@ -110,5 +110,11 @@ A target is determined by `km/org-refile-dwim-target-file'." org-refile-targets))) (call-interactively #'org-agenda-refile))) +(defun km/org-agenda-reschedule-by-days () + (interactive) + (org-agenda-schedule + nil + (concat "+" (read-string "Days from now: ") "d"))) + (provide 'km-org-agenda) ;;; km-org-agenda.el ends here -- cgit v1.2.3