       )
     curr-dir))
 
+(defun rsuite-toggle-verbose ()
+  "Toggle R Suite verbosity."
+  (interactive)
+  (if rsuite/verbose
+      (setq rsuite/verbose nil)
+    (setq rsuite/verbose 1)))
 
 (defun rsuite-proj-start ()
   "Start project."

	  (goto-char (point-max))
	  )
      (progn
       (write-region
	"# Detect proper script_path (you cannot use args yet as they are build with tools in set_env.r)
script_path <- (function() {
	args <- commandArgs(trailingOnly = FALSE)
	script_path <- dirname(sub(\"--file=\", \"\", args[grep(\"--file=\", args)]))
	if (!length(script_path)) { return(\".\") }
	return(normalizePath(script_path))
})()

# Setting .libPaths() to point to libs folder
source(file.path(script_path, \"set_env.R\"), chdir = T)

config <- load_config()
args <- args_parser()

    
    (setq version (read-string "Version: "))
    (setq tag (read-string "Tag: "))
    (setq platform (ido-completing-read "Platform: " rsuite/docker-platforms))
    (setq rcmd (concat rcmd
		       " --tag=" tag
		       " --platform=" platform))
