From 59a1f58695d09ab29ddf992b2c0711c94a4039ea Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 3 Jan 2023 23:03:03 -0600
Subject: Switch to use-package

---
 lisp/+paredit.el | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 lisp/+paredit.el

(limited to 'lisp/+paredit.el')

diff --git a/lisp/+paredit.el b/lisp/+paredit.el
new file mode 100644
index 0000000..ab176b8
--- /dev/null
+++ b/lisp/+paredit.el
@@ -0,0 +1,26 @@
+;;; +paredit.el -*- lexical-binding: t -*-
+
+;;; Fixing unquote-splicing behaviour with Paredit
+;; https://www.n16f.net/blog/fixing-unquote-splicing-behaviour-with-paredit/
+
+(require 'paredit)
+(require 'seq)
+
+(defcustom +paredit-no-space-prefixes '(",@")
+  "Prefix strings to not insert a space after in `paredit'."
+  :group 'paredit
+  :type '(repeat string))
+
+(defun +paredit-space-for-delimiter (endp delimiter)
+  (let ((point (point)))
+    (or endp
+	(seq-every-p
+	 (lambda (prefix)
+	   (and (> point (length prefix))
+		(let ((start (- point (length prefix)))
+		      (end point))
+		  (not (string= (buffer-substring start end) prefix)))))
+	 +paredit-no-space-prefixes))))
+
+(provide '+paredit)
+;;; +paredit.el ends here
-- 
cgit 1.4.1-21-gabe81