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

Helm/Lisp: init helm-slime

master
Pierre Neidhardt 2018-10-16 20:10:02 +02:00
parent 22f6b3655a
commit a8f30c7493
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -146,6 +146,19 @@
(define-key geiser-repl-mode-map (kbd "M-p") 'helm-comint-input-ring))
(add-hook 'geiser-repl-mode-hook 'ambrevar/helm/geiser-set-keys))
;;; SLIME
(when (require 'helm-slime nil t)
(with-eval-after-load 'slime-repl
(when (require 'company nil t)
(add-hook 'slime-repl-mode-hook 'company-mode))
(defun ambrevar/helm/slime-set-keys ()
(define-key slime-repl-mode-map (kbd "M-p") 'helm-slime-repl-history)
(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)
(when (require 'company nil t)
(define-key slime-repl-mode-map (kbd "<tab>") 'helm-company)))
(add-hook 'slime-repl-mode-hook 'ambrevar/helm/slime-set-keys)))
;;; TODO: Use helm-ff history in helm file completion.
;;; https://github.com/emacs-helm/helm/issues/1118
;; (define-key helm-read-file-map (kbd "M-p") 'helm-ff-run-switch-to-history)