From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: Re: Syntax for <%%(diary-float )> Date: Wed, 12 Oct 2022 22:42:02 +0300 Message-ID: References: <81D47CAB-50F5-4EF5-88E0-D6A898AF1FFD@gmail.com> <87pmewq20q.fsf@web.de> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="10205"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.2.7+37 (a90f69b) (2022-09-02) Cc: help-gnu-emacs@gnu.org To: Michael Heerdegen Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Wed Oct 12 21:49:06 2022 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1oihj0-0002QX-Df for geh-help-gnu-emacs@m.gmane-mx.org; Wed, 12 Oct 2022 21:49:06 +0200 Original-Received: from localhost ([::1]:43302 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oihiy-0003e1-SZ for geh-help-gnu-emacs@m.gmane-mx.org; Wed, 12 Oct 2022 15:49:04 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:46244) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oihhy-0003do-IF for help-gnu-emacs@gnu.org; Wed, 12 Oct 2022 15:48:02 -0400 Original-Received: from stw1.rcdrun.com ([217.170.207.13]:60261) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oihhw-00060j-RD for help-gnu-emacs@gnu.org; Wed, 12 Oct 2022 15:48:02 -0400 Original-Received: from localhost ([::ffff:197.239.4.224]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 00000000000BBD14.00000000634719EF.00006AEB; Wed, 12 Oct 2022 12:47:58 -0700 Mail-Followup-To: Michael Heerdegen , help-gnu-emacs@gnu.org Content-Disposition: inline In-Reply-To: <87pmewq20q.fsf@web.de> Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -17 X-Spam_score: -1.8 X-Spam_bar: - X-Spam_report: (-1.8 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_SBL=0.141, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:139867 Archived-At: * Michael Heerdegen [2022-10-12 22:30]: > Renato Pontefice 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/