Apply formatting changes

Author: RCmerci

lib/syntax/block0.ml

@@ -29,7 +29,11 @@ struct
     char '>'
     *> lines_while
          ( spaces *> optional (char '>') *> spaces *> line >>= fun line ->
-           if not (starts_with line "- " || starts_with line "# " || starts_with line "id:: " || line = "-" || line = "#") then
+           if
+             not
+               (starts_with line "- " || starts_with line "# "
+              || starts_with line "id:: " || line = "-" || line = "#")
+           then
              return line
            else
              fail "new block" )
@@ -144,7 +148,7 @@ struct
                 else
                   List.map
                     (fun line ->
-                       (* FIXME: only remove blanks *)
+                      (* FIXME: only remove blanks *)
                       safe_sub line indent (String.length line - indent))
                     lines
             in

lib/syntax/heading0.ml

@@ -139,48 +139,47 @@ struct
           let title, tags =
             match title with
             | [] -> (title, [])
-            | _ ->
+            | _ -> (
               match config.format with
-              | Org ->
-                (
-                  let last_inline = List.nth title (List.length title - 1) in
-                  match last_inline with
-                  | Inline.Plain s, _ ->
-                    let s = String.trim s in
-                    if String.length s > 1 && s.[String.length s - 1] = ':' then
-                      let prefix, maybe_tags = splitr (fun c -> c <> ' ') s in
-                      match parse_string ~consume:All tags maybe_tags with
-                      | Ok tags ->
-                        let title =
-                          if prefix = "" then
-                            drop_last 1 title
-                          else
-                            drop_last 1 title
-                            @ Type_op.inline_list_with_none_pos
+              | Org -> (
+                let last_inline = List.nth title (List.length title - 1) in
+                match last_inline with
+                | Inline.Plain s, _ ->
+                  let s = String.trim s in
+                  if String.length s > 1 && s.[String.length s - 1] = ':' then
+                    let prefix, maybe_tags = splitr (fun c -> c <> ' ') s in
+                    match parse_string ~consume:All tags maybe_tags with
+                    | Ok tags ->
+                      let title =
+                        if prefix = "" then
+                          drop_last 1 title
+                        else
+                          drop_last 1 title
+                          @ Type_op.inline_list_with_none_pos
                               [ Inline.Plain prefix ]
-                        in
-                        let open Option in
-                        let last_plain =
-                          List.nth_opt title (List.length title - 1)
-                          >>| fun (inline_t, pos) ->
-                          ( (match inline_t with
-                                | Inline.Plain s -> Inline.Plain (String.rtrim s ^ " ")
-                                | _ -> inline_t)
-                          , pos )
-                        in
-                        let title' =
-                          if Option.is_some last_plain then
-                            let _, butlast_title = butlast title in
-                            List.append butlast_title [ Option.get last_plain ]
-                          else
-                            title
-                        in
-                        (title', remove is_blank tags)
-                      | _ -> (title, [])
-                    else
-                      (title, [])
-                  | _ -> (title, []))
-              | Markdown -> (title, [])
+                      in
+                      let open Option in
+                      let last_plain =
+                        List.nth_opt title (List.length title - 1)
+                        >>| fun (inline_t, pos) ->
+                        ( (match inline_t with
+                          | Inline.Plain s -> Inline.Plain (String.rtrim s ^ " ")
+                          | _ -> inline_t)
+                        , pos )
+                      in
+                      let title' =
+                        if Option.is_some last_plain then
+                          let _, butlast_title = butlast title in
+                          List.append butlast_title [ Option.get last_plain ]
+                        else
+                          title
+                      in
+                      (title', remove is_blank tags)
+                    | _ -> (title, [])
+                  else
+                    (title, [])
+                | _ -> (title, []))
+              | Markdown -> (title, []))
           in
           let anchor =
             anchor_link (Inline.asciis (Type_op.inline_list_strip_pos title))