28 lines
780 B
EmacsLisp
28 lines
780 B
EmacsLisp
;;; 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)
|