From: Jean Louis <bugs@gnu.support>
To: tomas@tuxteam.de
Cc: help-gnu-emacs@gnu.org, Yuri Khan <yuri.v.khan@gmail.com>
Subject: [SOLVED]: Re: Help improve regular expression for 24 hours format
Date: Thu, 24 Nov 2022 17:30:31 +0300 [thread overview]
Message-ID: <Y3+AB6Cjcp2JcaoB@protected.localdomain> (raw)
In-Reply-To: <Y39LNTPP7/yTtsn/@tuxteam.de>
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/
next prev parent reply other threads:[~2022-11-24 14:30 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-11-24 3:36 Help improve regular expression for 24 hours format Jean Louis
2022-11-24 5:50 ` tomas
2022-11-24 6:32 ` Yuri Khan
2022-11-24 8:59 ` Jean Louis
2022-11-24 9:38 ` tomas
2022-11-24 10:31 ` Jean Louis
2022-11-24 10:45 ` tomas
2022-11-24 14:22 ` [SOLVED]: " Jean Louis
2022-11-25 15:31 ` Emanuel Berg
2022-11-26 18:08 ` Jean Louis
2022-11-24 14:30 ` Jean Louis [this message]
2022-11-24 13:09 ` 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=Y3+AB6Cjcp2JcaoB@protected.localdomain \
--to=bugs@gnu.support \
--cc=help-gnu-emacs@gnu.org \
--cc=tomas@tuxteam.de \
--cc=yuri.v.khan@gmail.com \
/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.