; Nonsense for 1-line-per-sentence in latex
(defun fill-sentence ()
  (interactive)
  (save-excursion
    (or (eq (point) (point-max)) (forward-char))
    (mark-paragraph)
    (goto-char (region-beginning))
    (setq end-of-paragraph (region-end))
    (indent-relative t)
    (while (< (point) end-of-paragraph)
      (let ((beg (point)))
        ; goto next sentence
        (forward-sentence)
        ; kill spaces after the period, newline will replace
        (if (char-equal (char-after) ?\s)
            (delete-char 1))
        ; newline if there isn't one here already
        (if (not (char-equal (char-after) ?\n))
            (insert "\n"))
        ; wrap it
        (fill-region-as-paragraph beg (point)))))
    (deactivate-mark)
    )

(defun setup-single-line-wrap ()
  (setq sentence-end-double-space nil)
  (setq-default fill-column 1000)
  (visual-line-mode)
  (global-set-key (kbd "M-q") 'fill-sentence)
  (setq whitespace-display-mappings
        '(
          (newline-mark ?\n [?\xB6 ?\n] [?$ ?\n])
          ;(newline-mark 10 [182 10]) ; 10 LINE FEED
          ))
  (custom-set-faces
   '(whitespace-newline
     ((((class color) (background dark)) (:background "red" :foreground "black"))
      (((class color) (background light)) (:background nil :foreground "black"))
      (t (:inverse-video t)))))
  (whitespace-newline-mode)
  )
(add-hook 'latex-mode-hook 'setup-single-line-wrap)
; Hack because for some reason tex isn't getting always picked up as latex-mode
(add-to-list 'auto-mode-alist '("\\.tex$" . latex-mode))