Function: org-agenda-goto-date

org-agenda-goto-date is an interactive and byte-compiled function defined in org-agenda.el.gz.

Signature

(org-agenda-goto-date DATE)

Documentation

Jump to DATE in the agenda buffer.

When called interactively, prompt for the date. When called from Lisp, DATE should be a date as returned by org-read-date.

See also:
 org-agenda-earlier (M-x org-agenda-earlier (org-agenda-earlier))
 org-agenda-later (M-x org-agenda-later (org-agenda-later))
 org-agenda-goto-today (M-x org-agenda-goto-today (org-agenda-goto-today))

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
(defun org-agenda-goto-date (date)
  "Jump to DATE in the agenda buffer.

When called interactively, prompt for the date.
When called from Lisp, DATE should be a date as returned by
`org-read-date'.

See also:
 `org-agenda-earlier'    (\\[org-agenda-earlier])
 `org-agenda-later'      (\\[org-agenda-later])
 `org-agenda-goto-today' (\\[org-agenda-goto-today])"
  (interactive
   (list
    (let ((org-read-date-prefer-future org-agenda-jump-prefer-future))
      (org-read-date))))
  (org-agenda-check-type t 'agenda)
  (let* ((day (time-to-days (org-time-string-to-time date)))
         (org-agenda-sticky-orig org-agenda-sticky)
         (org-agenda-buffer-tmp-name (buffer-name))
         (args (get-text-property (min (1- (point-max)) (point))
                                  'org-last-args))
         (0-arg (or current-prefix-arg (car args)))
         (2-arg (nth 2 args))
         (with-hour-p (nth 4 org-agenda-redo-command))
         (newcmd (list 'org-agenda-list 0-arg date
                       (org-agenda-span-to-ndays
                        2-arg (org-time-string-to-absolute date))
                       with-hour-p))
         (newargs (cdr newcmd))
         (inhibit-read-only t)
         org-agenda-sticky)
    (add-text-properties (point-min) (point-max)
                         `(org-redo-cmd ,newcmd org-last-args ,newargs))
    (org-agenda-redo)
    (goto-char (point-min))
    (while (not (or (= (or (get-text-property (point) 'day) 0) day)
                    (save-excursion (move-beginning-of-line 2) (eobp))))
      (move-beginning-of-line 2))
    (setq org-agenda-sticky org-agenda-sticky-orig
          org-agenda-this-buffer-is-sticky org-agenda-sticky)))