;;; syd-prose.el -*- lexical-binding: t; -*-

(use-package visual-fill-column
  :defer t)

(defun syd-prose-disable-display-line-numbers-mode-h ()
  "Disable `display-line-numbers-mode'."
  (display-line-numbers-mode -1))

(defun syd-prose-set-visual-fill-column-center ()
  "Sets the buffer-local value for `visual-fill-column-center-text'."
  (setq-local visual-fill-column-center-text t))

(defvar syd-prose-mode-hook
  (list #'syd-prose-set-visual-fill-column-center
        #'visual-fill-column-mode
        #'visual-line-mode
        #'variable-pitch-mode
        #'syd-prose-disable-display-line-numbers-mode-h)
  "Hooks run for `syd-prose-mode'.")

;;;###autoload
(define-minor-mode syd-prose-mode
  "A minor mode for writing prose."
  :lighter nil)

(provide 'syd-prose)