1 files changed, 26 insertions, 0 deletions

@@ -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