R/utils.R

In mpadge/calcurseR: Functions to use 'calcurse' as a general organising tool

calcurse_dir <- function () {
    d <- Sys.getenv ("CALCURSE_DIR")
    if (!nzchar (d)) {
        stop ("This package requires an environment variable [",
              "CALCURSE_DIR] to be set")
    }
    return (d)
}

daily_dir <- function () {
    Sys.getenv ("DAILY_DIR")
}

cc_dir <- function () {
    cc_dir <- daily_dir ()
    if (!nzchar (cc_dir)) {
        cc_dir <- calcurse_dir ()
    }
    return (cc_dir)
}