about.me <- function(...){
    ifelse(pronouns, "They", "Them")
  
    Languages <- c("C", "Fluter", "HTML", "IDL", "JavaScript", "LaTeX", "Python", "R", "Shell")
    FrameWorks <- c("Docker", "Jupyter", "Kubernetes")
    CI <- c("GitHub Actions")

    currently.learning <- "High-Resolution spectral analysis with the Daniel K. Inouye Solar Telescope."

    goals.todo <- list(year.2024=list("[ ] Write first first-author paper",
                                      "[ ] Pass Ph.D candidacy exam",
    # Draft available: https://github.com/physicsgoddess1972/Precipitable-Water-Model/blob/paper/paper.pdf
                                      "[ ] Finish a paper for the Journal of Open Source Software"))
                                                                          
    goals.completed <- list(year.2023=list("[4/4] Pass my Doctoral Qualifying Exams",
                                           "[x] Find some good recipes"),
                            year.2022=list("[x] Get into graduate school",
    # Paper is available at https://doi.org/10.5194/amt-15-1563-2022
                                           "[x] Published first paper"))
                                            
    fun.fact <- "My favorate animal is the whale shark"
  }
  
  about.me()