help-gnu-emacs
[Top][All Lists]
Advanced

[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/



reply via email to

[Prev in Thread] Current Thread [Next in Thread]