ignore(win#whelpResultTreeview#connect#row_activated
~callback:(fun _ _ ->
let selection = self#_getWhelpResultTreeviewSelection () in
+ let is_cic s =
+ try
+ String.sub s 0 5 = "cic:/"
+ with Invalid_argument _ -> false
+ in
let txt =
- if String.sub selection 0 5 = "cic:/" then
+ if is_cic selection then
selection
else
win#browserUri#text ^ selection
let is_uri txt =
try
let u = UriManager.strip_xpointer (UriManager.uri_of_string txt) in
- ignore(Http_getter.resolve' u); true
+ ignore (Http_getter.resolve' u);
+ true
with
| Http_getter_types.Key_not_found _
- | Http_getter_types.Unresolvable_URI _ -> false
+ | Http_getter_types.Unresolvable_URI _
+ | UriManager.IllFormedUri ("cic:/" | "cic:") -> false
| UriManager.IllFormedUri u -> failwith ("Malformed URI '" ^ u ^ "'")
in
let is_whelp txt = Pcre.pmatch ~rex:whelp_RE txt in