diff --git a/source/md.c b/source/md.c
index 0566fc8..d0fb440 100644
--- a/source/md.c
+++ b/source/md.c
@@ -1167,6 +1167,18 @@ MD_S8ListJoin(MD_Arena *arena, MD_String8List list, MD_StringJoin *join_ptr)
     return(result);
 }
 
+MD_FUNCTION MD_String8
+MD_S8ListJoinMid(MD_Arena *arena, MD_String8List list,
+                 MD_String8 mid_separator)
+{
+    MD_StringJoin join = MD_ZERO_STRUCT;
+    join.pre = MD_S8Lit("");
+    join.post = MD_S8Lit("");
+    join.mid = mid_separator;
+    MD_String8 result = MD_S8ListJoin(arena, list, &join);
+    return result;
+}
+
 MD_FUNCTION MD_String8
 MD_S8Stylize(MD_Arena *arena, MD_String8 string, MD_IdentifierStyle word_style,
              MD_String8 separator)
diff --git a/source/md.h b/source/md.h
index 7a94ee9..aa9b2cc 100644
--- a/source/md.h
+++ b/source/md.h
@@ -1013,6 +1013,8 @@ MD_FUNCTION MD_String8List MD_S8Split(MD_Arena *arena, MD_String8 string, int sp
                                       MD_String8 *splits);
 MD_FUNCTION MD_String8     MD_S8ListJoin(MD_Arena *arena, MD_String8List list,
                                          MD_StringJoin *join);
+MD_FUNCTION MD_String8     MD_S8ListJoinMid(MD_Arena *arena, MD_String8List list,
+                                            MD_String8 mid_separator);
 
 MD_FUNCTION MD_String8     MD_S8Stylize(MD_Arena *arena, MD_String8 string,
                                         MD_IdentifierStyle style, MD_String8 separator);