klacks:get-attribute; dribbling source fix; FAQ

2007-05-01 18:21:40 +00:00
parent b8ba07a919
commit dd833309bf
8 changed files with 258 additions and 22 deletions
--- a/klacks/klacks-impl.lisp
+++ b/klacks/klacks-impl.lisp
@ -102,6 +102,13 @@
 	     (sax:attribute-value a)
 	     (sax:attribute-specified-p a))))

+(defmethod klacks:get-attribute
+    ((source cxml-source) lname &optional uri)
+  (dolist (a (slot-value source 'current-attributes))
+    (when (and (equal (sax:attribute-local-name a) lname)
+	       (equal (sax:attribute-namespace-uri a) uri))
+      (return (sax:attribute-value a)))))
+
 (defmethod klacks:list-attributes ((source cxml-source))
  (slot-value source 'current-attributes))