cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- prefixed all parsing rule for date formatting to avoid clash with other rules in the code.

This commit is contained in:
cage 2024-06-19 15:52:54 +02:00
parent 74c78adc6a
commit 1e3854989b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/date-formatter.lisp
View File

@ -20,7 +20,7 @@
;; FIELD := [%hour %minute %second %month %year %day %weekday %%]
;; TEXT := (not percent)+
(defrule field
(defrule date-formatter-field
(or "%hour"
"%min"
"%second"
@ -35,10 +35,10 @@
"%%")
(:text t))
(defrule text (+ (not percent))
(defrule date-formatter-text (+ (not date-formatter-percent))
(:text t))
(defrule format (* (or field text)))
(defrule date-formatter-format (* (or date-formatter-field date-formatter-text)))
(defun expand-date-formatter-spec (spec)
"Expand a date spec like '%year %short-month %day %hour:%min'