From: Jean Louis <bugs@gnu.support>
To: Michael Heerdegen <michael_heerdegen@web.de>
Cc: help-gnu-emacs@gnu.org
Subject: Re: Syntax for <%%(diary-float )>
Date: Wed, 12 Oct 2022 22:42:02 +0300 [thread overview]
Message-ID: <Y0cYivwgTFm0Ve/J@protected.localdomain> (raw)
In-Reply-To: <87pmewq20q.fsf@web.de>
* 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 ... ...) (a
nd ... ...)))) (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/
next prev parent reply other threads:[~2022-10-12 19:42 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-10-12 18:19 Syntax for <%%(diary-float )> Renato Pontefice
2022-10-12 19:23 ` Michael Heerdegen
2022-10-12 19:42 ` Jean Louis [this message]
2022-10-12 19:59 ` Michael Heerdegen
2022-10-12 19:37 ` Jean Louis
2022-10-21 6:03 ` Michael Heerdegen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=Y0cYivwgTFm0Ve/J@protected.localdomain \
--to=bugs@gnu.support \
--cc=help-gnu-emacs@gnu.org \
--cc=michael_heerdegen@web.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.