;; -*- lexical-binding: nil; -*-
;; This file:
;;   http://anggtwu.net/elisp/2025-eepitch-b.el.html
;;   http://anggtwu.net/elisp/2025-eepitch-b.el
;;          (find-angg "elisp/2025-eepitch-b.el")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;; Version: 2025aug31
;;
;; Usage:
;;   ;; (find-angg "elisp/2025-eepitch-b.el")
;;   (load       "~/elisp/2025-eepitch-b.el")
;;
;; «.eeit»			(to "eeit")
;; «.eepitch-sbcl-slime»	(to "eepitch-sbcl-slime")




;;;  __  __                       _ _   
;;; |  \/  |    __  __   ___  ___(_) |_ 
;;; | |\/| |____\ \/ /  / _ \/ _ \ | __|
;;; | |  | |_____>  <  |  __/  __/ | |_ 
;;; |_|  |_|    /_/\_\  \___|\___|_|\__|
;;;                                     
;; «eeit»  (to ".eeit")
;; Better test blocks for files in lisp-mode.
;; See: (find-eev "eev-testblocks.el" "eeit")

(defvar ee-lisp "sbcl-slime")
(put   'ee-lisp 'safe-local-variable 'stringp)
(defun  ee-lisp ()
  "A lispish interface for customizing the variable `ee-lisp'.
This is similar to `ee-hyperlink-prefix'."
  (interactive)
  (find-elinks
   `((ee-lisp)
     ;; Convention: the first sexp always regenerates the buffer.
     (setq ee-lisp ,ee-lisp)     ; current value
     ""
     (setq ee-lisp "sbcl-slime") ; other common values
     (setq ee-lisp "sbcl")
     )))

;; Override the default `ee-insert-test-lisp-mode'
;; with one that uses `ee-lisp'. The original is here:
;;   (find-eev "eev-testblocks.el" "examples" "ee-insert-test-lisp-mode")
;;
(defun ee-insert-test-lisp-mode ()
  (interactive)
  (insert (ee-adjust-red-stars (format "
#|
* (eepitch-%s)
* (eepitch-kill)
* (eepitch-%s)
(load \"%s\")

|#
" ee-lisp ee-lisp (buffer-name)))))





;;;                  _ _       _           _          _       _ _                
;;;   ___  ___ _ __ (_) |_ ___| |__    ___| |__   ___| |  ___| (_)_ __ ___   ___ 
;;;  / _ \/ _ \ '_ \| | __/ __| '_ \  / __| '_ \ / __| | / __| | | '_ ` _ \ / _ \
;;; |  __/  __/ |_) | | || (__| | | | \__ \ |_) | (__| | \__ \ | | | | | | |  __/
;;;  \___|\___| .__/|_|\__\___|_| |_| |___/_.__/ \___|_| |___/_|_|_| |_| |_|\___|
;;;           |_|                                                                
;;
;; «eepitch-sbcl-slime»  (to ".eepitch-sbcl-slime")
;; Uses: (find-eev "eepitch.el" "badly-behaved")
;;       (find-eev "eepitch.el" "eepitch-b")
;;
(defun eepitch-sbcl-slime ()
  (eepitch-b-set-source)
  (find-eepitch-sbcl-slime-links))


;; <find-eepitch-sbcl-slime-links>
;; Skel: (find-find-links-links-new "eepitch-sbcl-slime" "" "ee-buffer-name")
;; Test: (find-eepitch-sbcl-slime-links)
;;
(defun find-eepitch-sbcl-slime-links (&rest pos-spec-list)
"Visit a temporary buffer containing hyperlinks for eepitch-sbcl-slime."
  (interactive)
  (let* ((ee-buffer-name (or ee-buffer-name "*find-eepitch-sbcl-slime-links*")))
    (apply
     'find-elinks
     `(;; Convention: the first sexp always regenerates the buffer.
       ,(ee-template0 "\
** (find-eepitch-sbcl-slime-links{(ee-Qrest pos-spec-list)})
** (find-efunction 'find-eepitch-sbcl-slime-links)
*
** Current source and target:
**   (find-2a nil '(find-ebuffer {(ee-S eepitch-b-source-buffer)}))
*    (find-2a nil '(find-ebuffer {(ee-S eepitch-buffer-name)}))
** To keep using that target, do:
*    (eepitch-to-buffer {(ee-S eepitch-buffer-name)})
*    (defun bi () (interactive) (eepitch-b-insert))
*    (eepitch-b-show-source-and-target)
*
** To use another target, run <f8>s here and type `M-x b' at the target:
*    (defun b  () (interactive) (eepitch-b-set-target))
*    (defun bi () (interactive) (eepitch-b-insert))
*    (delete-other-windows)
*    (slime \"sbcl\")
*    (eepitch-b-show-source-and-target)
")
       )
     pos-spec-list)))