Fri Nov 13 07:56:08 UTC 2009 pix@kepibu.org

* Whoops. Those should still be id

-(equalp '(:div ((:element-id "element-id")) "I " (:i () "like") " cheese.")

- (match (#T(lhtml ("#element-id" . ?div))

- "<div element-id=\"element-id\">I <i>like</i> cheese.</div>")

+(equalp '(:div ((:id "id")) "I " (:i () "like") " cheese.")

+ (match (#T(lhtml ("#id" . ?div))

+ "<div id=\"id\">I <i>like</i> cheese.</div>")

- (make-instance 'lhtml-template :spec (rest spec)))

+ (make-instance 'lhtml-template :spec spec))

- (make-instance 'pt-template :spec (rest spec)))

+ (make-instance 'pt-template :spec spec))

- (let ((specifiers-and-vars (or css-specifiers (template-spec template))))

+ (let ((specifiers-and-vars (or css-specifiers (rest (template-spec template)))))

- (#T(regexp+ "^[#](\\w+)" (?element-id)) (cons (make-instance 'css-id-selector :arg element-id) (parse-css-specifier &rest)))

+ (#T(regexp+ "^[#](\\w+)" (?id)) (cons (make-instance 'css-id-selector :arg id) (parse-css-specifier &rest)))

+(defmethod css-select ((selector css-selector) (element string))

+ nil)

+

- (when (string= (lhtml-attr :element-id element) (selector-arg selector))

+ (when (string= (lhtml-attr :id element) (selector-arg selector))

-(defgeneric css-selector:element-id (element element-id))

+(defgeneric css-selector:id (element id))