commit 1629428c0a6ab2b385f9f4396afdd9136f36b527 · anil.recoil.org/slop

+36

stack/river/lib/markdown_converter.ml

···

       144
        
                     need_space := false

     

       145
        
                 (* Inline elements - preserve space tracking *)

     

       146
        
                 | "strong" | "b" ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       147
        
                     Buffer.add_string buffer "**";

     

       148
        
                     need_space := false;

     

       149
        
                     Soup.children elem |> Soup.iter process_node;

     

       150
        
                     Buffer.add_string buffer "**";

     

       151
        
                     mark_space_needed ()

     

       152
        
                 | "em" | "i" ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       153
        
                     Buffer.add_string buffer "*";

     

       154
        
                     need_space := false;

     

       155
        
                     Soup.children elem |> Soup.iter process_node;

     

       156
        
                     Buffer.add_string buffer "*";

     

       157
        
                     mark_space_needed ()

     

       158
        
                 | "code" ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       159
        
                     Buffer.add_string buffer "`";

     

       160
        
                     need_space := false;

     

       161
        
                     Soup.children elem |> Soup.iter process_node;

     
···

       172
        
                     let href = Soup.attribute "href" elem in

     

       173
        
                     (match href with

     

       174
        
                     | Some href ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       175
        
                         if text = "" then

     

       176
        
                           Buffer.add_string buffer (Printf.sprintf "<%s>" href)

     

       177
        
                         else

     

       178
        
                           Buffer.add_string buffer (Printf.sprintf "[%s](%s)" text href);

     

       0
        
       
     

       0
        
       
     

       179
        
                         mark_space_needed ()

     

       180
        
                     | None ->

     

       181
        
                         add_text text)

     
···

       205
        
                     Buffer.add_string buffer "\n\n";

     

       206
        
                     need_space := false

     

       207
        
                 | "img" ->

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       208
        
                     let alt = Soup.attribute "alt" elem |> Option.value ~default:"" in

     

       209
        
                     let src = Soup.attribute "src" elem |> Option.value ~default:"" in

     

       210
        
                     Buffer.add_string buffer (Printf.sprintf "![%s](%s)" alt src);

     

       0
        
       
     

       211
        
                     mark_space_needed ()

     

       212
        
                 | "hr" ->

     

       213
        
                     need_space := false;

···

       144
        
                     need_space := false

     

       145
        
                 (* Inline elements - preserve space tracking *)

     

       146
        
                 | "strong" | "b" ->

     

       147
       +
                     (* Add space before if needed *)

     

       148
       +
                     if !need_space then begin

     

       149
       +
                       match last_char () with

     

       150
       +
                       | Some (' ' | '\n') -> ()

     

       151
       +
                       | _ -> Buffer.add_char buffer ' '

     

       152
       +
                     end;

     

       153
        
                     Buffer.add_string buffer "**";

     

       154
        
                     need_space := false;

     

       155
        
                     Soup.children elem |> Soup.iter process_node;

     

       156
        
                     Buffer.add_string buffer "**";

     

       157
        
                     mark_space_needed ()

     

       158
        
                 | "em" | "i" ->

     

       159
       +
                     (* Add space before if needed *)

     

       160
       +
                     if !need_space then begin

     

       161
       +
                       match last_char () with

     

       162
       +
                       | Some (' ' | '\n') -> ()

     

       163
       +
                       | _ -> Buffer.add_char buffer ' '

     

       164
       +
                     end;

     

       165
        
                     Buffer.add_string buffer "*";

     

       166
        
                     need_space := false;

     

       167
        
                     Soup.children elem |> Soup.iter process_node;

     

       168
        
                     Buffer.add_string buffer "*";

     

       169
        
                     mark_space_needed ()

     

       170
        
                 | "code" ->

     

       171
       +
                     (* Add space before if needed *)

     

       172
       +
                     if !need_space then begin

     

       173
       +
                       match last_char () with

     

       174
       +
                       | Some (' ' | '\n') -> ()

     

       175
       +
                       | _ -> Buffer.add_char buffer ' '

     

       176
       +
                     end;

     

       177
        
                     Buffer.add_string buffer "`";

     

       178
        
                     need_space := false;

     

       179
        
                     Soup.children elem |> Soup.iter process_node;

     
···

       190
        
                     let href = Soup.attribute "href" elem in

     

       191
        
                     (match href with

     

       192
        
                     | Some href ->

     

       193
       +
                         (* Add space before link if needed *)

     

       194
       +
                         if !need_space then begin

     

       195
       +
                           match last_char () with

     

       196
       +
                           | Some (' ' | '\n') -> ()

     

       197
       +
                           | _ -> Buffer.add_char buffer ' '

     

       198
       +
                         end;

     

       199
       +
                         need_space := false;

     

       200
       +
       

     

       201
       +
                         (* Add the link markdown *)

     

       202
        
                         if text = "" then

     

       203
        
                           Buffer.add_string buffer (Printf.sprintf "<%s>" href)

     

       204
        
                         else

     

       205
        
                           Buffer.add_string buffer (Printf.sprintf "[%s](%s)" text href);

     

       206
       +
       

     

       207
       +
                         (* Mark that space may be needed after link *)

     

       208
        
                         mark_space_needed ()

     

       209
        
                     | None ->

     

       210
        
                         add_text text)

     
···

       234
        
                     Buffer.add_string buffer "\n\n";

     

       235
        
                     need_space := false

     

       236
        
                 | "img" ->

     

       237
       +
                     (* Add space before if needed *)

     

       238
       +
                     if !need_space then begin

     

       239
       +
                       match last_char () with

     

       240
       +
                       | Some (' ' | '\n') -> ()

     

       241
       +
                       | _ -> Buffer.add_char buffer ' '

     

       242
       +
                     end;

     

       243
        
                     let alt = Soup.attribute "alt" elem |> Option.value ~default:"" in

     

       244
        
                     let src = Soup.attribute "src" elem |> Option.value ~default:"" in

     

       245
        
                     Buffer.add_string buffer (Printf.sprintf "![%s](%s)" alt src);

     

       246
       +
                     need_space := false;

     

       247
        
                     mark_space_needed ()

     

       248
        
                 | "hr" ->

     

       249
        
                     need_space := false;