From e0757fbad28df13d11bdae72cabc023e1e00ea8a Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sun, 13 Oct 2019 12:54:53 +0200 Subject: [PATCH] Helm/SLY/SLIME: Update bindings and use helm-company. --- .emacs.d/lisp/init-helm.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/.emacs.d/lisp/init-helm.el b/.emacs.d/lisp/init-helm.el index 64ff13b2..76ed2c66 100644 --- a/.emacs.d/lisp/init-helm.el +++ b/.emacs.d/lisp/init-helm.el @@ -154,9 +154,11 @@ (with-eval-after-load 'sly (with-eval-after-load 'sly-mrepl (define-key sly-mrepl-mode-map (kbd "M-p") 'helm-comint-input-ring) - (define-key sly-mrepl-mode-map (kbd "M-s f") 'helm-comint-prompts-all)) - (with-eval-after-load 'helm-company - (define-key sly-mrepl-mode-map (kbd "M-") 'helm-company))) + (define-key sly-mrepl-mode-map (kbd "M-s f") 'helm-comint-prompts-all) + (define-key sly-autodoc-mode-map (kbd "C-c C-d C-a") 'helm-lisp-apropos) + (define-key sly-mrepl-mode-map (kbd "C-c C-x c") 'helm-lisp-list-connections) + (define-key sly-mrepl-mode-map (kbd "M-") 'helm-company) + (define-key sly-mrepl-mode-map (kbd "") 'helm-company))) ;;; SLIME (with-eval-after-load 'slime @@ -166,11 +168,11 @@ (define-key slime-repl-mode-map (kbd "M-p") 'helm-slime-repl-history) (define-key slime-repl-mode-map (kbd "M-s") nil) (define-key slime-repl-mode-map (kbd "M-s f") 'helm-comint-prompts-all) - (define-key slime-autodoc-mode-map (kbd "C-c C-d C-a") 'helm-slime-apropos) - (define-key slime-repl-mode-map (kbd "C-c C-x c") 'helm-slime-list-connections) - (define-key slime-mode-map (kbd "M-") 'helm-slime-complete) + (define-key slime-autodoc-mode-map (kbd "C-c C-d C-a") 'helm-lisp-apropos) + (define-key slime-repl-mode-map (kbd "C-c C-x c") 'helm-lisp-list-connections) + (define-key slime-mode-map (kbd "M-") 'helm-company) (dolist (key '("M-" "")) - (define-key slime-repl-mode-map (kbd key) 'helm-slime-complete))) + (define-key slime-repl-mode-map (kbd key) 'helm-company))) (add-hook 'slime-repl-mode-hook 'ambrevar/helm/slime-set-keys)))) ;;; TODO: Use helm-ff history in helm file completion.