v1.4.7

Author: tiensonqin

js/lib.ml

@@ -50,20 +50,16 @@ let mldoc_object =
         print_endline (Printexc.to_string error);
         input
 
-    method export getReferences config_json input =
+    method getReferences input config_json =
       let str = Js.to_string input in
-      try
-        let config_json = Yojson.Safe.from_string config_json in
-        match Conf.of_yojson config_json with
-        | Ok config -> (
-            let result = Mldoc.Property.property_references config str in
-            Mldoc.Type.inline_list_no_pos_to_yojson result |> Yojson.Safe.to_string |> Js.string)
-        | Error e ->
-          print_endline e;
-          input
-      with error ->
-        print_endline (Printexc.to_string error);
-        input
+      let config_json = Js.to_string config_json in
+      let config_json = Yojson.Safe.from_string config_json in
+      match Conf.of_yojson config_json with
+      | Ok config -> (
+          let result = Mldoc.Property.property_references config str in
+          Mldoc.Type.inline_list_no_pos_to_yojson result |> Yojson.Safe.to_string |> Js.string)
+      | Error e ->
+        Js_of_ocaml.Js.string ("Config error: " ^ e)
 
     method export to_format input config_json references =
       let to_format = Js.to_string to_format in

js/package/package.json

@@ -1,6 +1,6 @@
 {
     "name": "mldoc",
-    "version": "1.4.6",
+    "version": "1.4.7",
     "description": "Another Emacs Org-mode parser.",
     "main": "index.js",
     "scripts": {

lib/syntax/extended/hash_tag.ml

@@ -13,7 +13,7 @@ let hashtag_name =
     <|> ( take_while (fun c -> List.mem c tag_delims)
           *> (satisfy is_space_eol *> return () <|> end_of_input)
           *> return `Finish
-        <|> (String.make 1 <$> not_one_of [ '#' ] >>| fun c -> `Continue c)
+        <|> (String.make 1 <$> not_one_of [ '#'; ','; '!'; '?'; '\''; '"'; ':' ] >>| fun c -> `Continue c)
         >>= fun r ->
           match r with
           | `Finish -> fail "hashtag_name_part finish"