    '(("t" "Todo" entry (file+headline "~/stuff/active/agenda.org" "INBOX")
       "* TODO %?\nSCHEDULED: %t" :prepend t)))
   :config
-  (defun ar/org-capture-schedule-earlier ()
-  (interactive)
-  (org-schedule (point) (time-add
-                         (org-get-scheduled-time (point))
-                         -86400))) ;; day in seconds
-
-  (defun ar/org-capture-schedule-later ()
-    (interactive)
-    (org-schedule (point) (time-add
-                           (org-get-scheduled-time (point))
-                           86400))) ;; day in seconds
-
-  (defun ar/org-capture--at-priority-pos-p ()
+  (defun ar/org-capture-schedule-day-earlier-dwim ()
+    (interactive)
+    (if (ar/org-capture--special-pos-p)
+        (org-schedule (point) (time-add
+                               (org-get-scheduled-time (point))
+                               -86400))  ;; day in seconds
+      (org-metaleft)))
+
+  (defun ar/org-capture-schedule-day-later-dwim ()
+    (interactive)
+    (if (ar/org-capture--special-pos-p)
+        (org-schedule (point) (time-add
+                               (org-get-scheduled-time (point))
+                               86400))  ;; day in seconds
+      (org-metaright)))
+
+  (defun ar/org-capture--special-pos-p ()
     "Either at beginning of line or next to TODO [#A]."
     (or (looking-back "^")
         (looking-back "TODO\\s-*\\(\\[#[A-Z]\\]\\s-*\\)*")))

  (defun ar/org-capture-priority-up-dwim (N)
    "If at special location, increase priority."
    (interactive "p")
    (if (ar/org-capture--at-priority-pos-p)
        (org-priority 'up)
      (org-self-insert-command N)))

  (defun ar/org-capture-priority-down-dwim (N)
    "If at special location, decrease priority."
    (interactive "p")
    (if (ar/org-capture--at-priority-pos-p)
        (org-priority 'down)
      (org-self-insert-command N)))


         :map org-capture-mode-map
         ("+" . ar/org-capture-priority-up-dwim)
         ("-" . ar/org-capture-priority-down-dwim)
         ("M-<right>" . ar/org-capture-schedule-day-later-dwim)
         ("M-<left>"  . ar/org-capture-schedule-day-earlier-dwim))
  :commands (ar/org-capture-todo
             org-capture)
  :custom
