Initial commit: initial implementation.
This commit is contained in:
commit
8515546c89
2
.gitignore
vendored
Normal file
2
.gitignore
vendored
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
pco_chords
|
||||||
|
.*.sw?
|
||||||
14
pco_chords.nimble
Normal file
14
pco_chords.nimble
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
# Package
|
||||||
|
|
||||||
|
version = "0.1.0"
|
||||||
|
author = "Jonathan Bernard"
|
||||||
|
description = "Chord chart formatter compatible with Planning Center Online"
|
||||||
|
license = "MIT"
|
||||||
|
srcDir = "src"
|
||||||
|
installExt = @["nim"]
|
||||||
|
bin = @["pco_chords"]
|
||||||
|
|
||||||
|
|
||||||
|
# Dependencies
|
||||||
|
|
||||||
|
requires "nim >= 1.6.6", "docopt", "zero_functional"
|
||||||
44
src/pco_chords.nim
Normal file
44
src/pco_chords.nim
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
import std/logging, std/strutils
|
||||||
|
import docopt
|
||||||
|
|
||||||
|
import pco_chordspkg/ast, pco_chordspkg/cliconstants, pco_chordspkg/html
|
||||||
|
|
||||||
|
when isMainModule:
|
||||||
|
try:
|
||||||
|
let consoleLogger = newConsoleLogger(
|
||||||
|
levelThreshold=lvlInfo,
|
||||||
|
fmtStr="pco_chords - $levelname: ",
|
||||||
|
useStderr=true)
|
||||||
|
logging.addHandler(consoleLogger)
|
||||||
|
|
||||||
|
# Parse arguments
|
||||||
|
let args = docopt(USAGE, version = PCO_CHORDSVERSION)
|
||||||
|
|
||||||
|
if args["--debug"]:
|
||||||
|
consoleLogger.levelThreshold = lvlDebug
|
||||||
|
|
||||||
|
if args["--echo-args"]: stderr.writeLine($args)
|
||||||
|
|
||||||
|
if args["help"]:
|
||||||
|
stderr.writeLine(USAGE & "\n")
|
||||||
|
stderr.writeLine(ONLINE_HELP)
|
||||||
|
quit()
|
||||||
|
|
||||||
|
let inputText =
|
||||||
|
if args["--input"]: readFile($args["--input"])
|
||||||
|
else: readAll(stdin)
|
||||||
|
|
||||||
|
let ast = parseChordChart(inputText)
|
||||||
|
debug "Parsed AST\p" &
|
||||||
|
"-".repeat(16) & "\p" &
|
||||||
|
$ast & "\p" &
|
||||||
|
"-".repeat(16) & "\p"
|
||||||
|
|
||||||
|
let outputHtml = ast.toHtml()
|
||||||
|
if args["--output"]: writeFile($args["--output"], outputHtml)
|
||||||
|
else: stdout.write(outputHtml)
|
||||||
|
|
||||||
|
except:
|
||||||
|
fatal getCurrentExceptionMsg()
|
||||||
|
#raise getCurrentException()
|
||||||
|
quit(QuitFailure)
|
||||||
322
src/pco_chordspkg/ast.nim
Normal file
322
src/pco_chordspkg/ast.nim
Normal file
@ -0,0 +1,322 @@
|
|||||||
|
import std/nre, std/strtabs, std/strutils
|
||||||
|
import zero_functional
|
||||||
|
|
||||||
|
type
|
||||||
|
ChordChartMetadata* = object
|
||||||
|
title*: string
|
||||||
|
key*: ChordChartPitch
|
||||||
|
optionalProps: StringTableRef
|
||||||
|
|
||||||
|
ChordChart* = ref object
|
||||||
|
rawContent*: string
|
||||||
|
metadata*: ChordChartMetadata
|
||||||
|
nodes*: seq[ChordChartNode]
|
||||||
|
|
||||||
|
ChordChartNodeKind* = enum
|
||||||
|
ccnkSection,
|
||||||
|
ccnkLine,
|
||||||
|
ccnkWord,
|
||||||
|
ccnkNote,
|
||||||
|
ccnkColBreak,
|
||||||
|
ccnkPageBreak,
|
||||||
|
ccnkTransposeKey,
|
||||||
|
ccnkRedefineKey
|
||||||
|
|
||||||
|
ChordChartPitch* = enum Af, A, Bf, B, C, Df, D, Ef, E, F, Fs, G
|
||||||
|
|
||||||
|
ChordChartNode* = ref object
|
||||||
|
case kind: ChordChartNodeKind
|
||||||
|
of ccnkSection:
|
||||||
|
sectionName*: string
|
||||||
|
sectionContents*: seq[ChordChartNode]
|
||||||
|
of ccnkLine:
|
||||||
|
line*: seq[ChordChartNode]
|
||||||
|
of ccnkWord:
|
||||||
|
spaceBefore*: bool
|
||||||
|
spaceAfter*: bool
|
||||||
|
chord*: string
|
||||||
|
word*: string
|
||||||
|
of ccnkNote:
|
||||||
|
note*: string
|
||||||
|
inclInLyrics*: bool
|
||||||
|
of ccnkColBreak: discard
|
||||||
|
of ccnkPageBreak: discard
|
||||||
|
of ccnkTransposeKey:
|
||||||
|
transposeSteps*: int
|
||||||
|
of ccnkRedefineKey:
|
||||||
|
newKey*: ChordChartPitch
|
||||||
|
|
||||||
|
ParserContext = ref object
|
||||||
|
lines: seq[string]
|
||||||
|
curKeyCenter: ChordChartPitch
|
||||||
|
curLine: int
|
||||||
|
curNode: ChordChartNode
|
||||||
|
|
||||||
|
func `[]`*(ccmd: ChordChartMetadata, key: string): string =
|
||||||
|
ccmd.optionalProps[key]
|
||||||
|
|
||||||
|
func contains*(ccmd: ChordChartMetadata, key: string): bool =
|
||||||
|
return key == "title" or key == "key" or ccmd.optionalProps.contains(key)
|
||||||
|
|
||||||
|
iterator pairs*(ccmd: ChordChartMetadata): tuple[key, value: string] =
|
||||||
|
yield ("title", ccmd.title)
|
||||||
|
yield ("key", $ccmd.key)
|
||||||
|
for p in ccmd.optionalProps.pairs: yield p
|
||||||
|
|
||||||
|
func kind*(ccn: ChordChartNode): ChordChartNodeKind = ccn.kind
|
||||||
|
|
||||||
|
func `$`*(pitch: ChordChartPitch): string =
|
||||||
|
case pitch
|
||||||
|
of Af: "Ab"
|
||||||
|
of A: "A"
|
||||||
|
of Bf: "Bb"
|
||||||
|
of B: "B"
|
||||||
|
of C: "C"
|
||||||
|
of Df: "Db"
|
||||||
|
of D: "D"
|
||||||
|
of Ef: "Eb"
|
||||||
|
of E: "E"
|
||||||
|
of F: "F"
|
||||||
|
of Fs: "F#"
|
||||||
|
of G: "G"
|
||||||
|
|
||||||
|
func dump*(m: ChordChartMetadata, indent = ""): string =
|
||||||
|
return indent & "Metadata\p" & join(m.pairs --> map(indent & " " & it.key & ": " & it.value), "\p")
|
||||||
|
|
||||||
|
func dump*(ccn: ChordChartNode, indent = ""): string =
|
||||||
|
case ccn.kind
|
||||||
|
|
||||||
|
of ccnkSection:
|
||||||
|
let formattedChildren = ccn.sectionContents --> map(dump(it, indent & " "))
|
||||||
|
result = indent & "Section -- " & ccn.sectionName & "\p" &
|
||||||
|
formattedChildren.join("\p")
|
||||||
|
|
||||||
|
of ccnkColBreak: result = indent & "Column Break"
|
||||||
|
of ccnkPageBreak: result = indent & "Page Break"
|
||||||
|
|
||||||
|
of ccnkTransposeKey:
|
||||||
|
result = indent & "Transpose key by " & $ccn.transposeSteps
|
||||||
|
|
||||||
|
of ccnkRedefineKey:
|
||||||
|
result = indent & "Redefine key to " & $ccn.newKey
|
||||||
|
|
||||||
|
of ccnkLine:
|
||||||
|
result = indent & "Line\p"
|
||||||
|
for child in ccn.line:
|
||||||
|
let formattedChild = dump(child, indent)
|
||||||
|
if child.kind == ccnkWord: result &= formattedChild
|
||||||
|
else: result &= formattedChild & "\p"
|
||||||
|
|
||||||
|
of ccnkWord:
|
||||||
|
result = ""
|
||||||
|
if ccn.spaceBefore: result &= " "
|
||||||
|
if ccn.chord.len > 0: result &= "[" & ccn.chord & "]"
|
||||||
|
result &= ccn.word
|
||||||
|
if ccn.spaceAfter: result &= " "
|
||||||
|
|
||||||
|
of ccnkNote:
|
||||||
|
result = indent & "Note "
|
||||||
|
if not ccn.inclInLyrics: result &= "(chords only) "
|
||||||
|
result &= ccn.note
|
||||||
|
|
||||||
|
func `$`*(cc: ChordChart): string =
|
||||||
|
result = "ChordChart\p" &
|
||||||
|
dump(cc.metadata, " ") & "\p" &
|
||||||
|
join(cc.nodes --> map(dump(it, " ")), "\p")
|
||||||
|
|
||||||
|
# -----------------------------------------------------------------------------
|
||||||
|
# PARSER
|
||||||
|
# -----------------------------------------------------------------------------
|
||||||
|
|
||||||
|
template makeError(ctx: ParserContext, msg: string): untyped =
|
||||||
|
newException(ValueError,
|
||||||
|
"error parsing input at line " & $ctx.curLine & ":\p\t" & msg)
|
||||||
|
|
||||||
|
template addToCurSection(n: ChordChartNode): untyped =
|
||||||
|
if ctx.curNode.kind == ccnkSection: ctx.curNode.sectionContents.add(n)
|
||||||
|
else: result.add(n)
|
||||||
|
|
||||||
|
func parsePitch*(ctx: ParserContext, keyValue: string): ChordChartPitch =
|
||||||
|
case keyValue.strip.toLower
|
||||||
|
of "gs", "gis", "g#", "ab", "af", "aes": return ChordChartPitch.Af
|
||||||
|
of "a": return ChordChartPitch.A
|
||||||
|
of "as", "ais", "a#", "bf", "bb", "bes": return ChordChartPitch.Bf
|
||||||
|
of "b", "ces", "cf": return ChordChartPitch.B
|
||||||
|
of "bs", "bis", "b#", "c": return ChordChartPitch.C
|
||||||
|
of "cs", "cis", "c#", "df", "db", "des": return ChordChartPitch.Df
|
||||||
|
of "d": return ChordChartPitch.D
|
||||||
|
of "ds", "dis", "d#", "ef", "eb", "ees": return ChordChartPitch.Ef
|
||||||
|
of "e", "fes", "ff": return ChordChartPitch.E
|
||||||
|
of "es", "eis", "e#", "f": return ChordChartPitch.F
|
||||||
|
of "fs", "fis", "f#", "gf", "gb", "ges": return ChordChartPitch.Fs
|
||||||
|
of "g": return ChordChartPitch.G
|
||||||
|
else: raise ctx.makeError(keyValue.strip & " is not a recognized key.")
|
||||||
|
|
||||||
|
let METADATA_LINE_PAT = re"^([^:]+):(.*)$"
|
||||||
|
let METADATA_END_PAT = re"^-+$"
|
||||||
|
proc parseMetadata(ctx: var ParserContext): ChordChartMetadata =
|
||||||
|
|
||||||
|
var title = "MISSING"
|
||||||
|
var songKey = "MISSING"
|
||||||
|
var optProps = newStringTable()
|
||||||
|
|
||||||
|
while ctx.curLine < ctx.lines.len:
|
||||||
|
let line = ctx.lines[ctx.curLine]
|
||||||
|
|
||||||
|
if line.match(METADATA_END_PAT).isSome:
|
||||||
|
ctx.curLine += 1
|
||||||
|
break
|
||||||
|
|
||||||
|
let m = line.match(METADATA_LINE_PAT)
|
||||||
|
if m.isNone:
|
||||||
|
raise ctx.makeError("expected metadata property or ending marker")
|
||||||
|
|
||||||
|
let key = m.get.captures[0].strip.tolower
|
||||||
|
let value = m.get.captures[1].strip
|
||||||
|
if key == "title": title = value
|
||||||
|
elif key == "key": songKey = value
|
||||||
|
else: optProps[key] = value
|
||||||
|
ctx.curLine += 1
|
||||||
|
|
||||||
|
if title == "MISSING":
|
||||||
|
raise ctx.makeError("metadata is missing the 'title' property")
|
||||||
|
|
||||||
|
if songKey == "MISSING":
|
||||||
|
raise ctx.makeError("metadata is missing the 'key' property")
|
||||||
|
|
||||||
|
result = ChordChartMetadata(
|
||||||
|
title: title,
|
||||||
|
key: ctx.parsePitch(songKey),
|
||||||
|
optionalProps: optProps)
|
||||||
|
|
||||||
|
let SECTION_LINE_PAT = re"^((?i)(chorus|verse|bridge|breakdown|vamp) ?\d*\s*)|([[:upper:]]+\s*)$"
|
||||||
|
let COL_BREAK_PAT = re"\s*COLUMN_BREAK\s*$"
|
||||||
|
let PAGE_BREAK_PAT = re"\s*PAGE_BREAK\s*$"
|
||||||
|
let TRANSPOSE_PAT = re"\s*TRANSPOSE KEY ([+-]\d+)\s*$"
|
||||||
|
let REDEFINE_KEY_PAT = re"\s*REDEFINE KEY ([+-]\d+)\s*$"
|
||||||
|
let NOTE_PAT = re"^(.*)({{[^}]+}}|{[^}]+})(.*)$"
|
||||||
|
let SPACE_PAT = re"\s"
|
||||||
|
let CHORD_IN_LYRICS_PAT = re"(\w+)(\[.+)"
|
||||||
|
let CHORD_AND_LYRICS_PAT = re"^\[([^\]]+)\]([^\s\[]+)(.*)$"
|
||||||
|
let CHORD_PAT = re"^\[([^\]]+)\]$"
|
||||||
|
|
||||||
|
proc parseLineParts(parts: varargs[string]): seq[ChordChartNode] =
|
||||||
|
result = @[]
|
||||||
|
for p in parts:
|
||||||
|
var m = p.match(NOTE_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
if m.get.captures[0].len > 0: result &= parseLineParts(m.get.captures[0])
|
||||||
|
result.add(ChordChartNode(
|
||||||
|
kind: ccnkNote,
|
||||||
|
note: m.get.captures[1].strip(chars = {'{', '}', ' '}),
|
||||||
|
inclInLyrics: not m.get.captures[1].startsWith("{{")))
|
||||||
|
if m.get.captures[2].len > 0: result &= parseLineParts(m.get.captures[2])
|
||||||
|
continue
|
||||||
|
|
||||||
|
m = p.match(SPACE_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
result &= parseLineParts(p.splitWhitespace)
|
||||||
|
continue
|
||||||
|
|
||||||
|
m = p.match(CHORD_IN_LYRICS_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
result &= parseLineParts(m.get.captures[0], m.get.captures[1])
|
||||||
|
continue
|
||||||
|
|
||||||
|
m = p.match(CHORD_AND_LYRICS_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
result.add(ChordChartNode(
|
||||||
|
kind: ccnkWord,
|
||||||
|
spaceAfter: true, #FIXME
|
||||||
|
spaceBefore: true, #FIXME
|
||||||
|
chord: m.get.captures[0],
|
||||||
|
word: m.get.captures[1]))
|
||||||
|
result &= parseLineParts(m.get.captures[2])
|
||||||
|
continue
|
||||||
|
|
||||||
|
m = p.match(CHORD_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
result.add(ChordChartNode(
|
||||||
|
kind: ccnkWord,
|
||||||
|
spaceAfter: false, #FIXME
|
||||||
|
spaceBefore: false, #FIXME
|
||||||
|
chord: m.get.captures[0],
|
||||||
|
word: ""))
|
||||||
|
continue
|
||||||
|
|
||||||
|
if p.len > 0:
|
||||||
|
result.add(ChordChartNode(
|
||||||
|
kind: ccnkWord,
|
||||||
|
spaceAfter: true, #FIXME
|
||||||
|
spaceBefore: true, #FIXME
|
||||||
|
chord: "",
|
||||||
|
word: p))
|
||||||
|
|
||||||
|
proc parseLine(line: string): ChordChartNode =
|
||||||
|
result = ChordChartNode(
|
||||||
|
kind: ccnkLine,
|
||||||
|
line: parseLineParts(line.splitWhitespace))
|
||||||
|
|
||||||
|
proc parseBody(ctx: var ParserContext): seq[ChordChartNode] =
|
||||||
|
result = @[]
|
||||||
|
while ctx.curLine < ctx.lines.len:
|
||||||
|
let line = ctx.lines[ctx.curLine]
|
||||||
|
ctx.curLine += 1
|
||||||
|
|
||||||
|
var m = line.match(SECTION_LINE_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
ctx.curNode = ChordChartNode(
|
||||||
|
kind: ccnkSection,
|
||||||
|
sectionName: line.strip,
|
||||||
|
sectionContents: @[])
|
||||||
|
result.add(ctx.curNode)
|
||||||
|
continue
|
||||||
|
|
||||||
|
# FIXME: as implemented, this will not allow column breaks within a section
|
||||||
|
m = line.match(COL_BREAK_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
result.add(ChordChartNode(kind: ccnkColBreak))
|
||||||
|
continue
|
||||||
|
|
||||||
|
# FIXME: as implemented, this will not allow page breaks within a section
|
||||||
|
m = line.match(PAGE_BREAK_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
result.add(ChordChartNode(kind: ccnkPageBreak))
|
||||||
|
continue
|
||||||
|
|
||||||
|
m = line.match(TRANSPOSE_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
addToCurSection(ChordChartNode(
|
||||||
|
kind: ccnkTransposeKey,
|
||||||
|
transposeSteps: parseInt(m.get.captures[0])))
|
||||||
|
continue
|
||||||
|
|
||||||
|
m = line.match(REDEFINE_KEY_PAT)
|
||||||
|
if m.isSome:
|
||||||
|
let newKeyInt = (
|
||||||
|
cast[int](ctx.curKeyCenter) +
|
||||||
|
parseInt(m.get.captures[0])
|
||||||
|
) mod 12
|
||||||
|
|
||||||
|
addToCurSection(ChordChartNode(
|
||||||
|
kind: ccnkRedefineKey,
|
||||||
|
newKey: cast[ChordChartPitch](newKeyInt)))
|
||||||
|
continue
|
||||||
|
|
||||||
|
else:
|
||||||
|
addToCurSection(parseLine(line))
|
||||||
|
continue
|
||||||
|
|
||||||
|
|
||||||
|
proc parseChordChart*(s: string): ChordChart =
|
||||||
|
var parserCtx = ParserContext(
|
||||||
|
lines: s.splitLines,
|
||||||
|
curLine: 0)
|
||||||
|
|
||||||
|
let metadata = parseMetadata(parserCtx)
|
||||||
|
parserCtx.curKeyCenter = metadata.key
|
||||||
|
|
||||||
|
result = ChordChart(
|
||||||
|
rawContent: s,
|
||||||
|
metadata: metadata,
|
||||||
|
nodes: parseBody(parserCtx))
|
||||||
22
src/pco_chordspkg/cliconstants.nim
Normal file
22
src/pco_chordspkg/cliconstants.nim
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
const PCO_CHORDS_VERSION* = "0.1.0"
|
||||||
|
|
||||||
|
const USAGE* = """Usage:
|
||||||
|
pco_chords [options]
|
||||||
|
pco_chords help [options]
|
||||||
|
|
||||||
|
Options:
|
||||||
|
|
||||||
|
-i, --input <in-file> Read input from <in-file> (rather than from
|
||||||
|
STDIN, which is the default).
|
||||||
|
|
||||||
|
-o, --output <out-file> Write output to <out-file> (rather than from
|
||||||
|
STDOUT, which is the default).
|
||||||
|
|
||||||
|
--help Print this usage information
|
||||||
|
--debug Enable debug logging.
|
||||||
|
--echo-args Echo the input parameters.
|
||||||
|
"""
|
||||||
|
|
||||||
|
const ONLINE_HELP* = """
|
||||||
|
|
||||||
|
"""
|
||||||
129
src/pco_chordspkg/html.nim
Normal file
129
src/pco_chordspkg/html.nim
Normal file
@ -0,0 +1,129 @@
|
|||||||
|
import std/logging, std/os, std/strutils
|
||||||
|
import zero_functional
|
||||||
|
|
||||||
|
import ./ast
|
||||||
|
|
||||||
|
const DEFAULT_STYLESHEET* = """
|
||||||
|
<style>
|
||||||
|
* {
|
||||||
|
box-sizing: border-box;
|
||||||
|
margin: 0;
|
||||||
|
padding: 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
html { font-family: sans-serif; }
|
||||||
|
|
||||||
|
h2 { font-size: 1.25em; }
|
||||||
|
|
||||||
|
section { margin-top: 1em; }
|
||||||
|
|
||||||
|
h3 {
|
||||||
|
font-size: 1.125rem;
|
||||||
|
margin-bottom: 0.5em;
|
||||||
|
text-decoration: underline;
|
||||||
|
}
|
||||||
|
|
||||||
|
.line {
|
||||||
|
display: flex;
|
||||||
|
flex-direction: row;
|
||||||
|
align-items: flex-end;
|
||||||
|
|
||||||
|
margin-left: 0.5em;
|
||||||
|
margin-bottom: 0.5em;
|
||||||
|
}
|
||||||
|
|
||||||
|
.word {
|
||||||
|
display: flex;
|
||||||
|
flex-direction: column;
|
||||||
|
align-items: flex-start;
|
||||||
|
}
|
||||||
|
|
||||||
|
.word.space-after { margin-right: 0.5em; }
|
||||||
|
|
||||||
|
.chord {
|
||||||
|
font-weight: 600;
|
||||||
|
margin-right: 0.5em;
|
||||||
|
}
|
||||||
|
|
||||||
|
@media screen {
|
||||||
|
body { margin: 1em; }
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
"""
|
||||||
|
|
||||||
|
proc toHtml(node: ChordChartNode, indent: string): string =
|
||||||
|
result = ""
|
||||||
|
case node.kind
|
||||||
|
of ccnkSection:
|
||||||
|
result &= indent & "<section>\p" &
|
||||||
|
indent & " " & "<h3>" & node.sectionName & "</h3>\p"
|
||||||
|
|
||||||
|
result &= join(
|
||||||
|
node.sectionContents --> map(it.toHtml(indent & " ")),
|
||||||
|
"\p")
|
||||||
|
|
||||||
|
result &= indent & "</section>"
|
||||||
|
|
||||||
|
of ccnkLine:
|
||||||
|
result &= indent & "<div class=line>\p"
|
||||||
|
result &= join(node.line --> map(it.toHtml(indent & " ")), "")
|
||||||
|
result &= indent & "</div>"
|
||||||
|
|
||||||
|
of ccnkWord:
|
||||||
|
result &= "<span class='word"
|
||||||
|
#if node.spaceBefore: result&=" space-before"
|
||||||
|
if node.spaceAfter: result&=" space-after"
|
||||||
|
result &= "'>"
|
||||||
|
|
||||||
|
if node.chord.len > 0:
|
||||||
|
result &= "<span class=chord>" & node.chord & "</span>"
|
||||||
|
|
||||||
|
result &= "<span class=lyric>"
|
||||||
|
if node.word.len > 0: result &= node.word
|
||||||
|
else: result &= " "
|
||||||
|
result &= "</span>"
|
||||||
|
|
||||||
|
result &= "</span>"
|
||||||
|
|
||||||
|
of ccnkNote:
|
||||||
|
result &= indent & "<div class=note>" & node.note & "</div>"
|
||||||
|
|
||||||
|
of ccnkColBreak: discard #FIXME
|
||||||
|
of ccnkPageBreak: discard #FIXME
|
||||||
|
of ccnkTransposeKey: discard #FIXME
|
||||||
|
of ccnkRedefineKey: discard #FIXME
|
||||||
|
|
||||||
|
proc toHtml*(
|
||||||
|
cc: ChordChart,
|
||||||
|
stylesheets = @[DEFAULT_STYLESHEET],
|
||||||
|
scripts: seq[string] = @[]): string =
|
||||||
|
|
||||||
|
result = """<!doctype html>
|
||||||
|
<html>
|
||||||
|
<head>
|
||||||
|
<title>""" & cc.metadata.title & "</title>\p"
|
||||||
|
|
||||||
|
for ss in stylesheets:
|
||||||
|
if ss.startsWith("<style>"): result &= ss
|
||||||
|
elif fileExists(ss): result &= "<style>\p" & readFile(ss) & "\p</style>"
|
||||||
|
else: warn "cannot read stylesheet file '" & ss & "'"
|
||||||
|
|
||||||
|
for sc in scripts:
|
||||||
|
if sc.startsWith("<script"): result &= sc
|
||||||
|
elif fileExists(sc): result &= "<script>\p" & readFile(sc) & "\p</script>"
|
||||||
|
else: warn "cannot read script file '" & sc & "'"
|
||||||
|
|
||||||
|
result &= " </head>\p <body>"
|
||||||
|
|
||||||
|
var indent = " "
|
||||||
|
#
|
||||||
|
# Title
|
||||||
|
result &= indent & "<h1>" & cc.metadata.title & "</h1>\p"
|
||||||
|
|
||||||
|
result &= indent & "<h2>Key: " & $cc.metadata.key
|
||||||
|
if cc.metadata.contains("bpm"): result &= " " & cc.metadata["bpm"] & "bpm"
|
||||||
|
result &= "</h2>\p"
|
||||||
|
|
||||||
|
result &= join(cc.nodes --> map(it.toHtml(indent & " ")), "\p")
|
||||||
|
|
||||||
|
result &= " </body>\p</html>"
|
||||||
Loading…
x
Reference in New Issue
Block a user