awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-16 15:56:48 -05:00
Code Issues Packages Projects Releases Wiki Activity

Make plisty validator fns return input

Browse Source
This commit is contained in:
Chris Barrett
2023-03-14 22:20:35 +13:00
parent 0cb476ad17
commit a591bd0613
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/plisty.el
View File

@@ -118,7 +118,7 @@ which are compared using `plist-equal' recursively."
(cl-assert (listp required-keys)) (cl-assert (listp required-keys))
(cl-assert (seq-every-p #'keywordp required-keys)) (cl-assert (seq-every-p #'keywordp required-keys))
(cl-assert (seq-every-p #'keywordp all-keys)) (cl-assert (seq-every-p #'keywordp all-keys))
`(defsubst ,(plisty--validator-for-type type) (value &optional strict) `(defun ,(plisty--validator-for-type type) (value &optional strict)
(cl-assert (listp value) t "Expected a plist" ) (cl-assert (listp value) t "Expected a plist" )
(let ((required-keys ',required-keys) (let ((required-keys ',required-keys)
(all-keys ',all-keys) (all-keys ',all-keys)
@@ -134,7 +134,8 @@ which are compared using `plist-equal' recursively."
(cl-assert (null (seq-difference keys all-keys)) (cl-assert (null (seq-difference keys all-keys))
t t
"Unexpected additional keys: %s" "Unexpected additional keys: %s"
(seq-difference keys all-keys)))))) (seq-difference keys all-keys)))
value)))
(defun plisty--pred-accessor-name (type keyword) (defun plisty--pred-accessor-name (type keyword)
(intern (format "%s-%s" type (string-remove-prefix ":" (symbol-name keyword))))) (intern (format "%s-%s" type (string-remove-prefix ":" (symbol-name keyword)))))