mirror of
https://github.com/zedeus/nitter.git
synced 2024-11-15 21:21:09 +00:00
59 lines
1.9 KiB
Nim
59 lines
1.9 KiB
Nim
import tables, macros
|
|
import karax/[karaxdsl, vdom, vstyles]
|
|
|
|
import ../types, ../prefs
|
|
|
|
proc genCheckbox(pref, label: string; state: bool): VNode =
|
|
buildHtml(tdiv(class="pref-group")):
|
|
if state:
|
|
input(name=pref, `type`="checkbox", checked="")
|
|
else:
|
|
input(name=pref, `type`="checkbox")
|
|
label(`for`=pref): text label
|
|
|
|
proc genSelect(pref, label, state: string; options: seq[string]): VNode =
|
|
buildHtml(tdiv(class="pref-group")):
|
|
select(name=pref):
|
|
for opt in options:
|
|
if opt == state:
|
|
option(value=opt, selected=""): text opt
|
|
else:
|
|
option(value=opt): text opt
|
|
label(`for`=pref): text label
|
|
|
|
proc genInput(pref, label, state, placeholder: string): VNode =
|
|
buildHtml(tdiv(class="pref-group")):
|
|
input(name=pref, `type`="text", placeholder=placeholder, value=state)
|
|
label(`for`=pref): text label
|
|
|
|
macro renderPrefs*(): untyped =
|
|
result = nnkCall.newTree(
|
|
ident("buildHtml"), ident("tdiv"), nnkStmtList.newTree())
|
|
|
|
for header, options in prefList:
|
|
result[2].add nnkCall.newTree(
|
|
ident("legend"),
|
|
nnkStmtList.newTree(
|
|
nnkCommand.newTree(ident("text"), newLit(header))))
|
|
|
|
for pref in options:
|
|
let procName = ident("gen" & capitalizeAscii($pref.kind))
|
|
let state = nnkDotExpr.newTree(ident("prefs"), ident(pref.name))
|
|
var stmt = nnkStmtList.newTree(
|
|
nnkCall.newTree(procName, newLit(pref.name), newLit(pref.label), state))
|
|
|
|
case pref.kind
|
|
of checkbox: discard
|
|
of select: stmt[0].add newLit(pref.options)
|
|
of input: stmt[0].add newLit(pref.placeholder)
|
|
|
|
result[2].add stmt
|
|
|
|
proc renderPreferences*(prefs: Prefs): VNode =
|
|
buildHtml(tdiv(class="preferences-container")):
|
|
form(class="preferences", `method`="post", action="saveprefs"):
|
|
fieldset:
|
|
renderPrefs()
|
|
|
|
button(`type`="submit", class="pref-submit"):
|
|
text "Save preferences"
|