diff options
| -rw-r--r-- | kaakaa/tea.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/kaakaa/tea.scm b/kaakaa/tea.scm index a4cf250..b7eaadc 100644 --- a/kaakaa/tea.scm +++ b/kaakaa/tea.scm @@ -197,6 +197,23 @@ in @var{state}." (focus (state-cwd session-id) state))))))) +(define (markdown-table lines) + "Return a markdown table built from @var{lines}. Each line is a list of strings, +each string the contents of a cell. The first line is considered the header of +the table." + (define (cells->line cells) + (string-append "| " + (string-join cells " | ") + " |")) + + (match lines + ((header other-lines ...) + (string-join (cons* (cells->line header) + (cells->line (make-list (length header) "---")) + (map cells->line + other-lines)) + "\n")))) + (define %commands `(("cwd" . ,%cwd-command))) |