 
 (require 'dired)
 
-(defvar rsuite-verbose nil "Make rsuite verbose.")
-(defvar rsuite-docker-platforms
+(defvar rsuite/verbose nil "Make rsuite verbose.")
+(defvar rsuite/docker-platforms
   (list "ubuntu" "centos")
   "Docker platforms supported by R Suite.")
 (defconst rsuite/buffer "rsuite" "Buffer for rsuite output.")
 (defconst rsuite/err_buffer "rsuite:error" "Buffer for rsuite error output.")
 (defconst rsuite/cli "rsuite" "Path to RSuite CLI.")
 
-(defun rsuite-toggle-verbose ()
-  "Toggle R Suite verbosity."
-  (interactive)
-  (if rsuite-verbose
-      (setq rsuite-verbose nil)
-    (setq rsuite-verbose 1)))
-
 (defun run-async-rsuite (args)
   "Utility for running rsuite cli.
 ARGS is a string of arguments forwarded to rsuite cli."
-  (async-shell-command (concat rsuite/cli " " (concat args (if rsuite-verbose " -v" " "))) rsuite/buffer rsuite/err_buffer))
+  (async-shell-command (concat rsuite/cli " " (concat args (if rsuite/verbose " -v" " "))) rsuite/buffer rsuite/err_buffer))
 
 (defun run-sync-rsuite (args)
   "Utility for running rsuite cli.
 ARGS is a string of arguments forwarded to rsuite cli."
-  (shell-command (concat rsuite/cli " " (concat args (if rsuite-verbose " -v" " "))) rsuite/buffer rsuite/err_buffer))
+  (shell-command (concat rsuite/cli " " (concat args (if rsuite/verbose " -v" " "))) rsuite/buffer rsuite/err_buffer))
 
 (defun rsuite-detect-prj-path ()
   "Return R Suite's project path or throws error if none found."

	(rcmd "docker zip"))
    (setq version (read-string "Version: "))
    (setq path (read-directory-name "Path: "))
    (setq platform (ido-completing-read "Platform: " rsuite-docker-platforms))
    (setq rcmd (concat rcmd
		       " --dest=" path
		       " --platform=" platform))

    
    (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))
