agenda start date

agenda start date

[Francis J. Monari, Esquire]

To: emacs-orgmode@gnu.org
Subject: Bug: agenda start day [8.3.4 (8.3.4-88-g792bb9-elpaplus @
c:/USR/FJM/APP/.emacs.d/elpa/org-plus-contrib-20160620/)]
From: monarifjmk@verizon.net (F. J. Monari)
--text follows this line--

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------
After adding the sexps below a previously working custom agenda stopped
working
what you expected to happen
=  I expected the agenda to complete for an entire month
what in fact did happen.
=  The agenda stopped at various points during the month
comments
=  Although I included the sexps, they do not appear to be the real problem
=  The start date of the custom agenda seems to hold the key

#
#+BEGIN_SRC emacs-lisp
%%(diary-remind
  '(diary-float t 3 -1)
  '(-07) nil) 14:30 @<description>

%%(and (diary-float t 3 -1)
       (not (or
               ; (diary-date 2016 05 25) ;
               (diary-date 2016 06 29) ;
            ) ;end-- or
       ) ;end-- not
  ) 14:30 @<description>


%%(diary-remind
  '(and (diary-float t 3 -1)
        (not (or
                ; (diary-date 2016 05 25) ;
                (diary-date 2016 06 29) ;
             ) ;end-- or
        ) ;end-- not
   )
  '(-07) nil) 14:30 @<description>
#+END_SRC

# first sexp works
# second sexp works
# third sexp does not work when following custom agenda is run:

      ("Er" "Esquire review month" ;single block agenda begin
        ( ;list of agenda commands begin
          (agenda "" ;agenda command begin
            ( ;list of options for specific command begin
              (org-agenda-entry-types '(:timestamp :sexp :deadline
:scheduled)) ;in agendas
              (org-agenda-files
'("C:/ESQ/FIRM/USR/ESQ/FJM/DAT/DBF/ORG/fjm-esq-emacs.org")) ;list of
agenda files
              (org-agenda-include-diary nil)
	      (org-agenda-overriding-header "Esquire month review")
              (org-agenda-show-all-dates t) ;nil only if entry on date
              (org-agenda-span 'month) ;Can be day, week, month, year,
or any number of days.
	      (org-agenda-start-day (org-read-date nil nil "-01m 01d"))
              (org-agenda-start-on-weekday nil)
              (org-agenda-sorting-strategy '(habit-down time-up
scheduled-down deadline-down todo-state-up priority-down effort-down
alpha-up))
	      (org-agenda-time-grid '((daily)  "----------------"  (0400 0600
0800 1000 1200 1400 1600 1800 2000 2200)))
            ) ;list of options for specific command end
          ) ;agenda command end
        ) ;list of agenda commands end
        ( ;list of block options begin
          (org-agenda-log-mode-items '(clock state))
          (org-agenda-start-with-log-mode '(clock state))
          (org-agenda-with-colors t)
        ) ;list of block options end
        ("C:/ESQ/FIRM/USR/ESQ/FJM/DAT/DOC/ESQ_month-review.html")
;exports block
      ) ;single block agenda end

# error shown is: Wrong type argument:  sequencep, t
# commenting out the following lines seems to make part of the agenda work.
# (org-agenda-span 'month)
# (org-agenda-start-day (org-read-date nil nil "-01m 01d")) ;trying to
start at the first of the prior month
# problems seem to occur around the end of the month.
# 07 works
# 14 works
# 21 works
# 22 works
# 27 works
# 28 does not work
# 31 does not work
# if I substitute
# (org-agenda-start-day (org-read-date "01")) for
# (org-agenda-start-day (org-read-date nil nil "-01m 01d"))
# then the agenda works
# if I just remove the org-agenda-start-day, then the agenda fails
# org-mobile-push work, however, I would like to automate the selection
of the first day of the current month.
#

#


Emacs  : GNU Emacs 24.5.1 (i686-pc-mingw32)
 of 2015-04-11 on LEG570
Package: Org-mode version 8.3.4 (8.3.4-88-g792bb9-elpaplus @
c:/USR/FJM/APP/.emacs.d/elpa/org-plus-contrib-20160620/)

Re: agenda start date

[Nicolas Goaziou]

Hello,

"Francis J. Monari, Esquire" <monarifj.esq@juno.com> writes:

> # error shown is: Wrong type argument:  sequencep, t
> # commenting out the following lines seems to make part of the agenda work.
> # (org-agenda-span 'month)
> # (org-agenda-start-day (org-read-date nil nil "-01m 01d")) ;trying to start at the first of the prior month
> # problems seem to occur around the end of the month.
> # 07 works
> # 14 works
> # 21 works
> # 22 works
> # 27 works
> # 28 does not work
> # 31 does not work
> # if I substitute
> # (org-agenda-start-day (org-read-date "01")) for
> # (org-agenda-start-day (org-read-date nil nil "-01m 01d"))
> # then the agenda works
> # if I just remove the org-agenda-start-day, then the agenda fails
> # org-mobile-push work, however, I would like to automate the selection of the first day of the current month.

I am a bit puzzled.

I can reproduce the error even when commenting out the expressions
mentioned. I can also reproduce the error when substituting parameters,
as you suggest, in `org-read-date'.

It looks like the problem comes from "diary-lib.el". For example,
evaluating the following sexp

  (let ((entry "14:30 @<description>")
        (date '(6 22 2016)))
    (diary-remind
     '(and (diary-float t 3 -1) (not (or (diary-date 2016 6 29))))
     '(-7)
     nil))

returns the very same error you're experiencing, even though Org is not
involved at all.


Regards,

-- 
Nicolas Goaziou