R/nw.R

In arnima-github/arni: Arni's Toolbox

#' Toggle Emacs
#'
#' Toggle whether Emacs is run with command line option \verb{-nw}.
#'
#' @return
#' Resulting \code{getOption("editor")} after adding or removing \verb{-nw}.
#'
#' @note Useful when working over a slow SSH connection.
#'
#' @export

nw <- function()
{
  editor <- getOption("editor")
  already.nw <- grepl("-nw", editor)

  if(already.nw)
    editor <- gsub(" -nw", "", editor)  # remove -nw
  else
    editor <- gsub("emacs", "emacs -nw", editor) # add -nw

  options(editor=editor)
  cat(paste0("\"", editor, "\"\n"))

  invisible(editor)
}