From 1e1d13e684c0881a59c3893f6679de77f90e8c21 Mon Sep 17 00:00:00 2001
From: Lockywolf <lockywolf@gmail.com>
Date: Thu, 29 Aug 2019 13:55:24 +0800
Subject: Fix latest chicken. Add debug level logging. Fixed typo.

---
 elisp/geiser-log.el  | 9 +++++++++
 elisp/geiser-repl.el | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

(limited to 'elisp')

diff --git a/elisp/geiser-log.el b/elisp/geiser-log.el
index a252144..e004831 100644
--- a/elisp/geiser-log.el
+++ b/elisp/geiser-log.el
@@ -39,6 +39,10 @@
 (defvar geiser-log-verbose-p nil
   "Log purely informational messages. Useful for debugging.")
 
+(defvar geiser-log-verbose-debug-p nil
+  "Log very verbose informational messages. Useful only for debugging.")
+
+
 (defvar geiser-log--inhibit-p nil
   "Set this to t to inhibit all log messages")
 
@@ -54,6 +58,7 @@
                  (when (> b geiser-log--max-buffer-size)
                    (delete-region (point-min) b))))
             nil t)
+  ;; Maybe this feature would better be implemented as a revert-buffer function?
   (add-hook 'after-change-functions
             '(lambda (b e len)
                (when geiser-log-autoscroll-buffer-p
@@ -85,6 +90,10 @@
   (when geiser-log-verbose-p
     (apply 'geiser-log--msg 'INFO args) ""))
 
+(defsubst geiser-log--debug (&rest args)
+  (when geiser-log-verbose-debug-p
+    (apply 'geiser-log--msg 'DEBUG args) ""))
+
 
 ;;; User commands:
 
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index c589ab3..89226d2 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -484,7 +484,7 @@ module command as a string")
         (error "Geiser requires %s version %s but detected %s" impl r v)))))
 
 (defun geiser-repl--start-repl (impl address)
-  (message "Starting Geiser REPL for %s ..." impl)
+  (message "Starting Geiser REPL ...")
   (when (not address) (geiser-repl--check-version impl))
   (geiser-repl--to-repl-buffer impl)
   (sit-for 0)
-- 
cgit v1.2.3