diff options
author | Case Duckworth | 2023-01-04 23:21:15 -0600 |
---|---|---|
committer | Case Duckworth | 2023-01-04 23:21:15 -0600 |
commit | 33c7ddb09e0eae0796686c64ffa022a181145cc1 (patch) | |
tree | a7a00e960558acedf21dea0d1aedc1c33980ba3c /lisp/+paredit.el | |
parent | foo (diff) | |
download | emacs-33c7ddb09e0eae0796686c64ffa022a181145cc1.tar.gz emacs-33c7ddb09e0eae0796686c64ffa022a181145cc1.zip |
Restart ... again ... again
Diffstat (limited to 'lisp/+paredit.el')
-rw-r--r-- | lisp/+paredit.el | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/lisp/+paredit.el b/lisp/+paredit.el deleted file mode 100644 index ab176b8..0000000 --- a/lisp/+paredit.el +++ /dev/null | |||
@@ -1,26 +0,0 @@ | |||
1 | ;;; +paredit.el -*- lexical-binding: t -*- | ||
2 | |||
3 | ;;; Fixing unquote-splicing behaviour with Paredit | ||
4 | ;; https://www.n16f.net/blog/fixing-unquote-splicing-behaviour-with-paredit/ | ||
5 | |||
6 | (require 'paredit) | ||
7 | (require 'seq) | ||
8 | |||
9 | (defcustom +paredit-no-space-prefixes '(",@") | ||
10 | "Prefix strings to not insert a space after in `paredit'." | ||
11 | :group 'paredit | ||
12 | :type '(repeat string)) | ||
13 | |||
14 | (defun +paredit-space-for-delimiter (endp delimiter) | ||
15 | (let ((point (point))) | ||
16 | (or endp | ||
17 | (seq-every-p | ||
18 | (lambda (prefix) | ||
19 | (and (> point (length prefix)) | ||
20 | (let ((start (- point (length prefix))) | ||
21 | (end point)) | ||
22 | (not (string= (buffer-substring start end) prefix))))) | ||
23 | +paredit-no-space-prefixes)))) | ||
24 | |||
25 | (provide '+paredit) | ||
26 | ;;; +paredit.el ends here | ||