 ;;; Code:
 
 (require 'dired)
+(require 'ivy)
 
 (defvar rsuite/verbose nil "Make rsuite verbose.")
 (defvar rsuite/docker-platforms
-  (list "ubuntu" "centos")
+  (list "ubuntu" "centos" "debian")
   "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.")

	(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 proj_path (read-directory-name "Project path: "))
    (setq proj_name (read-string (concat "Give project name: " proj_path)))
    (setq proj_tmpl (ivy-read "Give project template: " (rsuite-get-templates)))
    (cd proj_path)
    (if (> (length proj_tmpl) 0)
	(run-sync-rsuite (concat "proj start --name=" proj_name " --tmpl=" proj_tmpl))
