From mboxrd@z Thu Jan  1 00:00:00 1970
From: Nick Dokos <nicholas.dokos@hp.com>
Subject: Re: org-agenda-clockreport-mode does not include archived entries?
 How to?
Date: Mon, 20 Feb 2012 15:38:12 -0500
Message-ID: <13835.1329770292@alphaville>
References: <jhsuog$39r$1@dough.gmane.org>
	<BDE79F64-3331-457D-9A5F-0E813B272AC2@gmail.com>
	<4F4206C2.3070006@online.de>
	<D091A743-82E9-41B9-82E7-D06AAA25EF54@gmail.com>
	<4F424265.3000406@online.de> <4F42708D.6010300@online.de>
	<11607.1329755565@alphaville> <4F427A46.9010905@online.de>
	<12538.1329768188@alphaville>
Reply-To: nicholas.dokos@hp.com
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([140.186.70.92]:47426)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <nicholas.dokos@hp.com>) id 1Rza05-0000MT-Ea
	for emacs-orgmode@gnu.org; Mon, 20 Feb 2012 15:38:22 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <nicholas.dokos@hp.com>) id 1Rza04-0006Ij-93
	for emacs-orgmode@gnu.org; Mon, 20 Feb 2012 15:38:21 -0500
Received: from g5t0007.atlanta.hp.com ([15.192.0.44]:15576)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <nicholas.dokos@hp.com>) id 1Rza03-0006IV-Vm
	for emacs-orgmode@gnu.org; Mon, 20 Feb 2012 15:38:20 -0500
In-Reply-To: Message from Nick Dokos <nicholas.dokos@hp.com>
	of "Mon, 20 Feb 2012 15:03:08 EST." <12538.1329768188@alphaville>
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: Rainer Stengele <rainer.stengele@online.de>
Cc: nicholas.dokos@hp.com, emacs-orgmode@gnu.org

Nick Dokos <nicholas.dokos@hp.com> wrote:

> Adding
> 
>       ...
>       (org-agenda-start-day (ndk/org-first-of-month))
>       (org-agenda-span 'month)
>       ...
> 
> to your custom agenda command, with
> 
> (defun ndk/org-first-of-month ()
>   (let ((d (calendar-current-date)))
>     (calendar-absolute-from-gregorian (list (car d) 1 (caddr d)))))
> 
> should do it.
> 

Same thing but somewhat more readable:

--8<---------------cut here---------------start------------->8---
(defun ndk/org-first-of-month ()
  (let* ((d (calendar-current-date))
	 (m (calendar-extract-month d))
	 (y (calendar-extract-year d)))
    (calendar-absolute-from-gregorian (list m 1 y))))
--8<---------------cut here---------------end--------------->8---

Nick