package kkmarkdown

  1. Overview
  2. Docs

Source file SpanRuleA.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
module Automatic = struct
  let is_safe = true
  let first_char = FirstChar.One '<'
  let re = Str.regexp "<\\(https?://[^\"'>]*\\)>"

  let construct _ ({ SpanRule.s; cur } as state) : Typ.span option =
    if Str.string_match re s cur then (
      let link = Str.matched_group 1 s in
      state.cur <- Str.match_end ();
      Some (A link))
    else None
end

module UnsafeNormal = struct
  let is_safe = false
  let first_char = FirstChar.One '['
  let re = Str.regexp "\\[\\([^]]*\\)\\](\\([^)]*\\))"

  let construct trans_spans_1 ({ SpanRule.s; cur } as state) : Typ.span option =
    if Str.string_match re s cur then (
      let text = Str.matched_group 1 s in
      let link = Str.matched_group 2 s |> String.trim in
      state.cur <- Str.match_end ();
      Some (UnsafeA { spans = trans_spans_1 text; link }))
    else None
end