acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Add clhs and move common-lisp-ide to be in alpha order

This commit is contained in:
Case Duckworth 2021-05-04 09:58:16 -05:00
parent 2166e0f323
commit a4c3a6d3b9
1 changed files with 43 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
init.el
View File

@ -617,6 +617,49 @@
(setup (:straight (beginend))
(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
:host github
:repo "minad/consult"))
@ -763,47 +806,6 @@ if ripgrep is installed, otherwise `consult-grep'."
(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
:host nil
:repo "https://git.carcosa.net/jmcbray/gemini.el.git"))