library(xml2)

get_svg_attrs <- function(path) {
  
  files <- list.files(path, full.names = T)
  files <- sort(files)
  tempdf <- data.frame()
  
  for (i in seq_along(files)) {
    this <- files[i]
    svg_in <- read_xml(
      x = this,
      encoding = "UTF-8",
      options = c("PEDANTIC", "NOBLANKS", "NSCLEAN")
    )
    svg_in <- xml_ns_strip(svg_in)
    svg_in <- xml_find_first(svg_in, "/svg")
    viewBox <- strsplit(xml_attr(svg_in, "viewBox"), " ")[[1]]
    
    tempdf <- rbind(
      tempdf,
      data.frame(
        name = basename(this),
        width =  as.numeric(xml_attr(svg_in, "width")),
        height = as.numeric(xml_attr(svg_in, "height")),
        xmin =   as.numeric(viewBox[1]),
        ymin =   as.numeric(viewBox[2]),
        xsize =  as.numeric(viewBox[3]),
        ysize =  as.numeric(viewBox[4])
      )
    )
  }
  return(tempdf)
}

df_light <- get_svg_attrs("~/organicmaps/data/styles/default/light/symbols/")
df_dark <- get_svg_attrs("~/organicmaps/data/styles/default/dark/symbols")

svgnames <- unique(c(df_light$name, df_dark$name))
cat("Total of", length(svgnames), "unique SVG file names\n\n")

for (i in svgnames) {
  x0 <- df_light[df_light$name == i, ]
  x1 <- df_dark[df_dark$name == i, ]
  row.names(x0) <- NULL
  row.names(x1) <- NULL
  
  if (!isTRUE(all.equal(x0, x1))) {
    
    if (nrow(x0) == 0) {
      cat("File missing from style-clear \n")
    }
    else if (nrow(x1) == 0) {
      cat("File missing from style-night \n")
    } else {
      cat("Different attributes for clear and night \n")
    }
    
    print(rbind(x0, x1), row.names = F)
    cat("\n\n")
    
  } else {
    
    if (x0$width %% 1 != 0 || x0$height %% 1 != 0) {
      if(!grepl("subway-", i)) { # Skip subway icons for now
        cat("Non-integer width or height \n")
        print(x0, row.names = F)
        cat("\n\n")
      }
    }
    
    if (x0$xmin != 0 || x0$ymin != 0) {
      cat("Viewbox start is not (0,0) \n")
      print(x0, row.names = F)
      cat("\n\n")
    }
  }
}

## Wiki page ----

df_all <- merge(df_light, df_dark, by = c(
  "name","width","height","xmin","ymin","xsize","ysize"), all = TRUE)
x <- "
|name|light|dark|width|height|
|-|-|-|-|-|
"
for(i in seq_along(df_all$name)) {
  name <- df_all$name[i]
  url0 <- paste0(
    '<img src="https://raw.githubusercontent.com/organicmaps/organicmaps/master/data/styles/default/light/symbols/',
    name,
    '"/>'
  )
  url1 <- paste0(
    '<img src="https://raw.githubusercontent.com/organicmaps/organicmaps/master/data/styles/default/dark/symbols/',
    name,
    '"/>'
  )
  x <- paste0(x, 
              "|", name, "|", url0, "|", url1, "|", 
              df_all[df_all$name==name,]$width, "|",
              df_all[df_all$name==name,]$height, "|",
              "\n")
}
clipr::write_clip(x)