diff --git a/R/footnote.R b/R/footnote.R
index f502456..63caf6d 100644
--- a/R/footnote.R
+++ b/R/footnote.R
@@ -1,7 +1,7 @@
-#' Add advanced footnote
+#' Add footnote (new)
 #'
 #' @export
-add_footnote_adv <- function(kable_input,
+footnote <- function(kable_input,
                              general = NULL,
                              number = NULL,
                              alphabet = NULL,
@@ -45,10 +45,10 @@
     kable_format, footnote_titles, footnote_contents
   )
   if (kable_format == "html") {
-    return(add_footnote_adv_html(kable_input, footnote_table, footnote_as_chunk))
+    return(footnote_html(kable_input, footnote_table, footnote_as_chunk))
   }
   # if (kable_format == "latex") {
-  #   return(add_footnote_adv_latex(kable_input, footnote_table))
+  #   return(footnote_latex(kable_input, footnote_table))
   # }
 }
 
@@ -94,12 +94,12 @@
 }
 
 # HTML
-add_footnote_adv_html <- function(kable_input, footnote_table,
+footnote_html <- function(kable_input, footnote_table,
                                   footnote_as_chunk) {
   kable_attrs <- attributes(kable_input)
   kable_xml <- read_kable_as_xml(kable_input)
 
-  new_html_footnote <- adv_html_tfoot_maker(footnote_table, footnote_as_chunk)
+  new_html_footnote <- html_tfoot_maker(footnote_table, footnote_as_chunk)
   xml_add_child(kable_xml, new_html_footnote)
 
   out <- as_kable_xml(kable_xml)
@@ -107,11 +107,11 @@
   return(out)
 }
 
-adv_html_tfoot_maker <- function(footnote_table, footnote_as_chunk) {
+html_tfoot_maker <- function(footnote_table, footnote_as_chunk) {
   footnote_types <- names(footnote_table$contents)
   footnote_text <- c()
   for (i in footnote_types) {
-    footnote_text <- c(footnote_text, adv_html_tfoot_maker_(
+    footnote_text <- c(footnote_text, html_tfoot_maker_(
       footnote_table$contents[[i]], footnote_table$titles[[i]], i,
       footnote_as_chunk))
   }
@@ -122,8 +122,7 @@
   return(xml_child(xml_child(footnote_node, 1), 1))
 }
 
-adv_html_tfoot_maker_ <- function(ft_contents, ft_title, ft_type, ft_chunk) {
-
+html_tfoot_maker_ <- function(ft_contents, ft_title, ft_type, ft_chunk) {
   footnote_text <- apply(ft_contents, 1, function(x) {
     paste0('<sup>', x[1], '</sup> ', x[2])
   })
@@ -139,10 +138,14 @@
   } else {
     footnote_text <- paste0(
       '<tr><td style="padding: 0; border: 0;" colspan="100%">',
-      paste0(footnote_text, collapse = ""),
+      paste0(footnote_text, collapse = " "),
       '</td></tr>'
     )
   }
-  # }
   return(footnote_text)
 }
+
+# LaTeX
+footnote_latex <- function() {
+
+}