diff options
Diffstat (limited to '.emacs.d/lisp')
-rw-r--r-- | .emacs.d/lisp/init-editor.el | 5 | ||||
-rw-r--r-- | .emacs.d/lisp/init-paredit-x.el | 107 |
2 files changed, 5 insertions, 107 deletions
diff --git a/.emacs.d/lisp/init-editor.el b/.emacs.d/lisp/init-editor.el index 1946b46..9b8e90d 100644 --- a/.emacs.d/lisp/init-editor.el +++ b/.emacs.d/lisp/init-editor.el @@ -190,5 +190,10 @@ and file 'filename' will be opened and cursor set on line 'linenumber'" :bind ("C-c ." . operate-on-number-at-point)) +(use-package xref + :ensure nil + :config + (add-to-list 'xref-prompt-for-identifier 'xref-find-references t)) + (provide 'init-editor) ;;; init-editor.el ends here diff --git a/.emacs.d/lisp/init-paredit-x.el b/.emacs.d/lisp/init-paredit-x.el deleted file mode 100644 index 41cf7ba..0000000 --- a/.emacs.d/lisp/init-paredit-x.el +++ /dev/null @@ -1,107 +0,0 @@ -;;; init-paredit-x.el --- Paredit Extra Configuration File -*- lexical-binding: t -*- -;;; Commentary: -;; Code taken from emacswiki and https://github.com/bodil/emacs.d/blob/master/bodil/bodil-paredit.el -;;; Code: - -(with-eval-after-load 'paredit -;; From emacswiki -(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)))) - -(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)")))) - -(paredit-define-keys) -(paredit-annotate-mode-with-examples) -(paredit-annotate-functions-with-examples) - -;; 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)) -(eval-after-load "paredit" - '(define-key paredit-mode-map (kbd "M-)") - 'paredit-wrap-round-from-behind)) - -;; 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))) -(eval-after-load "paredit" - '(define-key paredit-mode-map (kbd "C-c C-S-d") - 'paredit-duplicate-after-point)) - -(provide 'init-paredit-x) -;;; init-paredit-x.el ends here |