(define-module (web templates genenetwork)
  #:use-module (web view markdown)

  #:export (default-gn-template))

(define* (default-gn-template path #:optional (title "Default Page Template"))
  "Render `PATH' with a default template and styling that fits in with
 GeneNetwork's look and feel."
  `(html
    (head
     (meta (@ (charset "UTF-8")))
     (meta (@ (name "viewport") (content "width=device-width, initial-scale=1.0")))
     (title ,title)
     (link (@ (rel "stylesheet") (type "text/css")
              (href "/css/gn-template-style.css"))))
    (body
     (header (@ (id "header")) (span (@ (id "header-text")) "GeneNetwork"))
     (main (@ (id "main")) ,(markdown-github->sxml path)))))