   (let ((pkg_name nil)
 	(pkg_tmpl nil))
     (setq pkg_name (read-string "Give package name: "))
-    (setq pkg_tmpl (read-string "Give package template: "))
+    (setq pkg_tmpl (ivy-read "Give package template: " (rsuite-get-templates)))
     (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)))))

      )
    curr-dir))

(defun rsuite-toggle-verbose ()
  "Toggle R Suite verbosity."
  (interactive)

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