about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el84
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"))