6fdc2a2e40
The function that loads a new Elm REPL is `elm-repl-load`, but it was incorrectly referenced in the elm layer as `load-elm-repl`.
117 lines
3.5 KiB
EmacsLisp
117 lines
3.5 KiB
EmacsLisp
;;; packages.el --- elm Layer packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2014 Sylvain Benner
|
|
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(setq elm-packages
|
|
'(
|
|
company
|
|
elm-mode
|
|
flycheck
|
|
flycheck-elm
|
|
popwin
|
|
smartparens
|
|
))
|
|
|
|
(defun elm/post-init-company ()
|
|
(spacemacs|add-company-hook elm-mode)
|
|
(add-hook 'elm-mode-hook 'elm-oracle-setup-completion))
|
|
|
|
(defun elm/post-init-flycheck ()
|
|
(add-hook 'elm-mode-hook 'flycheck-mode))
|
|
|
|
(when (configuration-layer/layer-usedp 'syntax-checking)
|
|
(defun elm/init-flycheck-elm ()
|
|
"Initialize flycheck-elm"
|
|
(use-package flycheck-elm
|
|
:if (configuration-layer/package-usedp 'flycheck)
|
|
:defer t
|
|
:init (add-hook 'flycheck-mode-hook 'flycheck-elm-setup t))))
|
|
|
|
(defun elm/init-elm-mode ()
|
|
"Initialize elm-mode"
|
|
(use-package elm-mode
|
|
:mode ("\\.elm\\'" . elm-mode)
|
|
:init
|
|
(progn
|
|
(defun spacemacs/init-elm-mode ()
|
|
"Disable electric-indent-mode and let indentation cycling feature work"
|
|
(if (fboundp 'electric-indent-local-mode)
|
|
(electric-indent-local-mode -1)))
|
|
|
|
(add-hook 'elm-mode-hook 'spacemacs/init-elm-mode))
|
|
:config
|
|
(progn
|
|
(push "\\*elm\\*" spacemacs-useful-buffers-regexp)
|
|
|
|
(defun spacemacs/elm-compile-buffer-output ()
|
|
(interactive)
|
|
(let* ((fname (format "%s.js" (downcase (file-name-base (buffer-file-name))))))
|
|
(elm-compile--file (elm--buffer-local-file-name) fname)))
|
|
|
|
(defun spacemacs/push-decl-elm-repl-focus ()
|
|
"Send current function to the REPL and focus it in insert state."
|
|
(interactive)
|
|
(push-decl-elm-repl)
|
|
(run-elm-interactive)
|
|
(evil-insert-state))
|
|
|
|
(defun spacemacs/push-elm-repl-focus ()
|
|
"Send current region to the REPL and focus it in insert state."
|
|
(push-elm-repl)
|
|
(run-elm-interactive)
|
|
(evil-insert-state))
|
|
|
|
(evil-leader/set-key-for-mode 'elm-mode
|
|
;; make
|
|
"mcb" 'elm-compile-buffer
|
|
"mcB" 'spacemacs/elm-compile-buffer-output
|
|
"mcm" 'elm-compile-main
|
|
|
|
;; oracle
|
|
"mht" 'elm-oracle-type-at-point
|
|
|
|
;; repl
|
|
"msi" 'elm-repl-load
|
|
"msf" 'push-decl-elm-repl
|
|
"msF" 'spacemacs/push-decl-elm-repl-focus
|
|
"msr" 'push-elm-repl
|
|
"msR" 'spacemacs/push-elm-repl-focus
|
|
|
|
;; reactor
|
|
"mRn" 'elm-preview-buffer
|
|
"mRm" 'elm-preview-main
|
|
|
|
;; package
|
|
"mpi" 'elm-import
|
|
"mpc" 'elm-package-catalog
|
|
"mpd" 'elm-documentation-lookup)
|
|
|
|
(evilify elm-package-mode elm-package-mode-map
|
|
"g" 'elm-package-refresh
|
|
"n" 'elm-package-next
|
|
"p" 'elm-package-prev
|
|
"v" 'elm-package-view
|
|
"m" 'elm-package-mark
|
|
"u" 'elm-package-unmark
|
|
"x" 'elm-package-install
|
|
"q" 'quit-window))))
|
|
|
|
(defun elm/pre-init-popwin ()
|
|
(spacemacs|use-package-add-hook popwin
|
|
:post-config
|
|
(push '("*elm*" :tail t :noselect t) popwin:special-display-config)
|
|
(push '("*elm-make*" :tail t :noselect t) popwin:special-display-config)))
|
|
|
|
(defun elm/post-init-smartparens ()
|
|
(if dotspacemacs-smartparens-strict-mode
|
|
(add-hook 'elm-mode-hook #'smartparens-strict-mode)
|
|
(add-hook 'elm-mode-hook #'smartparens-mode)))
|