You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
54 lines
1.4 KiB
54 lines
1.4 KiB
#' Add an entry to the menu
|
|
#'
|
|
#' Use `add_separator()` to add a separator line and `add_entry()` to make new
|
|
#' menubar entries.
|
|
#'
|
|
#' @param text to display. See `type`.
|
|
#' @param type type of entry.
|
|
#' - `direct` has no dashes prefix and all output goes directly to the menubar. The first use of `direct` will set the menubar title.
|
|
#' - `submenu` uses `level` repeats of `--` to put these items in submenus
|
|
#' @param level used with `submenu` option of `type`
|
|
#' @param named BitBar entry parameters. See `References`.
|
|
#' @references [BitBar Plugin API Reference](https://github.com/matryer/bitbar#writing-plugins)
|
|
#' @export
|
|
add_entry <- function(text, type = c("direct", "submenu"), level=1, ...) {
|
|
|
|
type <- match.arg(type, c("direct", "submenu"))
|
|
|
|
type %>%
|
|
switch(
|
|
direct = text,
|
|
submenu = sprintf("%s%s", paste0(rep("--", level), collapse=""), text)
|
|
) -> entry
|
|
|
|
params <- ""
|
|
|
|
p <- list(...)
|
|
|
|
if (length(p) > 0) {
|
|
|
|
sapply(names(p), function(name) {
|
|
value <- p[[name]]
|
|
if (is.logical(value)) {
|
|
value <- tolower(as.character(value))
|
|
} else if (!is.character(value)) {
|
|
value <- toString(value)
|
|
}
|
|
sprintf("%s=%s", name, value)
|
|
}) -> params
|
|
|
|
params <- paste0(params, collapse=" ")
|
|
|
|
}
|
|
|
|
if (nchar(params) > 0) params <- sprintf(" | %s", params)
|
|
|
|
cat(entry, params, "\n", sep = "")
|
|
|
|
}
|
|
|
|
#' @rdname add_entry
|
|
#' @export
|
|
add_separator <- function() {
|
|
cat("---\n")
|
|
}
|