(defunsend-region-to-process (argbegend)"Send the current region to a process buffer.The first time it's called, will prompt for the buffer tosend to. Subsequent calls send to the same buffer, unless aprefix argument is used (C-u), or the buffer no longer has anactive process. -- https://emacs.stackexchange.com/a/37889/42614"  (interactive"P\nr")  (if (or arg;; user asks for selection          (not (boundp'process-target));; target not set;; or target is not set to an active process:          (not (process-live-p (get-buffer-process                                process-target))))      (setq process-target            (completing-read"Process:"             (seq-map (lambda (el) (buffer-name (process-buffer el)))                      (process-list)))))  (process-send-region process-target beg end);; If target buffer is *mistty*, also evaluate sent region;; by calling missty-send-command  (let ((buf-name (let ((str process-target))  (setq parts (split-string str""t))  (car (last parts))))); Extract "actual" buffer name(if (string= buf-name"*mistty*")(with-current-buffer buf-name  (call-interactively'mistty-send-command)))))

(use-package phel-mode; derived from clojure-mode:mode"\\.phel\\'";; TODO workaround for lsp-warning coming from lsp hooked to clojure-mode:config (setq lsp-warn-no-matched-clientsnil):bind ("C-M-x". send-region-to-process)  )