Add clhs and move common-lisp-ide to be in alpha order
This commit is contained in:
parent
2166e0f323
commit
a4c3a6d3b9
84
init.el
84
init.el
|
@ -617,6 +617,49 @@
|
||||||
(setup (:straight (beginend))
|
(setup (:straight (beginend))
|
||||||
(beginend-global-mode +1))
|
(beginend-global-mode +1))
|
||||||
|
|
||||||
|
(setup common-lisp-ide
|
||||||
|
(defvar acdw/cl-ide :sly)
|
||||||
|
(defvar acdw/lisp-bin (or (executable-find "sbcl")
|
||||||
|
(executable-find "clisp")))
|
||||||
|
(:needs acdw/lisp-bin)
|
||||||
|
(:option inferior-lisp-program acdw/lisp-bin)
|
||||||
|
|
||||||
|
(setup (:straight clhs))
|
||||||
|
|
||||||
|
(pcase acdw/cl-ide
|
||||||
|
(:slime
|
||||||
|
(setup (:straight slime)
|
||||||
|
(:also-load slime-autoloads)
|
||||||
|
|
||||||
|
(when-let ((slime-helper (or (expand-file-name-exists-p
|
||||||
|
"~/quicklisp/slime-helper.el")
|
||||||
|
(expand-file-name-exists-p
|
||||||
|
"~/var/quicklisp/slime-helper.el"))))
|
||||||
|
(load slime-helper))
|
||||||
|
|
||||||
|
(define-key slime-repl-mode-map (kbd "RET") #'slime-repl-return-at-end)
|
||||||
|
(define-key slime-repl-mode-map (kbd "<return>")
|
||||||
|
#'slime-repl-return-at-end)
|
||||||
|
|
||||||
|
(defun slime-repl-return-at-end ()
|
||||||
|
(interactive)
|
||||||
|
(if (<= (point-max) (point))
|
||||||
|
(slime-repl-return)
|
||||||
|
(slime-repl-newline-and-indent)))
|
||||||
|
|
||||||
|
|
||||||
|
(with-eval-after-load 'company
|
||||||
|
(setup (:straight slime-company)
|
||||||
|
(:option slime-company-completion 'fuzzy
|
||||||
|
slime-company-after-completion nil)
|
||||||
|
(slime-setup '(slime-fancy slime-company))))))
|
||||||
|
|
||||||
|
(:sly
|
||||||
|
(setup (:straight sly)
|
||||||
|
(:option sly-kill-without-query-p t)
|
||||||
|
|
||||||
|
(:also-load sly-autoloads)))))
|
||||||
|
|
||||||
(setup (:straight (consult
|
(setup (:straight (consult
|
||||||
:host github
|
:host github
|
||||||
:repo "minad/consult"))
|
:repo "minad/consult"))
|
||||||
|
@ -763,47 +806,6 @@ if ripgrep is installed, otherwise `consult-grep'."
|
||||||
|
|
||||||
(setup (:straight geiser))
|
(setup (:straight geiser))
|
||||||
|
|
||||||
(setup common-lisp-ide
|
|
||||||
(defvar acdw/cl-ide :sly)
|
|
||||||
(defvar acdw/lisp-bin (or (executable-find "sbcl")
|
|
||||||
(executable-find "clisp")))
|
|
||||||
(:needs acdw/lisp-bin)
|
|
||||||
(:option inferior-lisp-program acdw/lisp-bin)
|
|
||||||
|
|
||||||
(pcase acdw/cl-ide
|
|
||||||
(:slime
|
|
||||||
(setup (:straight slime)
|
|
||||||
(:also-load slime-autoloads)
|
|
||||||
|
|
||||||
(when-let ((slime-helper (or (expand-file-name-exists-p
|
|
||||||
"~/quicklisp/slime-helper.el")
|
|
||||||
(expand-file-name-exists-p
|
|
||||||
"~/var/quicklisp/slime-helper.el"))))
|
|
||||||
(load slime-helper))
|
|
||||||
|
|
||||||
(define-key slime-repl-mode-map (kbd "RET") #'slime-repl-return-at-end)
|
|
||||||
(define-key slime-repl-mode-map (kbd "<return>")
|
|
||||||
#'slime-repl-return-at-end)
|
|
||||||
|
|
||||||
(defun slime-repl-return-at-end ()
|
|
||||||
(interactive)
|
|
||||||
(if (<= (point-max) (point))
|
|
||||||
(slime-repl-return)
|
|
||||||
(slime-repl-newline-and-indent)))
|
|
||||||
|
|
||||||
|
|
||||||
(with-eval-after-load 'company
|
|
||||||
(setup (:straight slime-company)
|
|
||||||
(:option slime-company-completion 'fuzzy
|
|
||||||
slime-company-after-completion nil)
|
|
||||||
(slime-setup '(slime-fancy slime-company))))))
|
|
||||||
|
|
||||||
(:sly
|
|
||||||
(setup (:straight sly)
|
|
||||||
(:option sly-kill-without-query-p t)
|
|
||||||
|
|
||||||
(:also-load sly-autoloads)))))
|
|
||||||
|
|
||||||
(setup (:straight (gemini-mode
|
(setup (:straight (gemini-mode
|
||||||
:host nil
|
:host nil
|
||||||
:repo "https://git.carcosa.net/jmcbray/gemini.el.git"))
|
:repo "https://git.carcosa.net/jmcbray/gemini.el.git"))
|
||||||
|
|
Loading…
Reference in New Issue