auto merge of #1202 : SimonSapin/servo/link-selectors, r=jdm

All links are considered "unvisited" for now.

In particular, this fixes the UA stylesheet rule that underlines links.

1 files changed, 12 insertions, 0 deletions

diff --git a/src/components/script/dom/element.rs b/src/components/script/dom/element.rs
index 24644e514af..1901278b40d 100644
--- a/src/components/script/dom/element.rs
+++ b/src/components/script/dom/element.rs
@@ -130,6 +130,18 @@ impl ElementLike for Element {
 
         return value;
     }
+
+    fn get_link<'a>(&'a self) -> Option<&'a str> {
+        // FIXME: This is HTML only.
+        match self.node.type_id {
+            // http://www.whatwg.org/specs/web-apps/current-work/multipage/selectors.html#selector-link
+            ElementNodeTypeId(HTMLAnchorElementTypeId) |
+            ElementNodeTypeId(HTMLAreaElementTypeId) |
+            ElementNodeTypeId(HTMLLinkElementTypeId)
+            => self.get_attr("href"),
+            _ => None,
+        }
+    }
 }
 
 impl<'self> Element {