summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorLockywolf <lockywolf@gmail.com>2019-08-29 13:55:24 +0800
committerLockywolf <lockywolf@gmail.com>2019-09-03 15:06:02 +0800
commit1e1d13e684c0881a59c3893f6679de77f90e8c21 (patch)
treedd2881706c89c5429fab8ce35d7f45b8da491067 /elisp
parent8fa3ceefd0ec8674a76e1052095474cbe3221a24 (diff)
downloadgeiser-1e1d13e684c0881a59c3893f6679de77f90e8c21.tar.gz
geiser-1e1d13e684c0881a59c3893f6679de77f90e8c21.tar.bz2
Fix latest chicken. Add debug level logging. Fixed typo.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-log.el9
-rw-r--r--elisp/geiser-repl.el2
2 files changed, 10 insertions, 1 deletions
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)