[nongnu] elpa/geiser-stklos 6922aeb6ec 2/3: Fix startup

[ELPA Syncer]

branch: elpa/geiser-stklos
commit 6922aeb6ec07db68ecda8b9bee2d0dda23b80c08
Author: Jeronimo Pellegrini <j_p@aleph0.info>
Commit: Jeronimo Pellegrini <j_p@aleph0.info>

    Fix startup
    
    And make some changes to customization.
---
 geiser-stklos.el | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/geiser-stklos.el b/geiser-stklos.el
index bc2833838b..4e7caff00c 100644
--- a/geiser-stklos.el
+++ b/geiser-stklos.el
@@ -127,12 +127,13 @@ option."
   :type 'boolean
   :group 'geiser-stklos)
 
-;; (geiser-custom--defcustom geiser-stklos-log-file
-;;     nil
-;;   "Name of the file where the STklos part of the system will log its
-;; actions."
-;;   :type 'string
-;;   :group 'geiser-stklos)
+(geiser-custom--defcustom geiser-stklos-log-file
+    ""
+  "Name of the file where the STklos part of the system will log its
+actions. FOR GEISER-STKLOS DEVELOPMENT ONLY -- currently there is no
+effect for the common user."
+  :type 'string
+  :group 'geiser-stklos)
 
 ;; (geiser-custom--defcustom geiser-emacs-log-buffer
 ;;     '*geiser-log*
@@ -360,8 +361,12 @@ Argument BINARY is a string containing the binary name."
   "Hook for startup.  The argument is ignored."
   (let ((geiser-log-verbose-p t))
     (compilation-setup t)
-    (geiser:eval "GEISER" geiser:set-log-file geiser-stklos-log-file)))
-
+    (let ((c (if (zerop (length geiser-stklos-log-file))
+                 "(newline)"
+                 (concat "(begin (geiser:eval \"GEISER\" geiser:set-log-file "
+                         geiser-stklos-log-file
+                         ") (newline))"))))
+      (geiser-eval--send/wait c))))
 
 (defconst geiser-stklos-builtin-keywords
   '("assume"