Add details argument

.Rbuildignore

@@ -10,4 +10,5 @@
 ^\.github$
 ^README\.qmd$
 ^README\.html$
-README_files/*
+README_files/*
+^.vscode$

.gitignore

@@ -8,4 +8,5 @@ _quarto/*
 docs/
 *_files/
 README.html
-*.pdf
+*.pdf
+.vscode/

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: typstcv
 Type: Package
 Title: CV for Quarto & Typst
-Version: 0.0.0.9003
+Version: 0.0.0.9004
 Authors@R: 
     person(given = "Kazuharu",
            family = "Yanagimoto",

R/typstcv.R

@@ -5,6 +5,7 @@
 #' @param location The column name for the location. Default is "location"
 #' @param date The column name for the date. Default is "date"
 #' @param description The column name for the description. Default is "description"
+#' @param details The column name for additional details. Default is NULL
 #'
 #' @return A string with the resume entry
 #' @export
@@ -23,7 +24,8 @@ resume_entry <- function(data,
                          title = "title",
                          location = "location",
                          date = "date",
-                         description = "description") {
+                         description = "description",
+                         details = NULL) {
   strings <- apply(data, 1, function(row) {
     s <- "#resume-entry("
     if (!is.na(row[title])) {
@@ -39,8 +41,13 @@ resume_entry <- function(data,
       s <- sprintf("%sdescription: \"%s\",", s, row[description])
     }
     s <- paste0(s, ")")
+
+    if (!is.null(details)) {
+      s <- paste0(s, "\n#resume-item[\n", paste0("- ", row[details], collapse = "\n"), "\n]")
+    }
+
     return(s)
   })
 
   cat(paste0("```{=typst}\n", paste(strings, collapse = "\n"), "\n```"))
-}
+}

README.md

@@ -103,6 +103,13 @@ educ |>
 )
 ```
 
+You can add bullet points by `details` argument.
+
+``` r
+resume_entry(award, details = c("detail1", "detail2"))
+# resume_entry(award, details = grep("^detail", names(award)))
+```
+
 ### Date Formatter
 
 `date_formatter()` is a helper function to format dates in the resume.

README.qmd

@@ -101,6 +101,13 @@ educ |>
 )
 ```
 
+You can add bullet points by `details` argument.
+
+```r
+resume_entry(award, details = c("detail1", "detail2"))
+# resume_entry(award, details = grep("^detail", names(award)))
+```
+
 ### Date Formatter
 
 `date_formatter()` is a helper function to format dates in the resume.

data-raw/data.R

@@ -24,7 +24,9 @@ award <- data.frame(
   title = c("Nobel Prize in Physics"),
   location = c("Stockholm, Sweden"),
   date = c("1921"),
-  description = c("For his services to Theoretical Physics, and especially for his discovery of the law of the photoelectric effect.")
+  description = c("For his services to"),
+  detail1 = c("Theoretical Physics"),
+  detail2 = c("Discovery of the law of the photoelectric effect")
 )
 
 skill <- data.frame(

vignettes/awesomecv/_extensions/kazuyanagimoto/awesomecv/typst-template.typ

@@ -329,6 +329,7 @@ $endif$
     fill: color-darknight,
   )
   set par(leading: 0.65em)
+  set list(indent: 1em)
   body
 }
 

vignettes/awesomecv/awesomecv.qmd

@@ -37,6 +37,7 @@ execute:
 library(typstcv)
 ```
 
+
 ## Education
 
 ```{r}
@@ -65,7 +66,8 @@ work |>
 
 ```{r}
 #| output: asis
-resume_entry(award)
+resume_entry(award, details = c("detail1", "detail2"))
+#resume_entry(award, details = grep("^detail", names(award)))
 ```
 
 ## Skills