DC_theme_generator <- function(type, 
                               legend = T,
                               legend.position = "right",
                               ticks = "out", 
                               x.axis.angle = 0, 
                               hjust = NULL, 
                               vjust = NULL, 
                               fontsize.cex = 1.5, 
                               fontfamily = "sans",
                               ax.fontstyle = "italic",
                               title.fontstyle = "bold.italic",
                               title.fontsize.cex = 1.5,
                               x_gridline=NA,
                               y_gridline=NA){
  
  # #<---------------------------->
  # # You must include this section when:
  # # Distributing, Embedding, Using and/or Modifying this code.
  # # Please read and abide by the terms of the included LICENSE.
  # # Copyright 2020, Deepankar Chakroborty, All rights reserved.
  
  # # Author: Deepankar Chakroborty
  # # Available at: https://github.com/dchakro/ggplot_themes
  # # Report issues: https://github.com/dchakro/ggplot_themes/issues
  # # LICENSE: https://github.com/dchakro/ggplot_themes/blob/master/LICENSE
  # #<---------------------------->
  
  # # PURPOSE:  Generate themes for ggplot2
  
  # # OPTIONS:
  # type: 'L', 'square'
  # legent: T = left, F = no legend
  # ticks: 'in', 'out'
  # fontfamily: 'serif' , 'sans' , 'mono', 'Helvetica', 'Palatino'
  # title.fontstyle and ax.fontstyle = 'plain', 'italic', 'bold', 'bold.italic'
  # x.axis.angle = 45  (i.e. angle for the x axis text)
  # hjust and vjust = to adjust the x axis text
  
  
  if(is.null(hjust)){
    hjust <- ifelse(test = x.axis.angle==45,yes = 1.0,no = 0.5)
  }
  if(is.null(vjust)){
    vjust <- ifelse(test = x.axis.angle==45,yes = 1.0,no = 0.5)
  }
  
  ticks <- tolower(ticks)
  fontfamily <- ifelse(test = tolower(fontfamily) %in% c("sans", "serif", "mono"), yes = tolower(fontfamily), no = fontfamily)
  
  if( type == "square"){
      # Type: square
      themeToReturn <- ggplot2::theme(
        panel.border = element_rect(linetype = 1, 
                                    colour = "black",
                                    fill=NA,
                                    linewidth=1),
        panel.background=element_blank(),
        panel.grid.major.x=element_line(color=x_gridline),
        panel.grid.major.y=element_line(color=y_gridline),
        panel.grid.minor = element_blank(),
        axis.ticks = element_line(colour = "black"),
        text = element_text(family = fontfamily),
        plot.title = element_text(family = fontfamily,
                                  face = title.fontstyle,
                                  color = "black",
                                  size = rel(title.fontsize.cex)),
        axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2),"cm"),
        axis.title = element_text(family = fontfamily,
                                  face = ax.fontstyle,
                                  size=rel(fontsize.cex)),
        axis.text.y = element_text(family = fontfamily,
                                   face = "plain",
                                   size = rel(fontsize.cex),
                                   hjust = 1,
                                   angle = 0,
                                   color = "black",
                                   margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
        axis.text.x = element_text(family = fontfamily,
                                   face = "plain",
                                   angle = x.axis.angle,
                                   hjust = hjust,
                                   vjust = vjust,
                                   size = rel(fontsize.cex),
                                   color = "black",
                                   margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
        legend.key= element_rect(fill=NA,
                                 colour = NA),
        legend.position=ifelse(test = legend, yes = legend.position , no = "none")
        )
  }
  
  if( type == 'L' ){
      # Type: L
      themeToReturn <- ggplot2::theme(
        axis.line = element_line(colour = "black",
                                 linewidth=0.5),
        panel.border = element_blank(),
        panel.background = element_blank(),
        panel.grid.major.x=element_line(color=x_gridline),
        panel.grid.major.y=element_line(color=y_gridline),
        panel.grid.minor = element_blank(),
        axis.ticks = element_line(colour = "black"),
        text = element_text(family = fontfamily),
        plot.title = element_text(family = fontfamily,
                                  face = title.fontstyle,
                                  color = "black",
                                  size = rel(title.fontsize.cex)),
        axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2), "cm"),
        axis.title = element_text(family = fontfamily,
                                  face = ax.fontstyle,
                                  size=rel(fontsize.cex)),
        axis.text.y = element_text(family = fontfamily,
                                   face = "plain",
                                   size = rel(fontsize.cex),
                                   hjust = 1,
                                   angle = 0,
                                   color="black",
                                   margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
        axis.text.x = element_text(family = fontfamily,
                                   face = "plain",
                                   angle = x.axis.angle,
                                   hjust = hjust,
                                   vjust = vjust,
                                   size = rel(fontsize.cex),
                                   color = "black",
                                   margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
        legend.key = element_rect(fill=NA,
                                  colour = NA),
        legend.position=ifelse(test = legend, yes = legend.position , no = "none")
      )
  } 
  
  if( type == "gridlines"){
      # Type: gridlines
      themeToReturn <- ggplot2::theme_linedraw() + ggplot2::theme(
          text = element_text(family = fontfamily),
          plot.title = element_text(family = fontfamily,
                                    face = title.fontstyle,
                                    color = "black",
                                    size = rel(title.fontsize.cex)),
          axis.ticks.length = unit(ifelse(ticks=="in",-0.2,0.2),"cm"),
          axis.title = element_text(family = fontfamily,
                                    face = ax.fontstyle,
                                    size=rel(fontsize.cex)),
          axis.text.y = element_text(family = fontfamily,
                                     face = "plain",
                                     size = rel(fontsize.cex),
                                     hjust = 1,
                                     angle = 0,
                                     color = "black",
                                     margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
          axis.text.x = element_text(family = fontfamily,
                                     face = "plain",
                                     angle = x.axis.angle,
                                     hjust = hjust,
                                     vjust = vjust,
                                     size = rel(fontsize.cex),
                                     color = "black",
                                     margin=unit(c(0.3,0.3,0.3,0.3), "cm")),
          legend.key= element_rect(fill=NA,
                                   colour = NA),
          legend.position=ifelse(test = legend, yes = legend.position , no = "none")
      )
  }
  return(themeToReturn)
}