lib.typ

#let layouts = (
  "small": ("height": 9cm, "space": 1.4cm),
  "medium": ("height": 10.5cm, "space": 1.6cm),
  "large": ("height": 12cm, "space": 1.8cm),
)

#let slides(
  content,
  title: none,
  subtitle: none,
  date: none,
  authors: (),
  layout: "medium",
  ratio: 4/3,
  title-color: none,
  counter: true,
  footer: true,
  toc: true,
  code-styling: true
) = {

  // Parsing
  if layout not in layouts {
      panic("Unknown layout " + layout)
  }
  let (height, space) = layouts.at(layout)
  let width = ratio * height

  // Colors
  if title-color == none {
      title-color = blue.darken(50%)
  }
  let body-color = title-color.lighten(80%)
  let header-color = title-color.lighten(65%)
  let fill-color = title-color.lighten(50%)

  // Setup
  set document(
    title: title,
    author: authors,
  )
  set heading(numbering: "1.a")
  set page(
    width: width,
    height: height,
    margin: (x: 0.5 * space, top: space, bottom: 0.6 * space),
    header: [
      #context {  
        let page = here().page()
        let headings = query(selector(heading.where(level: 2)))
        let heading = headings.rev().find(x => x.location().page() <= page)
        if heading != none {
          set align(top)
          set text(1.4em, weight: "bold", fill: title-color)
          v(space / 2)
          block(heading.body +
            if not heading.location().page() == page [
              #{numbering("(i)", page - heading.location().page() + 1)}
            ]
          )
        }
    }
    // Counter
    #if counter == true {
      v(-space/1.5)
      align(right+top)[
      // Dots before the current slide
      #context {
        let before = query(selector(heading).before(here()))
        for i in before {
          [
            #link(i.location())[
              #box(circle(radius: 0.08cm, fill: fill-color, stroke: 1pt+fill-color)) 
            ]
          ]
        }   
      }
      // current slide
      #context {
        let current = query(selector(heading).after(here())).first()
        link(current.location())[
              #box(circle(radius: 0.08cm, fill: fill-color, stroke: 1pt+fill-color)) 
            ]
      }
      // Dots after current slide
      #context {
        let after = query(selector(heading).after(here())).slice(1)
        for i in after {
          [
            #link(i.location())[
              #box(circle(radius: 0.08cm, stroke: 1pt+fill-color))
            ]
          ]
        }   
      }
    ] 
    }
  ],
    header-ascent: 0%,
    // Footer
    footer: [
      #if footer == true {
        
        set text(0.7em)
        box()[#line(length: 50%, stroke: 2pt+fill-color )]
        box()[#line(length: 50%, stroke: 2pt+body-color)]
        v(-0.3cm)
        grid(
          columns: (1fr, 1fr),
          align: (right,left),
          inset: 4pt,
          [#smallcaps()[#title]],
          [ #if subtitle != none {
              subtitle
            } else if authors != none {
                if (type(authors) != array) {authors = (authors,)}
                authors.join(", ", last: " and ")
              } else [#date]
          ],
          
        )
    } 
    ],
    footer-descent:0.8em,
  )

  
  set bibliography(
    title: none
  )


  // Section Slides
  show heading.where(level: 1): x => {
    set page(header: none,footer: none, margin: 0cm)
    set align(horizon)
      grid(
        columns: (1fr, 3fr),
        inset: 10pt,
        align: (right,left),
        fill: (title-color, white),
        [#block(height: 100%)],[#text(1.2em, weight: "bold", fill: title-color)[#x]]
      )

  }
  show heading.where(level: 2): pagebreak(weak: true)
  show heading: set text(1.1em, fill: title-color)

  // Title Slide
  if (title == none) {
    panic("A title is required")
  }
  else {
    if (type(authors) != array) {
      authors = (authors,)
    }
    set page(footer: none, header: none, margin: 0cm)
    block(
      inset: (x:0.5*space, y:1em),
      fill: title-color,
      width: 100%,
      height: 60%,
      align(bottom)[#text(2.0em, weight: "bold", fill: white, title)]
    )
    block(
      height: 30%,
      width: 100%,
      inset: (x:0.5*space,top:0cm, bottom: 1em),
      if subtitle != none {[
        #text(1.4em, fill: title-color, weight: "bold", subtitle)
      ]} + 
      if subtitle != none and date != none { text(1.4em)[ \ ] } +
      if date != none {text(1.1em, date)} +
      align(left+bottom, authors.join(", ", last: " and "))
    )
  }



  // Additional Styling (Term, Code)
  show terms.item: it => {
    set block(width: 100%, inset: 5pt)
    stack(
      block(fill: header-color, radius: (top: 0.2em, bottom: 0cm), strong(it.term)),
      block(fill: body-color.lighten(20%), radius: (top: 0cm, bottom: 0.2em), it.description),
    )
  }

  if (code-styling == true) {
    show raw.where(block: false): it => {
      box(fill: body-color.lighten(40%), inset: 1pt, radius: 1pt, baseline: 1pt)[#text(size:8pt ,it)]
    }

    show raw.where(block: true): it => { 
      block(radius: 0.5em, fill: body-color.lighten(40%), 
            width: 100%, inset: 1em, it)
    }

  }
  show list: set list(marker: (
    text(fill: title-color)[•],
    text(fill: title-color)[‣],
    text(fill: title-color)[-],
  ))

  show table: set table(
    stroke: (x, y) => (
      x: none,
      bottom: 0.8pt+black,
      top: if y == 0 {0.8pt+black} else if y==1 {0.4pt+black} else { 0pt },
    )
  )
  
  show table.cell.where(y: 0): set text(
    style: "normal", weight: "bold") // for first / header row

  set table.hline(stroke: 0.4pt+black)
  set table.vline(stroke: 0.4pt)

  // Outline
  set outline(
    // target: heading.where(level: 1),
    indent: true,
  )
  show outline: set heading(level: 2)

  if (toc == true) {
    outline()
  }

  // Content
  content
}