Skip to content
Browse files

...

  • Loading branch information...
1 parent bc0fefd commit b3cde689f2157334a2baf170cd54c38f069526a6 @mattgu74 committed Apr 3, 2012
Showing with 2 additions and 7 deletions.
  1. +2 −7 demo_sigma.opa
View
9 demo_sigma.opa
@@ -96,7 +96,7 @@ urls_to_visit(limit : int) =
domain = url_to_domain_ref(id)
sigma.add_node(domain, domain, "#FFFFFF")
)
- ae_domain(n1, n2) = (
+ ae_domain((n1, n2)) = (
d1 = url_to_domain_ref(n1)
d2 = url_to_domain_ref(n2)
sigma.add_edge(d1^"_"^d2, d1, d2)
@@ -116,11 +116,6 @@ urls_to_visit(limit : int) =
else
void
)
- ae_domain((n1, n2)) = (
- d1 = url_to_domain_ref(n1)
- d2 = url_to_domain_ref(n2)
- sigma.add_edge(d1^"_"^d2, d1, d2)
- )
(an, ae) = match mode with
| {all} -> (an_domain, ae_domain)
| {domain = d} -> (an_filter(d), ae_filter(d))
@@ -244,7 +239,7 @@ content(state) =
page() = Resource.styled_page("OPASigmaJS :: DEMO", ["/res/css.css"], content({all}))
content_domain() =
- all_domain = Map.fold((domain, pages, acc -> <><li><a onclick={_ -> load_client({~domain})}>{domain} ({Map.size(pages)})</a></li>{acc}</>), /graphe, <></>)
+ all_domain = Map.fold((domain, pages, acc -> <><li><a onclick={_ -> do Dom.transform([#sigma_demo <- <></>]) load_client({~domain})}>{domain} ({Map.size(pages)})</a></li>{acc}</>), /graphe, <></>)
<div id=#sigma_demo>
<ul>{all_domain}</ul>
</>

0 comments on commit b3cde68

Please sign in to comment.
Something went wrong with that request. Please try again.