From 7c746f7e627f89a254cc4422e3131cd0fca63b8a Mon Sep 17 00:00:00 2001
From: Paul Trowbridge <ptrowbridge@hc-comapnies.com>
Date: Wed, 27 Sep 2017 12:55:58 -0400
Subject: [PATCH] change name of mark_down_from_table, create min spacing of 3

---
 FL.bas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/FL.bas b/FL.bas
index fff2033..6189ac1 100644
--- a/FL.bas
+++ b/FL.bas
@@ -584,9 +584,10 @@ End Sub
 
 
 
-Sub markdown_from_table()
+Sub markdown_from_selection()
     
     Dim wapi As New Windows_API
+    Dim x As New TheBigOne
     
     Dim tbl() As Variant
     
@@ -611,13 +612,13 @@ Sub markdown_from_table()
         If r = 2 Then
             md = md & "|"
             For c = 1 To UBound(tbl, 2)
-                md = md & "---" & String(msl(c) - 3, "-") & "|"
+                md = md & "---" & String(x.MISCe_MaxInt(msl(c), 3) - 3, "-") & "|"
             Next c
             md = md & vbCrLf
         End If
         md = md & "|"
         For c = 1 To UBound(tbl, 2)
-            md = md & tbl(r, c) & String(msl(c) - Len(tbl(r, c)), " ") & "|"
+            md = md & tbl(r, c) & String(x.MISCe_MaxInt(3, msl(c) - Len(tbl(r, c))), " ") & "|"
         Next c
         md = md & vbCrLf
     Next r