Helm/Lisp: init helm-slime
parent
22f6b3655a
commit
a8f30c7493
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue