(use-package! scheme
  :defer t
  :config
  (add-hook! 'scheme-mode-hook #'highlight-quoted-mode (corfu-mode -1))
  :init
  (set-ligatures! '(scheme-mode scheme-ts-mode)
    :lambda "lambda"
    :null "'()"
    :true "#t" :false "#f"
    :yield "values"
    :return "receive"
    :def "cut")
  (put 'functor 'scheme-indent-function 2)
  (put 'let/cc 'scheme-indent-function 1)
  (put 'begin0 'scheme-indent-function 0)
  (put 'ignore-errors 'scheme-indent-function 0)
  (put 'if-let* 'scheme-indent-function 1)
  (put 'type-case 'scheme-indent-function 1)
  (put 'type-case* 'scheme-indent-function 1)
  (put 'set-record-printer! 'scheme-indent-function 1)
  (put 'apply 'scheme-indent-function 1)
  (put 'true 'scheme-indent-function 0)
  (put 'false 'scheme-indent-function 0))