diff options
-rw-r--r-- | init.el | 84 |
1 files changed, 43 insertions, 41 deletions
diff --git a/init.el b/init.el index 55abfd0..c17714e 100644 --- a/init.el +++ b/init.el | |||
@@ -617,6 +617,49 @@ | |||
617 | (setup (:straight (beginend)) | 617 | (setup (:straight (beginend)) |
618 | (beginend-global-mode +1)) | 618 | (beginend-global-mode +1)) |
619 | 619 | ||
620 | (setup common-lisp-ide | ||
621 | (defvar acdw/cl-ide :sly) | ||
622 | (defvar acdw/lisp-bin (or (executable-find "sbcl") | ||
623 | (executable-find "clisp"))) | ||
624 | (:needs acdw/lisp-bin) | ||
625 | (:option inferior-lisp-program acdw/lisp-bin) | ||
626 | |||
627 | (setup (:straight clhs)) | ||
628 | |||
629 | (pcase acdw/cl-ide | ||
630 | (:slime | ||
631 | (setup (:straight slime) | ||
632 | (:also-load slime-autoloads) | ||
633 | |||
634 | (when-let ((slime-helper (or (expand-file-name-exists-p | ||
635 | "~/quicklisp/slime-helper.el") | ||
636 | (expand-file-name-exists-p | ||
637 | "~/var/quicklisp/slime-helper.el")))) | ||
638 | (load slime-helper)) | ||
639 | |||
640 | (define-key slime-repl-mode-map (kbd "RET") #'slime-repl-return-at-end) | ||
641 | (define-key slime-repl-mode-map (kbd "<return>") | ||
642 | #'slime-repl-return-at-end) | ||
643 | |||
644 | (defun slime-repl-return-at-end () | ||
645 | (interactive) | ||
646 | (if (<= (point-max) (point)) | ||
647 | (slime-repl-return) | ||
648 | (slime-repl-newline-and-indent))) | ||
649 | |||
650 | |||
651 | (with-eval-after-load 'company | ||
652 | (setup (:straight slime-company) | ||
653 | (:option slime-company-completion 'fuzzy | ||
654 | slime-company-after-completion nil) | ||
655 | (slime-setup '(slime-fancy slime-company)))))) | ||
656 | |||
657 | (:sly | ||
658 | (setup (:straight sly) | ||
659 | (:option sly-kill-without-query-p t) | ||
660 | |||
661 | (:also-load sly-autoloads))))) | ||
662 | |||
620 | (setup (:straight (consult | 663 | (setup (:straight (consult |
621 | :host github | 664 | :host github |
622 | :repo "minad/consult")) | 665 | :repo "minad/consult")) |
@@ -763,47 +806,6 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
763 | 806 | ||
764 | (setup (:straight geiser)) | 807 | (setup (:straight geiser)) |
765 | 808 | ||
766 | (setup common-lisp-ide | ||
767 | (defvar acdw/cl-ide :sly) | ||
768 | (defvar acdw/lisp-bin (or (executable-find "sbcl") | ||
769 | (executable-find "clisp"))) | ||
770 | (:needs acdw/lisp-bin) | ||
771 | (:option inferior-lisp-program acdw/lisp-bin) | ||
772 | |||
773 | (pcase acdw/cl-ide | ||
774 | (:slime | ||
775 | (setup (:straight slime) | ||
776 | (:also-load slime-autoloads) | ||
777 | |||
778 | (when-let ((slime-helper (or (expand-file-name-exists-p | ||
779 | "~/quicklisp/slime-helper.el") | ||
780 | (expand-file-name-exists-p | ||
781 | "~/var/quicklisp/slime-helper.el")))) | ||
782 | (load slime-helper)) | ||
783 | |||
784 | (define-key slime-repl-mode-map (kbd "RET") #'slime-repl-return-at-end) | ||
785 | (define-key slime-repl-mode-map (kbd "<return>") | ||
786 | #'slime-repl-return-at-end) | ||
787 | |||
788 | (defun slime-repl-return-at-end () | ||
789 | (interactive) | ||
790 | (if (<= (point-max) (point)) | ||
791 | (slime-repl-return) | ||
792 | (slime-repl-newline-and-indent))) | ||
793 | |||
794 | |||
795 | (with-eval-after-load 'company | ||
796 | (setup (:straight slime-company) | ||
797 | (:option slime-company-completion 'fuzzy | ||
798 | slime-company-after-completion nil) | ||
799 | (slime-setup '(slime-fancy slime-company)))))) | ||
800 | |||
801 | (:sly | ||
802 | (setup (:straight sly) | ||
803 | (:option sly-kill-without-query-p t) | ||
804 | |||
805 | (:also-load sly-autoloads))))) | ||
806 | |||
807 | (setup (:straight (gemini-mode | 809 | (setup (:straight (gemini-mode |
808 | :host nil | 810 | :host nil |
809 | :repo "https://git.carcosa.net/jmcbray/gemini.el.git")) | 811 | :repo "https://git.carcosa.net/jmcbray/gemini.el.git")) |