mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Helm/SLY/SLIME: Update bindings and use helm-company.

master
Pierre Neidhardt 2019-10-13 12:54:53 +02:00
parent 7e1e85bbff
commit e0757fbad2
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
.emacs.d/lisp/init-helm.el
View File

@ -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-<tab>") '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-<tab>") 'helm-company)
(define-key sly-mrepl-mode-map (kbd "<tab>") '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-<tab>") '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-<tab>") 'helm-company)
(dolist (key '("M-<tab>" "<tab>"))
(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.