(defun psci ()

(interactive)

(-if-let (project-root-folder (psci/--project-root!))

(let* ((psci-program psci/purs-path)

(buffer (comint-check-proc psci/buffer-name)))

;; pop to the "*psci*" buffer if the process is dead, the

;; buffer is missing or it's got the wrong mode.

(pop-to-buffer

(if (or buffer (not (derived-mode-p 'psci-mode))

(comint-check-proc (current-buffer)))

(get-buffer-create (or buffer (psci/--process-name psci/buffer-name)))

(current-buffer)))

;; create the comint process if there is no buffer.

(unless buffer

(setq default-directory (psci/--project-root!))

(let ((full-arg-list (-if-let (psc-package-sources (psci/--get-psc-package-sources!))

(append psci/arguments psc-package-sources)

psci/arguments)))

(apply 'make-comint-in-buffer psci/buffer-name buffer

psci-program nil "repl" full-arg-list))

(psci-mode)))

(psci/log "No .psci file so we cannot determine the root project folder. Please, add one.")))