[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[SOLVED]: Re: Help improve regular expression for 24 hours format
From: |
Jean Louis |
Subject: |
[SOLVED]: Re: Help improve regular expression for 24 hours format |
Date: |
Thu, 24 Nov 2022 17:30:31 +0300 |
User-agent: |
Mutt/2.2.7+37 (a90f69b) (2022-09-02) |
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/
- Help improve regular expression for 24 hours format, Jean Louis, 2022/11/23
- Re: Help improve regular expression for 24 hours format, tomas, 2022/11/24
- Re: Help improve regular expression for 24 hours format, Yuri Khan, 2022/11/24
- Re: Help improve regular expression for 24 hours format, Jean Louis, 2022/11/24
- Re: Help improve regular expression for 24 hours format, tomas, 2022/11/24
- Re: Help improve regular expression for 24 hours format, Jean Louis, 2022/11/24
- Re: Help improve regular expression for 24 hours format, tomas, 2022/11/24
- [SOLVED]: Re: Help improve regular expression for 24 hours format,
Jean Louis <=
- [SOLVED]: Re: Help improve regular expression for 24 hours format, Jean Louis, 2022/11/24
- Re: [SOLVED]: Re: Help improve regular expression for 24 hours format, Emanuel Berg, 2022/11/26
- Re: [SOLVED]: Re: Help improve regular expression for 24 hours format, Jean Louis, 2022/11/26
Re: Help improve regular expression for 24 hours format, Michael Heerdegen, 2022/11/24