diff options
Diffstat (limited to '.emacs.d/lisp/init-paredit.el')
| -rw-r--r-- | .emacs.d/lisp/init-paredit.el | 191 |
1 files changed, 0 insertions, 191 deletions
diff --git a/.emacs.d/lisp/init-paredit.el b/.emacs.d/lisp/init-paredit.el deleted file mode 100644 index 252932d..0000000 --- a/.emacs.d/lisp/init-paredit.el +++ /dev/null @@ -1,191 +0,0 @@ -;;; init-paredit.el --- Paredit Configuration File -*- lexical-binding: t -*- -;;; Commentary: -;; add-hooks/add-lisp-hook based on https://github.com/bodil/emacs.d/blob/master/bodil/bodil-lisp.el -;;; Code: - -(defvar-local lisp-modes - '(scheme-mode emacs-lisp-mode lisp-mode clojure-mode cider-repl-mode - eval-expression-minibuffer-setup ielm-mode lisp-interaction-mode)) - -(use-package emacs - :config - (defun add-hooks (modes func) - (dolist (mode modes) - (add-hook (intern (concat (symbol-name mode) "-hook")) func))) - (defun add-lisp-hook (func) - (add-hooks lisp-modes func))) - -(use-package paredit - :diminish - :bind - (:map paredit-mode-map - ([remap mark-sexp] . sp-mark-sexp) - ("M-[" . paredit-smart-wrap-square) - ("C-c M-{" . paredit-smart-wrap-curly) - ("C-c M-<" . paredit-smart-wrap-angled) - ([remap paredit-wrap-round] . paredit-smart-wrap-round) - ([remap paredit-meta-doublequote] . paredit-smart-metadouble-quote) - ([remap paredit-splice-sexp] . paredit-smart-splice-sexp) - ("M-W" . paredit-copy-as-kill) - ("C-S-k" . paredit-kill-region)) - :config - (defmacro define-paredit-smart-wrap (name) - `(defun ,(intern (concat "paredit-smart-wrap-" name)) - (&optional argument) - ,(concat "Wrap the following S-expression, from the beginning of the current symbol. -See `paredit-wrap-sexp' for more details. -Falls back to smartparens in comments and strings.") - (interactive "P") - (if (or (paredit-in-string-p) - (paredit-in-comment-p) - (paredit-in-char-p)) - (,(intern (concat "sp-wrap-" name))) - (beginning-of-thing 'symbol) - (,(intern (concat "paredit-wrap-" name)) argument)))) - - (define-paredit-smart-wrap "round") - (define-paredit-smart-wrap "curly") - (define-paredit-smart-wrap "square") - (define-paredit-smart-wrap "angled") - - ;; paredit-meta-doublequote is not like the wrap functions (but can act as one) - (defun paredit-smart-metadouble-quote (&optional n) - "Move to the end of the string. -If not in a string, act as `paredit-doublequote'; if not prefix argument - is specified and the region is not active or `transient-mark-mode' is - disabled, the default is to wrap one S-expression, however, not zero. -If wrapping, move to the beginning of the symbol first. -Falls back to smartparens in comments." - (interactive "P") - (if (paredit-in-comment-p) - (sp-wrap-double-quotation-marks) - (when (not (paredit-in-string-p)) - (beginning-of-thing 'symbol)) - (paredit-meta-doublequote n))) - - (defmacro define-paredit-smart-sexp (name) - `(defun ,(intern (concat "paredit-smart-" name "-sexp")) - (&optional argument) - ,(concat "Splice the list that the point is on by removing its delimiters. -This version falls back to the smartparens version in scenarios that paredit will -not handle.") - (interactive "P") - (if (or (paredit-in-string-p) - (paredit-in-comment-p) - (paredit-in-char-p)) - (,(intern (concat "sp-" name "-sexp"))) - (,(intern (concat "paredit-" name "-sexp")) argument)))) - - (define-paredit-smart-sexp "splice") - - :init - ;; From emacswiki - extreme barfage & slurpage - (defun paredit-barf-all-the-way-backward () - (interactive) - (paredit-split-sexp) - (paredit-backward-down) - (paredit-splice-sexp)) - (defun paredit-barf-all-the-way-forward () - (interactive) - (paredit-split-sexp) - (paredit-forward-down) - (paredit-splice-sexp) - (if (eolp) (delete-horizontal-space))) - (defun paredit-slurp-all-the-way-backward () - (interactive) - (catch 'done - (while (not (bobp)) - (save-excursion - (paredit-backward-up) - (if (eq (char-before) ?\() - (throw 'done t))) - (paredit-backward-slurp-sexp)))) - (defun paredit-slurp-all-the-way-forward () - (interactive) - (catch 'done - (while (not (eobp)) - (save-excursion - (paredit-forward-up) - (if (eq (char-after) ?\)) - (throw 'done t))) - (paredit-forward-slurp-sexp)))) - - ;; From https://github.com/bodil/emacs.d/blob/master/bodil/bodil-paredit.el - ;; Inverse M-( - (defun paredit-wrap-round-from-behind () - (interactive) - (forward-sexp -1) - (paredit-wrap-round) - (insert " ") - (forward-char -1)) - ;; From https://github.com/bodil/emacs.d/blob/master/bodil/bodil-paredit.el - ;; Duplicate sexp - (defun paredit-duplicate-after-point () - "Duplicates the content of the line that is after the point." - (interactive) - ;; skips to the next sexp - (while (looking-at " ") - (forward-char)) - (set-mark-command nil) - ;; while we find sexps we move forward on the line - (while (and (<= (point) (car (bounds-of-thing-at-point 'sexp))) - (not (= (point) (line-end-position)))) - (forward-sexp) - (while (looking-at " ") - (forward-char))) - (kill-ring-save (mark) (point)) - ;; go to the next line and copy the sexprs we encountered - (paredit-newline) - (set-mark-command nil) - (yank) - (exchange-point-and-mark)) - - (defun replace-paredit-binding (commands original-keys new-keys) - (when commands - (if (and (consp (car commands)) - (equal (caar commands) original-keys)) - (setcar (car commands) new-keys) - (replace-paredit-binding (cdr commands) original-keys new-keys)))) - (defun paredit-commands-advice () - ;; Default paredit-convolute-sexp binding clashes with xref-find-references - (replace-paredit-binding paredit-commands "M-?" "C-c M-?") - - (nconc paredit-commands - '("Extreme Barfage & Slurpage" - (("C-M-)") - paredit-slurp-all-the-way-forward - ("(foo (bar |baz) quux zot)" - "(foo (bar |baz quux zot))") - ("(a b ((c| d)) e f)" - "(a b ((c| d)) e f)")) - (("C-M-}" "M-F") - paredit-barf-all-the-way-forward - ("(foo (bar |baz quux) zot)" - "(foo (bar|) baz quux zot)")) - (("C-M-(") - paredit-slurp-all-the-way-backward - ("(foo bar (baz| quux) zot)" - "((foo bar baz| quux) zot)") - ("(a b ((c| d)) e f)" - "(a b ((c| d)) e f)")) - (("C-M-{" "M-B") - paredit-barf-all-the-way-backward - ("(foo (bar baz |quux) zot)" - "(foo bar baz (|quux) zot)"))) - '("Extra" - (("C-c M-)") - paredit-wrap-round-from-behind - ("(foo| bar baz" "((| foo) bar baz")) - (("C-c C-S-d") - paredit-duplicate-after-point - ("|(foo)" "(foo)\n|(foo)")))) - - ;; Only need to do this once - (advice-remove 'paredit-define-keys 'paredit-commands-advice)) - - (advice-add 'paredit-define-keys :before 'paredit-commands-advice) - (add-lisp-hook #'turn-off-smartparens-mode) - (add-lisp-hook #'enable-paredit-mode)) - -(provide 'init-paredit) -;;; init-paredit.el ends here |