[feature] new Dom.tag_name function

MLstate · Jan 22, 2014 · a171b98 · a171b98
1 parent 73ea30a
commit a171b98
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/lib/plugins/opabsl/jsbsl/bslDom.js b/lib/plugins/opabsl/jsbsl/bslDom.js
@@ -1083,3 +1083,10 @@ function thisisthis() {
 function get_at_position(x, y) {
     return document.elementFromPoint(x, y);
 }
+
+/**
+ * @register {dom -> string}
+ */
+function tag_name(elt) {
+    return elt.tagName;
+}
diff --git a/lib/stdlib/core/xhtml/dom.opa b/lib/stdlib/core/xhtml/dom.opa
@@ -419,6 +419,14 @@ Dom = {{
         %% BslDom.is_empty %%(of_selection(dom))
   )
 
+  /**
+   * @return [name] of element tag
+   */
+  tag_name(elt: dom): string =
+  (
+      %% BslDom.tag_name %%(elt)
+  )
+
    /**
     * Iterate on the selection
     */