Re: Syntax for <%%(diary-float )>

[Jean Louis]

* Michael Heerdegen <michael_heerdegen@web.de> [2022-10-12 22:30]:
> Renato Pontefice <renato.pontefice@gmail.com> writes:
> 
> > Hi,
> > It’s a while that I’m searching information about this statement. I
> > need it on org mode but I ‘m unable to write in in the way I need it.
> > I need that (in org mode) an Agenda TODO happen: the first Friday of
> > each mont of all the year.
> > Can someone tell me the exact syntax if this statement?
> 
> (diary-float t 5 1)

Debugger entered--Lisp error: (void-variable date)
  (calendar-day-of-week date)
  (= dayname (calendar-day-of-week date))
  (and (= dayname (calendar-day-of-week date)) (let* ((m 
(calendar-extract-month date)) (d (calendar-extract-day date)) (y 
(calendar-extract-year date)) (limit (calendar-nth-named-absday (- n) dayname m 
y d)) (last-abs (if (> n 0) limit (+ limit 6))) (first-abs (if (> n 0) (- limit 
6) limit)) (last (calendar-gregorian-from-absolute last-abs)) (first 
(calendar-gregorian-from-absolute first-abs)) (m1 (calendar-extract-month 
first)) (d1 (calendar-extract-day first)) (y1 (calendar-extract-year first)) 
(m2 (calendar-extract-month last)) (d2 (calendar-extract-day last)) (y2 
(calendar-extract-year last))) (if (or (and (= m1 m2) (or (eq month t) (if 
(listp month) (memq m1 month) (= m1 month))) (let ((d ...)) (and (<= d1 d) (<= 
d d2)))) (and (or (< y1 y2) (and (= y1 y2) (< m1 m2))) (or (and (or ... ...) 
(<= d1 ...)) (and (or ... ...) (<= ... d2))))) (cons mark entry))))
  (progn (with-no-warnings (defvar date) (defvar entry)) (and (= dayname 
(calendar-day-of-week date)) (let* ((m (calendar-extract-month date)) (d 
(calendar-extract-day date)) (y (calendar-extract-year date)) (limit 
(calendar-nth-named-absday (- n) dayname m y d)) (last-abs (if (> n 0) limit (+ 
limit 6))) (first-abs (if (> n 0) (- limit 6) limit)) (last 
(calendar-gregorian-from-absolute last-abs)) (first 
(calendar-gregorian-from-absolute first-abs)) (m1 (calendar-extract-month 
first)) (d1 (calendar-extract-day first)) (y1 (calendar-extract-year first)) 
(m2 (calendar-extract-month last)) (d2 (calendar-extract-day last)) (y2 
(calendar-extract-year last))) (if (or (and (= m1 m2) (or (eq month t) (if ... 
... ...)) (let (...) (and ... ...))) (and (or (< y1 y2) (and ... ...)) (or (and 
... ...) (and ... ...)))) (cons mark entry)))))
  diary-float(t 5 1)
  eval((diary-float t 5 1))
  rcd-eval-visually()
  funcall-interactively(rcd-eval-visually)
  call-interactively(rcd-eval-visually nil nil)
  command-execute(rcd-eval-visually)


-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/