ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
125 lines
3.8 KiB
EmacsLisp
125 lines
3.8 KiB
EmacsLisp
;;; lang/ocaml/config.el -*- lexical-binding: t; -*-
|
|
|
|
;;
|
|
;;; Packages
|
|
|
|
(when (modulep! +lsp)
|
|
(add-hook! '(tuareg-mode-local-vars-hook
|
|
reason-mode-local-vars-hook)
|
|
:append #'lsp!))
|
|
|
|
|
|
(after! tuareg
|
|
;; tuareg-mode has the prettify symbols itself
|
|
(set-ligatures! '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))
|
|
|
|
(setq-hook! 'tuareg-mode-hook
|
|
comment-line-break-function #'+ocaml/comment-indent-new-line)
|
|
|
|
(map! :localleader
|
|
:map tuareg-mode-map
|
|
"a" #'tuareg-find-alternate-file)
|
|
|
|
(use-package! utop
|
|
:when (modulep! :tools eval)
|
|
:hook (tuareg-mode-local-vars . +ocaml-init-utop-h)
|
|
:init
|
|
(set-repl-handler! 'tuareg-mode #'utop)
|
|
(set-eval-handler! 'tuareg-mode #'utop-eval-region)
|
|
(defun +ocaml-init-utop-h ()
|
|
(when (executable-find "utop")
|
|
(utop-minor-mode)))
|
|
:config
|
|
(set-popup-rule! "^\\*utop\\*" :quit nil)))
|
|
|
|
|
|
(use-package! merlin
|
|
:unless (modulep! +lsp)
|
|
:hook (tuareg-mode-local-vars . +ocaml-init-merlin-h)
|
|
:init
|
|
(defun +ocaml-init-merlin-h ()
|
|
"Activate `merlin-mode' if the ocamlmerlin executable exists."
|
|
(when (executable-find "ocamlmerlin")
|
|
(merlin-mode)))
|
|
|
|
(after! tuareg
|
|
(set-company-backend! 'tuareg-mode 'merlin-company-backend)
|
|
(set-lookup-handlers! 'tuareg-mode :async t
|
|
:definition #'merlin-locate
|
|
:references #'merlin-occurrences
|
|
:documentation #'merlin-document))
|
|
:config
|
|
(setq merlin-completion-with-doc t)
|
|
|
|
(map! :localleader
|
|
:map tuareg-mode-map
|
|
"t" #'merlin-type-enclosing)
|
|
|
|
(use-package! flycheck-ocaml
|
|
:when (modulep! :checkers syntax)
|
|
:hook (merlin-mode . +ocaml-init-flycheck-h)
|
|
:config
|
|
(defun +ocaml-init-flycheck-h ()
|
|
"Activate `flycheck-ocaml`"
|
|
;; Disable Merlin's own error checking
|
|
(setq merlin-error-after-save nil)
|
|
;; Enable Flycheck checker
|
|
(flycheck-ocaml-setup)))
|
|
|
|
(use-package! merlin-eldoc
|
|
:hook (merlin-mode . merlin-eldoc-setup))
|
|
|
|
(use-package! merlin-iedit
|
|
:when (modulep! :editor multiple-cursors)
|
|
:defer t
|
|
:init
|
|
(map! :map tuareg-mode-map
|
|
:v "R" #'merlin-iedit-occurrences))
|
|
|
|
(use-package! merlin-imenu
|
|
:when (modulep! :emacs imenu)
|
|
:hook (merlin-mode . merlin-use-merlin-imenu)))
|
|
|
|
|
|
(use-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
|
|
:hook (tuareg-mode-local-vars . +ocaml-init-ocp-indent-h)
|
|
:config
|
|
(defun +ocaml-init-ocp-indent-h ()
|
|
"Run `ocp-setup-indent', so long as the ocp-indent binary exists."
|
|
(when (executable-find "ocp-indent")
|
|
(ocp-setup-indent))))
|
|
|
|
|
|
(use-package! ocamlformat
|
|
:when (modulep! :editor format)
|
|
:commands ocamlformat
|
|
:hook (tuareg-mode-local-vars . +ocaml-init-ocamlformat-h)
|
|
:config
|
|
(set-formatter! 'ocamlformat #'ocamlformat
|
|
:modes '(caml-mode tuareg-mode))
|
|
;; TODO Fix region-based formatting support
|
|
(defun +ocaml-init-ocamlformat-h ()
|
|
(setq +format-with 'ocp-indent)
|
|
(when (and (executable-find "ocamlformat")
|
|
(locate-dominating-file default-directory ".ocamlformat"))
|
|
(when buffer-file-name
|
|
(let ((ext (file-name-extension buffer-file-name t)))
|
|
(cond ((equal ext ".eliom")
|
|
(setq-local ocamlformat-file-kind 'implementation))
|
|
((equal ext ".eliomi")
|
|
(setq-local ocamlformat-file-kind 'interface)))))
|
|
(setq +format-with 'ocamlformat))))
|
|
|
|
;; Tree sitter
|
|
(eval-when! (modulep! +tree-sitter)
|
|
(add-hook! 'tuareg-mode-local-vars-hook #'tree-sitter!))
|