Maintain name consistency

dev.metalisp.sbt.asd

@@ -22,7 +22,7 @@
                  (:file "navbar")
                  (:file "nav-tab")
                  (:file "pagination")
-                 (:file "table")
+                 (:file "tbl")
                  (:file "spinner")
                  (:file "form")
                  (:file "section")

src/table.lisp

@@ -1,6 +1,6 @@
 (defpackage ml-sbt/tbl
   (:use :cl)
-  (:export :render-table :render-table-header :render-table-body))
+  (:export :render-tbl :render-tbl-header :render-tbl-body))
 
 (in-package :ml-sbt/tbl)
 
@@ -9,14 +9,14 @@
       (format nil "~,9f" content)
       content))
 
-(defun render-table-header (headers)
+(defun render-tbl-header (headers)
   (spinneret:with-html
     (:thead
       (:tr
         (loop for header in headers
               do (:th :scope "col" (format-cell-content header)))))))
 
-(defun render-table-body (rows)
+(defun render-tbl-body (rows)
   (spinneret:with-html
     (:tbody
       (loop for row in rows
@@ -24,7 +24,7 @@
                  (loop for cell in row
                        do (:td (escape-cell-content cell))))))))
 
-(defun render-table (headers rows &key (class "table"))
+(defun render-tbl (headers rows &key (class "table"))
   (spinneret:with-html
     (:table :class class
       (render-table-header headers)