TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

racket layer: Configure company

Browse source
This commit is contained in:
syl20bnr 2015-04-09 00:40:49 -04:00
parent c805979ca2
commit fef3268f47
1 changed files with 19 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
contrib/lang/racket/packages.el
View file

@ -1,15 +1,27 @@
(defvar racket-packages
'(racket-mode))
'(
company
company-quickhelp-mode
racket-mode
))
(defun racket/post-init-company ()
;; this is the only thing to do to enable company in racket-mode
;; because racket-mode handle everything for us when company
;; is loaded.
(add-hook 'racket-mode-hook 'company-mode))
(defun racket/post-init-company-quickhelp ()
;; Bug exists in Racket company backend that opens docs in new window when
;; company-quickhelp calls it. Note hook is appendended for proper ordering.
(add-hook 'company-mode-hook
'(lambda ()
(when (equal major-mode 'racket-mode)
(company-quickhelp-mode -1))) t))
(defun racket/init-racket-mode ()
(use-package racket-mode
:defer t
;; Bug exists in Racket company backend that opens docs in new window when
;; company-quickhelp calls it. Note hook is appendended for proper ordering.
:init
(when (configuration-layer/package-usedp 'company-quickhelp)
(add-hook 'company-mode-hook
'(lambda () (when (equal major-mode 'racket-mode) (company-quickhelp-mode -1))) t))
:config
(progn
;; smartparens configuration