emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(cli): add implicit date, time, duration, & size types

Browse source
This commit is contained in:
Henrik Lissner 2022-08-07 18:38:13 +02:00
parent 790c2a6d84
commit b7b2563f7b
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 32 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lisp/doom-cli-lib.el
View file

@ -85,12 +85,38 @@ See argument types in `doom-cli-argument-types', and `defcli!' for usage.")
((or "n" "no" "nil" "false" "0" "off") :no)))
:error "Not a valid boolean, should be blank or one of: yes, no, y, n, true, false, on, off"
:zshcomp "(y n yes no true false on off 1 0)")
;; TODO Implement these implicit types
;; (date ...)
;; (time ...)
;; (duration ...)
;; (size ...)
)
(date :test ,(lambda (str)
(let ((ts (parse-time-string str)))
(and (decoded-time-day ts)
(decoded-time-month ts)
(decoded-time-year ts))))
:read parse-time-string
:error "Not a valid date (try YYYY-MM-DD or a date produced by `date')")
(time :test ,(lambda (str)
(let ((ts (parse-time-string str)))
(and (decoded-time-hour ts)
(decoded-time-minute ts)
(decoded-time-second ts))))
:read parse-time-string
:error "Not a valid date (try YYYY-MM-DD or a date produced by `date')")
(duration :test ,(lambda (str)
(not (cl-loop for d in (split-string-and-unquote str " ")
unless (string-match-p "^[0-9]+[hmsdMY]$" d)
return t)))
:read ,(doom-rpartial #'split-string-and-unquote " ")
:error "Not a valid duration (e.g. 5h 20m 40s 2Y 1M)")
(size :test "^[0-9]+[kmgt]?b$"
:read ,(lambda (str)
(save-match-data
(and (string-match "^\\([0-9]+\\(?:\\.[0-9]+\\)\\)\\([kmgt]?b\\)$" str)
(* (string-to-number (match-string 1 str))
(or (cdr (assoc (match-string 2 str)
'(("kb" . 1000)
("mb" . 1000000)
("gb" . 1000000000)
("tb" . 1000000000000))))
1)))))
:error "Not a valid filesize (e.g. 5mb 10.4kb 2gb 1.4tb)"))
"A list of implicit option argument datatypes and their rules.
Recognizies the following properies: