From mboxrd@z Thu Jan  1 00:00:00 1970
From: Liam Healy <lnp@healy.washington.dc.us>
Subject: org-datetree-goto-date
Date: Sun, 5 May 2013 22:26:15 -0400
Message-ID: <CADe9tL7xL8Oci9k4BsiOs_sH3b2N4ormAojDwJ1smF8J3yZGLA@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:48636)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <liam@healy.washington.dc.us>) id 1UZB8Q-0005Iq-Ml
	for emacs-orgmode@gnu.org; Sun, 05 May 2013 22:26:39 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <liam@healy.washington.dc.us>) id 1UZB8P-0006o0-Nq
	for emacs-orgmode@gnu.org; Sun, 05 May 2013 22:26:38 -0400
Received: from mail-pd0-f171.google.com ([209.85.192.171]:49236)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <liam@healy.washington.dc.us>) id 1UZB8P-0006nq-Hm
	for emacs-orgmode@gnu.org; Sun, 05 May 2013 22:26:37 -0400
Received: by mail-pd0-f171.google.com with SMTP id r11so1761052pdi.2
	for <emacs-orgmode@gnu.org>; Sun, 05 May 2013 19:26:35 -0700 (PDT)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Org-mode mailing list <emacs-orgmode@gnu.org>

I wanted a function that would take me to a particular date in a
datetree and didn't find one, so I wrote my own and bound it to C-c d.

(defun org-datetree-goto-date (&optional siblings)
  "Go to and show the date in the date tree. With optional argument
SIBLINGS, on each level of the hierarchy all
siblings are shown. If no entry exists for the date, it will be created."
  (interactive "P")
  (let ((date (decode-time (org-read-date nil t))))
    (org-datetree-find-date-create (list (nth 4 date) (nth 3 date)
(nth 5 date))))
  (outline-show-heading)
  (show-subtree)
  (org-reveal siblings))

(add-hook 'org-mode-hook
	  (lambda ()
	    (local-set-key [(control ?c) ?d] 'org-datetree-goto-date)))

Maybe this would be useful for others if included in org-mode.

Liam