selectors.lisp
Mon Jan 4 00:11:25 UTC 2010 pix@kepibu.org
* Rename some functions to better match CSS terminology
--- old-Oh, Ducks!/selectors.lisp 2015-11-24 06:35:57.000000000 +0000
+++ new-Oh, Ducks!/selectors.lisp 2015-11-24 06:35:57.000000000 +0000
@@ -99,15 +99,15 @@
;#t(lex$ ("#" (?id :identifier)))
;#t(lex$ (?type :identifier))
-(defun find-matching-elements-in-list (selector element-list)
+(defun subjects-in-list (selector element-list)
(reduce #'nconc
- (mapcar (curry #'find-matching-elements selector)
+ (mapcar (curry #'subjects-of selector)
element-list)))
-(defgeneric find-matching-elements (selector element)
+(defgeneric subjects-of (selector element)
(:method (selector (element t))
(flet ((find-in-list (elements)
- (mapcar (curry #'find-matching-elements selector)
+ (mapcar (curry #'subjects-of selector)
elements)))
(nconc
(when (element-matches-p element selector) (list element))