Nick Dokos <[email protected]> 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
