typst-chemex/main.typ

#import "@preview/typsium-ghs:0.1.0": *
#import "@preview/one-liner:0.2.0": fit-to-width 
#import "@preview/subpar:0.2.2"
#import "@preview/typsium:0.3.0":*
#import "@preview/typsium-iso-7010:0.1.0": *


#let chemscript(
  language: ("en"),
  title: ("Die Methan-Mamba"),
  title_fontsize: (25pt),
  signs_gridlength: 9,
  ghs_signs: (1,2,3,4,5,),
  fire_signs: (1,),
  warning_signs: (1,1,1),
  mandatory_actions_signs: (1,1,1,),
  tablebreak_bias: (6),
  step_descriptions: ("adwa", "asdwa"),
  step_image_paths: (),
  step_image_size: (5cm),
  image_paths: (),
  image_radius: 2pt,
  material_names: ("asdaw", "asda"),
  materials: ((amount: "20", name: "fischascwd"),(amount: "20", name: "fischascwd")), 
  chemicals: ((amount: "20", name: "fischascwd"),(amount: "20", name: "fischascwd")), 
  safety_notices: ("asdw",),
  observation: ["asdwa",],
  interpretation: [],
  doc
) = {

//tranforms dictionaries to array
let material_names = materials.map(material => text(material.name))
let material_amounts = materials.map(material => text(material.amount))

let chemical_names = chemicals.map(chemical => text(chemical.name))
let chemical_amounts = materials.map(chemical => text(chemical.amount))

let tablecolumns = calc.ceil(material_names.len() / tablebreak_bias)

let has_images = step_image_paths.any(path => path != "" and path != "none")

set text(lang:language)

//Create a breakable Table
let repeated-table(num-repeats: 2, ..args) = {
  let options = args.named()
  let data = args.pos()
  let columns = options.at("columns", default: ())
  let (column-count, columns) = if type(columns) == int {

    (columns, columns * num-repeats)
  } else if type(columns) == array and columns != () {

    (columns.len(), columns * num-repeats)
  } else {
    (1, (auto,) * num-repeats)
  }
  let header = if data.len() > 0 and type(data.first()) == content and data.first().func() == table.header {
    let (children, ..args) = data.remove(0).fields()
    table.header(..args, ..children * num-repeats)
  }
  let footer = if data.len() > 0 and type(data.last()) == content and data.last().func() == table.footer {
    let (children, ..args) = data.pop().fields()
    table.footer(..args, ..children * num-repeats)
  }
  let rows = data.chunks(column-count)
  let num-rows = calc.ceil(rows.len() / num-repeats)
  let repeats = rows.chunks(num-rows)
  let empty-row = (none,) * column-count
  repeats.last() += (empty-row,) * (num-rows - repeats.last().len())
  let rows = array.zip(..repeats)
  data = rows.flatten()
  if header != none {
    data.insert(0, header)
  }
  if footer != none {
    data.push(footer)
  }
  table(..options, ..data)
}

// Style changes to Subpar
let my-subfig(..args) = subpar.grid(

  show-sub-caption: (num, it) => {
    set text(size: 7pt)
    text(weight: "bold", num)
    it.body
  },
 ..args
) 



let steps = step_descriptions.enumerate().map(((i, desc)) => {
  let img = if i < step_image_paths.len() { step_image_paths.at(i) } else { "none" }
  grid(
    columns: if has_images { (1fr, step_image_size) } else { (1fr, auto) },
    align: (horizon+left, horizon+center),
    inset: (top: 5pt, bottom: 5pt, left: 5pt, right: 0pt),
      stroke: (
        top: (paint: black, thickness: 0.1pt, dash: "dashed"),
        bottom: (paint: black, thickness: 0.1pt, dash: "dashed"),
        left: none,
        right: none,
      ),
    pad(top: 0.2cm, bottom: 0.2cm, text("Schritt " + str(i+1) + ":\n" + desc)),
    if img != "none" {
        pad(right: 10pt, block(
  clip: true,
  radius: image_radius,
  image(img)
))
    } else {
      none
    },
  )
})


let figures = image_paths.map(path => block(
  clip: true,
  radius: image_radius,
  image(path)
))


let signgrid = (range(0, signs_gridlength).map(_ => 1fr))
let fillerrow1 = calc.clamp(0,signs_gridlength - ghs_signs.len(),1000)
let fillerrow2 = calc.clamp(0,signs_gridlength - (fire_signs.len() + warning_signs.len() + mandatory_actions_signs.len()),1000)

grid(
  columns: (1fr, 1fr),
  align: (horizon, right),
  stroke: (bottom:0.5pt + black),

  inset: (5pt),
  par(
  text(title, size: title_fontsize)),
  grid(
    columns:  1,
    rows: 2,
    align: right,
    grid(
    columns:  signgrid,
    rows: auto,
    ..(grid.cell(y: 0)[],) * fillerrow1,
    ..(ghs_signs.map(x => ghs(x)))
    ),
    
    grid(
    inset: (left: 1.5pt,right: 1.5pt,top: 1.5pt,bottom: 1.5pt),
    columns:  signgrid,
    rows: auto,
    ..(grid.cell(y: 0)[],) * fillerrow2,
    ..(fire_signs.map(x => fire-sign(x)) +
      warning_signs.map(x => warning-sign(x)) +
      mandatory_actions_signs.map(x => mandatory-actions-sign(x)))
    )
    ))

  


//safety
v(-0.3cm)
show table.cell: set text(size: 6pt)
box( stroke: 0.5pt + red, inset: -1pt, radius: 1pt,
table(
  stroke: none,
  columns: ( 1fr, 1fr, 1fr, 1fr),
  ..safety_notices,
      )
)


// Materials and Overview

show table.cell: set text(size: 9pt)
grid(
  columns: (auto, 1fr),
  stroke: (bottom:0.5pt + black),
  inset: (top: 0pt, bottom: 5pt, left: 5pt, right: 5pt),
  grid(
  rows: (auto),
  text("Material", weight: "bold"),
  v(0.4cm),
  repeated-table(
  num-repeats: tablecolumns,
  stroke: (x, y) =>
  (if y > 0 { (top: (paint: black, thickness: 0.1pt, dash: "dashed")) } else { none }) +
  (if calc.rem(x, 2) == 0 and x > 0 { (left: (paint: black, thickness: 0.1pt, dash: "dashed")) } else { none }),
  
  columns: (auto, auto),
  align: (right, left),
  ..for x in material_amounts.zip(material_names) {(
    ..for y in x {(
      [#y],
    )}
  )}
)

  ),
  grid(
  text("Übersicht", weight: "bold"),
  v(0.4cm),
  my-subfig(
  ..figures,
  columns: (auto, auto),
  ),
  v(0.1cm)
  ),
  )

// Durchführung
grid(
  columns: (1fr),
  stroke: (bottom:0.5pt + black),
  inset: (top: 0pt, bottom: 5pt, left: 5pt, right: 5pt),
  grid(
  rows: (auto),
  text("Durchführung", weight: "bold"),
  v(0.4cm),
  ..steps
  ),
)


//Interpretation


//observation
grid(
  columns: (1fr),
  stroke: (bottom:0.5pt + black),
  inset: (top: 0pt, bottom: 5pt, left: 5pt, right: 5pt),
  grid(
  rows: (auto),
  text("Observation", weight: "bold"),
  v(0.4cm),
  observation,
  ),
)

grid(
  columns: (1fr),
  stroke: (bottom:0.5pt + black),
  inset: (top: 0pt, bottom: 5pt, left: 5pt, right: 5pt),
  grid(
  rows: (auto),
  text("Interpretation", weight: "bold"),
  v(0.4cm),
  interpretation
  ),
)
// Safety Notices
doc
}
// Interpretation