cdd39b20a5
This displays the type and documentation of thing under point and highlights occurrences automatically when idle. Could be achieved by appropriate use of keyboard shortcuts already set up by this module. However `merlin-eldoc` can also display the expected type of function call parameters, which merlin itself wouldn't. Signed-off-by: Edwin Török <edwin@etorok.net>
96 lines
3.1 KiB
EmacsLisp
96 lines
3.1 KiB
EmacsLisp
;;; lang/ocaml/config.el -*- lexical-binding: t; -*-
|
|
|
|
(after! tuareg
|
|
;; tuareg-mode has the prettify symbols itself
|
|
(set-pretty-symbols! 'tuareg-mode :alist
|
|
(append tuareg-prettify-symbols-basic-alist
|
|
tuareg-prettify-symbols-extra-alist))
|
|
;; harmless if `prettify-symbols-mode' isn't active
|
|
(setq tuareg-prettify-symbols-full t)
|
|
|
|
;; Use opam to set environment
|
|
(setq tuareg-opam-insinuate t)
|
|
(tuareg-opam-update-env (tuareg-opam-current-compiler))
|
|
|
|
;; Spell-check comments
|
|
(when (featurep! :feature spellcheck)
|
|
(add-hook 'tuareg-mode-local-vars-hook #'flyspell-prog-mode))
|
|
|
|
|
|
(def-package! merlin
|
|
:defer t
|
|
:init
|
|
(defun +ocaml|init-merlin ()
|
|
"Activate `merlin-mode' if the ocamlmerlin executable exists."
|
|
(when (executable-find "ocamlmerlin")
|
|
(merlin-mode)))
|
|
(add-hook 'tuareg-mode-hook #'+ocaml|init-merlin)
|
|
|
|
(set-company-backend! 'tuareg-mode 'merlin-company-backend)
|
|
(set-lookup-handlers! 'tuareg-mode
|
|
:definition #'merlin-locate
|
|
:references #'merlin-occurrences
|
|
:documentation #'merlin-document)
|
|
:config
|
|
(setq merlin-completion-with-doc t)
|
|
|
|
(map! :map tuareg-mode-map
|
|
:localleader
|
|
:n "t" #'merlin-type-enclosing
|
|
:n "a" #'tuareg-find-alternate-file))
|
|
|
|
|
|
(def-package! flycheck-ocaml
|
|
:when (featurep! :feature syntax-checker)
|
|
:init
|
|
(defun +ocaml|init-flycheck ()
|
|
"Activate `flycheck-ocaml` if the current project possesses a .merlin file."
|
|
(when (projectile-locate-dominating-file default-directory ".merlin")
|
|
;; Disable Merlin's own error checking
|
|
(setq merlin-error-after-save nil)
|
|
;; Enable Flycheck checker
|
|
(flycheck-ocaml-setup)))
|
|
(add-hook 'merlin-mode-hook #'+ocaml|init-flycheck))
|
|
|
|
|
|
(def-package! merlin-eldoc
|
|
:hook (merlin-mode . merlin-eldoc-setup))
|
|
|
|
|
|
(def-package! utop
|
|
:when (featurep! :feature eval)
|
|
:defer t ; loaded by hook below
|
|
:init
|
|
(set-repl-handler! 'tuareg-mode #'utop)
|
|
(set-eval-handler! 'tuareg-mode #'utop-eval-region)
|
|
(defun +ocaml|init-utop ()
|
|
(when (executable-find "utop")
|
|
(utop-minor-mode)))
|
|
(add-hook 'tuareg-mode-hook #'+ocaml|init-utop))
|
|
|
|
|
|
(def-package! ocp-indent
|
|
;; must be careful to always defer this, it has autoloads that adds hooks
|
|
;; which we do not want if the executable can't be found
|
|
:defer t
|
|
:init
|
|
(defun +ocaml|init-ocp-indent ()
|
|
"Run `ocp-setup-indent', so long as the ocp-indent binary exists."
|
|
(when (executable-find "ocp-indent")
|
|
(ocp-setup-indent)))
|
|
(add-hook 'tuareg-mode-hook #'+ocaml|init-ocp-indent))
|
|
|
|
|
|
(def-package! ocamlformat
|
|
:when (featurep! :editor format)
|
|
:commands ocamlformat
|
|
:init
|
|
(set-formatter! 'ocamlformat #'ocamlformat
|
|
:modes '(caml-mode tuareg-mode))
|
|
;; TODO Fix region-based formatting support
|
|
(defun +ocaml|init-ocamlformat ()
|
|
(setq +format-with 'ocp-indent)
|
|
(when (and (executable-find "ocamlformat")
|
|
(locate-dominating-file default-directory ".ocamlformat"))
|
|
(setq +format-with 'ocamlformat)))
|
|
(add-hook 'tuareg-mode-hook #'+ocaml|init-ocamlformat)))
|