Tweak geiser configuration and add flycheck-guile

modules/lang/scheme/config.el

@@ -9,6 +9,7 @@
   :hook (scheme-mode . geiser-mode)
   :init
   (setq geiser-active-implementations '(guile chicken mit chibi chez)
+        geiser-autodoc-identifier-format "%s → %s"
         geiser-smart-tab-p t)
   (unless (featurep! :lang racket)
     (push 'racket geiser-active-implementations))
@@ -18,10 +19,16 @@
     (set-lookup-handlers! 'scheme-mode
       :definition #'geiser-edit-symbol-at-point
       :documentation #'geiser-doc-symbol-at-point))
+  (when (featurep! :checkers syntax)
+    (after! flycheck
+      (load! "autoload/flycheck-guile")))
   :config
   (set-popup-rules!
-    '(("\\*[Gg]eiser \\(?:[Mm]essages\\|DBG\\|Xref\\)\\*" :quit nil)
-      ( "\\* [A-Za-z0-9_-]+ REPL \\*" :quit nil)))
+    '(("^\\*geiser messages\\*$" :slot 1 :vslot -1)
+      ("^\\*Geiser dbg\\*$"      :slot 1 :vslot -1)
+      ("^\\*Geiser xref\\*$"     :slot 1 :vslot -1)
+      ("^\\*Geiser documentation\\*$" :slot 2 :vslot 2 :select t :size 0.35)
+      ("^\\* [A-Za-z0-9_-]+ REPL \\*$" :quit nil :ttl nil)))
   (map! :localleader
         :map scheme-mode-map
         "'"  #'geiser-mode-switch-to-repl