Add org-agenda-reschedule-by-days command

2 files changed, 7 insertions, 0 deletions

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