;; This file:
;;   http://anggtwu.net/elisp/2025-racketrepl.el.html
;;   http://anggtwu.net/elisp/2025-racketrepl.el
;;          (find-angg "elisp/2025-racketrepl.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; Messy notes about writing and debugging an `eepitch-racketrepl'.
;; See:
;;   (find-angg ".emacs" "eepitch-racketrepl")


;; list of windows and their buffers
;; (find-eaproposf "window")
;; (find-eaproposf "window" "'window-list")
;; (find-eaproposf "window" "'window-tree")

;;  (ee-replbuffersfor 'racket-repl-mode)
;;  (ee-replbuffersfor 'geiser-repl-mode)
;; (find-replbufferfor 'geiser-repl-mode '(geiser-guile))

(defun find-racketreplbuffer () (find-dbsw-call '(racket-repl)))

(find-racketreplbuffer)

(racket-repl 'noselect)



;; (ee-flatten '((1 2) (3 (4 5))))
(defun ee-flatten (o)
  (if (atom o)
      (list o)
    (cl-loop for sub in o append (ee-flatten sub))))

;; (ee-window-tree)
(defun ee-window-tree ()
  (cl-loop for o in (ee-flatten (window-tree))
	   if (windowp o)
	   collect (buffer-name (window-buffer o))))



(defun find-edebug-yes (f)
  (find-2a nil `(progn (find-efunction ',f) (eek "C-u C-M-x"))))
(defun find-edebug-no (f)
  (find-2a nil `(progn (find-efunction ',f) (eek "C-M-x"))))

;; (find-edebug-no  'racket-repl)
;; (find-edebug-no  'racket--repl-run)
;; (find-edebug-yes 'racket-repl)
;; (find-edebug-yes 'racket--repl-run)
;; (find-efunction 'eepitch)
;; (find-efunction 'racket--repl-run)
;; (find-dbsw-call '(racket-repl)))



* (eepitch-racketrepl)
* (eepitch-kill)
* (eepitch-racketrepl)
(circle 10)




;; Local Variables:
;; coding:  utf-8-unix
;; End: