gnosis-select-images: Refactor

Refactor gnsois-select-images to prompt to select for extra-image as
well, returns a cons (image . second-images).

This way we won't have to recreate a needless function like
gnosis-select-second-image.

1 files changed, 10 insertions, 5 deletions

diff --git a/gnosis.el b/gnosis.el
index 3b95ba6..43801f9 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -782,15 +782,20 @@ By default, DIR value is `gnosis-images-dir' & REGEX value is \"^[^.]\""
                     else if (string-match-p regex (file-name-nondirectory path))
                     collect (list (file-relative-name path dir))))))
 
-(defun gnosis-select-image (&optional prompt)
+(defun gnosis-select-images (&optional prompt)
   "Return PATH for file in `gnosis-images-dir'.
 
 Optionally, add cusotm PROMPT."
-  (if (y-or-n-p "Add image?")
+  (if (y-or-n-p "Include images?")
       (let* ((prompt (or prompt "Select image: "))
-	     (image (funcall gnosis-completing-read-function prompt
-			     (cons nil (gnosis-directory-files gnosis-images-dir)))))
-	(if (string= image "nil") nil image))
+	     (image (if (y-or-n-p "Add review image?")
+			(funcall gnosis-completing-read-function prompt
+				 (cons nil (gnosis-directory-files gnosis-images-dir)))
+		      nil))
+	     (extra-image (if (y-or-n-p "Add post review image?")
+			      (funcall gnosis-completing-read-function prompt
+				       (cons nil (gnosis-directory-files gnosis-images-dir))))))
+	(cons image extra-image))
     nil))
 
 (defun gnosis-get-tags--unique ()