Add pad_left and use in log()

Author: sparr

doc/modules/pico8lib.strings.html

@@ -167,6 +167,10 @@ <h2><a href="#Miscellaneous">Miscellaneous </a></h2>
 	<td class="summary">Check if a string starts with a given prefix
  returns true if it does, false otherwise</td>
 	</tr>
+	<tr>
+	<td class="name" nowrap><a href="#pad_left">pad_left (s, l, p)</a></td>
+	<td class="summary">Pad a string on the left</td>
+	</tr>
 </table>
 <h2><a href="#tostr">tostr </a></h2>
 <table class="function_list">
@@ -662,6 +666,35 @@ <h3>Parameters:</h3>
 
 
 
+</dd>
+    <dt>
+    <a name = "pad_left"></a>
+    <strong>pad_left (s, l, p)</strong>
+    </dt>
+    <dd>
+    Pad a string on the left
+
+
+    <h3>Parameters:</h3>
+    <ul>
+        <li><span class="parameter">s</span>
+            <span class="types"><a class="type" href="https://www.lua.org/manual/5.4/manual.html#6.4">string</a></span>
+         String to pad
+        </li>
+        <li><span class="parameter">l</span>
+            <span class="types"><span class="type">number</span></span>
+         Length to pad to
+        </li>
+        <li><span class="parameter">p</span>
+            <span class="types"><a class="type" href="https://www.lua.org/manual/5.4/manual.html#6.4">string</a></span>
+         Padding character
+        </li>
+    </ul>
+
+
+
+
+
 </dd>
 </dl>
     <h2 class="section-header "><a name="tostr"></a>tostr </h2>

pico8lib/log.lua

@@ -24,13 +24,12 @@ local P8LIBLOGUTC = false
 -- @tparam string prefix A prefix to prepend to the message
 local function log (any, prefix)
    tz = P8LIBLOGUTC and 80 or 90
-   seconds = stat(tz+5)
    printh(stat(tz) .. "-" ..
-          stat(tz+1) .. "-" ..
-          stat(tz+2) .. " " ..
-          stat(tz+3) .. ":" ..
-          stat(tz+4) .. ":" ..
-          (seconds < 10 and "0" .. seconds or seconds)
+          pad_left(tostr(stat(tz+1)), 2, "0") .. "-" ..
+          pad_left(tostr(stat(tz+2)), 2, "0") .. " " ..
+          pad_left(tostr(stat(tz+3)), 2, "0") .. ":" ..
+          pad_left(tostr(stat(tz+4)), 2, "0") .. ":" ..
+          pad_left(tostr(stat(tz+5)), 2, "0")
           .. " " .. (prefix or "LOG") .. " - " .. tostr(any))
 end
 

pico8lib/strings.lua

@@ -379,3 +379,16 @@ end
 local function starts_with(str, prefix)
  return ssub(str, 0, #prefix) == prefix
 end
+
+
+--- Pad a string on the left
+-- @tparam string s String to pad
+-- @tparam number l Length to pad to
+-- @tparam string p Padding character
+local function pad_left(s, l, p)
+ while #s < l do
+  s = p .. s
+ end
+ return s
+end
+