     
     (setq proj_path (read-directory-name "Project path: "))
     (setq proj_name (read-string (concat "Give project name: " proj_path)))
-    (setq proj_tmpl (read-string (concat "Give project template: " proj_tmpl)))
+    (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))

  (let ((pkg_name nil)
	(pkg_tmpl nil))
    (setq pkg_name (read-string "Give package name: "))
    (setq pkg_tmpl (read-string "Give package template: "))
    (if (> (length pkg_tmpl) 0)
	(run-async-rsuite (concat "proj pkgadd --name=" pkg_name " --tmpl=" pkg_tmpl))
      (run-async-rsuite (concat "proj pkgadd --name=" pkg_name)))))

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