contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Try to use Company in slime-repl-mode

This commit is contained in:
contrapunctus 2022-01-14 12:26:57 +05:30
parent 8e83db5b58
commit 4178488f64
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
init.org
View File

@ -2178,6 +2178,7 @@ PR ideas
:hook (prog-mode . company-mode)
(special-mode . company-mode)
(comint-mode . company-mode)
(slime-repl-mode . company-mode)
:bind ;; ("TAB" . company-indent-or-complete-common)
(:map emacs-lisp-mode-map
("TAB" . company-indent-or-complete-common)
@ -4361,7 +4362,9 @@ All COMMAND-SPECS should be a list in the form
(:map slime-repl-mode-map
("M-p" . slime-repl-previous-matching-input) ;; QWERTY "r"
("M-c" . slime-repl-previous-input)
("M-r" . slime-repl-next-input))
("M-r" . slime-repl-next-input)
("TAB" . company-indent-or-complete-common)
("C-i" . company-indent-or-complete-common))
:config
(setq slime-contribs (cons 'slime-tramp slime-contribs))
(slime-setup slime-contribs)
@ -4377,7 +4380,8 @@ All COMMAND-SPECS should be a list in the form
(slime-create-filename-translator
:machine-instance "tilde"
:remote-host "tilde.team"
:username "contrapunctus")))
:username "contrapunctus"))
(add-to-list 'company-backends 'company-slime))
(defun set-cl-repl-keys ()
(if (or (cp-buffer-name-match-p "^\*inferior-lisp\*\\(<[0-9]*>\\)?")