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: [SOLVED]: Re: Help improve regular expression for 24 hours format Date: Thu, 24 Nov 2022 17:30:31 +0300 Message-ID: References: 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="6299"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.2.7+37 (a90f69b) (2022-09-02) Cc: help-gnu-emacs@gnu.org, Yuri Khan To: tomas@tuxteam.de Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Thu Nov 24 15:31:41 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 1oyDGO-0001PM-SB for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 24 Nov 2022 15:31:40 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oyDFn-0007K6-Md; Thu, 24 Nov 2022 09:31:03 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oyDFd-0007JF-LG for help-gnu-emacs@gnu.org; Thu, 24 Nov 2022 09:30:54 -0500 Original-Received: from stw1.rcdrun.com ([217.170.207.13]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oyDFb-0006fv-0q for help-gnu-emacs@gnu.org; Thu, 24 Nov 2022 09:30:52 -0500 Original-Received: from localhost ([::ffff:102.82.241.226]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 00000000000F613C.00000000637F801A.00005421; Thu, 24 Nov 2022 07:30:50 -0700 Mail-Followup-To: tomas@tuxteam.de, help-gnu-emacs@gnu.org, Yuri Khan Content-Disposition: inline In-Reply-To: Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham 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-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.help:141148 Archived-At: All that is that I can read date and time together: This is me special function for reading strings: (defun rcd-ask (&optional prompt initial-input default-value auto-initial-input) "Modified function `read-string'. This is shorter, simpler function that generates the prompt automatically, generates history variable automatically and inherits the input method. The input will be returned trimmed." (let* ((prompt (or prompt "Input data: ")) (history (rcd-ask-history-variable prompt)) (initial-input (cond (auto-initial-input (car (symbol-value history))) (initial-input initial-input))) (input (read-string prompt initial-input history default-value t)) (input (string-trim input))) input)) Then I have now regular expression by which I can read time in 24 hours format: (defvar rcd-rx-time (rx line-start (or (seq "0" (any digit)) (seq "1" (any digit)) (seq "2" (any "0-3"))) ":" (seq (any "0-5") (any digit)) line-end) "Regular expression for 24 hours format") Then I made simple function for that, it does not allow me to (defun rcd-read-24-hours-time (&optional prompt) (let* ((prompt (or prompt "Time (HH:MM): ")) (current-time (format-time-string "%H:%M")) (my-time "")) (while (not (string-match rcd-rx-time my-time)) (setq my-time (rcd-ask prompt current-time))) my-time)) (rcd-read-24-hours-time) ➜ "17:26" Then I have this one to read the date and give result in ISO format: (defun rcd-read-iso-date () (let* ((date (calendar-read-date)) (month (elt date 0)) (day (elt date 1)) (year (elt date 2))) (format "%04d-%02d-%02d" year month day))) (rcd-read-iso-date) ➜ "2022-11-24" Then it comes together like this: (defun rcd-read-date-time () (let ((date (rcd-read-iso-date)) (time (rcd-read-24-hours-time))) (format "%s %s" date time))) (rcd-read-date-time) ➜ "2022-11-24 17:26" Then I can use that type check to enter the "scheduled time" for messages to be sent, like: Scheduled time "2022-11-24 17:26:00+03" ID 56174 Date created "2022-11-24 09:03:40.049268" Date modified "2022-11-24 17:26:15.422416" User created "maddox" User modified "maddox" Subject nil Full message "🌅 Good morning" Message type "SMS" Status "Scheduled" From people ID nil From comm line ID nil From comm line nil To people ID "Joe Doe" To comm line ID nil To comm line "+xxxxxxxxxxxx" Related Hyperdocument #1 "My project" Related Hyperdocument #2 nil Related Hyperdocument #3 nil UUID "bbe5710d-0795-4f46-b6ce-7ae9f0f009f9" Scheduled time "2022-11-24 17:26:00+03" Time sent nil Canned nil In the next step I have to make a timer function to verify scheduled messages, so that they can be dispatched at specific time in future. My subject was about the time type check, in background it is all about human relationships. -- Jean Take action in Free Software Foundation campaigns: https://www.fsf.org/campaigns In support of Richard M. Stallman https://stallmansupport.org/