Return to Answer

Add syntax highlighting.

edit approved May 12, 2015 at 21:26

2.8k
1
20
31

(define-minor-mode ospl-mode "One Sentence Per Line" :init-value nil :lighter " ospl" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "M-q") 'ospl/fill-paragraph) map) (if ospl-mode (progn (visual-line-mode 1) (setq right-margin-width (- (window-body-width) fill-column))) (visual-line-mode -1) (setq right-margin-width 0)) ;; Account for new margin width (set-window-buffer (selected-window) (current-buffer))) (defun ospl/unfill-paragraph () "Unfill the paragraph at point. This repeatedly calls `join-line' until the whole paragraph does not contain hard line breaks any more." (interactive) (forward-paragraph 1) (forward-paragraph -1) (while (looking-at paragraph-start) (forward-line 1)) (let ((beg (point))) (forward-paragraph 1) (backward-char 1) (while (> (point) beg) (join-line) (beginning-of-line)))) (defun ospl/fill-paragraph () "Fill the current paragraph until there is one sentence per line. This unfills the paragraph, and places hard line breaks after each sentence." (interactive) (save-excursion (fill-paragraph) ; takes care of putting 2 spaces if needed (ospl/unfill-paragraph) ; remove hard line breaks ;; insert line breaks again (let ((end-of-paragraph (make-marker))) (save-excursion (forward-paragraph) (backward-sentence) (forward-sentence) (set-marker end-of-paragraph (point))) (forward-sentence) (while (< (point) end-of-paragraph) (just-one-space) (delete-backward-char 1) (newline) (forward-sentence)) (set-marker end-of-paragraph nil))))

(define-minor-mode ospl-mode "One Sentence Per Line" :init-value nil :lighter " ospl" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "M-q") 'ospl/fill-paragraph) map) (if ospl-mode (progn (visual-line-mode 1) (setq right-margin-width (- (window-body-width) fill-column))) (visual-line-mode -1) (setq right-margin-width 0)) ;; Account for new margin width (set-window-buffer (selected-window) (current-buffer))) (defun ospl/unfill-paragraph () "Unfill the paragraph at point. This repeatedly calls `join-line' until the whole paragraph does not contain hard line breaks any more." (interactive) (forward-paragraph 1) (forward-paragraph -1) (while (looking-at paragraph-start) (forward-line 1)) (let ((beg (point))) (forward-paragraph 1) (backward-char 1) (while (> (point) beg) (join-line) (beginning-of-line)))) (defun ospl/fill-paragraph () "Fill the current paragraph until there is one sentence per line. This unfills the paragraph, and places hard line breaks after each sentence." (interactive) (save-excursion (fill-paragraph) ; takes care of putting 2 spaces if needed (ospl/unfill-paragraph) ; remove hard line breaks ;; insert line breaks again (let ((end-of-paragraph (make-marker))) (save-excursion (forward-paragraph) (backward-sentence) (forward-sentence) (set-marker end-of-paragraph (point))) (forward-sentence) (while (< (point) end-of-paragraph) (just-one-space) (delete-backward-char 1) (newline) (forward-sentence)) (set-marker end-of-paragraph nil))))

(define-minor-mode ospl-mode "One Sentence Per Line" :init-value nil :lighter " ospl" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "M-q") 'ospl/fill-paragraph) map) (if ospl-mode (progn (visual-line-mode 1) (setq right-margin-width (- (window-body-width) fill-column))) (visual-line-mode -1) (setq right-margin-width 0)) ;; Account for new margin width (set-window-buffer (selected-window) (current-buffer))) (defun ospl/unfill-paragraph () "Unfill the paragraph at point. This repeatedly calls `join-line' until the whole paragraph does not contain hard line breaks any more." (interactive) (forward-paragraph 1) (forward-paragraph -1) (while (looking-at paragraph-start) (forward-line 1)) (let ((beg (point))) (forward-paragraph 1) (backward-char 1) (while (> (point) beg) (join-line) (beginning-of-line)))) (defun ospl/fill-paragraph () "Fill the current paragraph until there is one sentence per line. This unfills the paragraph, and places hard line breaks after each sentence." (interactive) (save-excursion (fill-paragraph) ; takes care of putting 2 spaces if needed (ospl/unfill-paragraph) ; remove hard line breaks ;; insert line breaks again (let ((end-of-paragraph (make-marker))) (save-excursion (forward-paragraph) (backward-sentence) (forward-sentence) (set-marker end-of-paragraph (point))) (forward-sentence) (while (< (point) end-of-paragraph) (just-one-space) (delete-backward-char 1) (newline) (forward-sentence)) (set-marker end-of-paragraph nil))))

(define-minor-mode ospl-mode "One Sentence Per Line" :init-value nil :lighter " ospl" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "M-q") 'ospl/fill-paragraph) map) (if ospl-mode (progn (visual-line-mode 1) (setq right-margin-width (- (window-body-width) fill-column))) (visual-line-mode -1) (setq right-margin-width 0)) ;; Account for new margin width (set-window-buffer (selected-window) (current-buffer))) (defun ospl/unfill-paragraph () "Unfill the paragraph at point. This repeatedly calls `join-line' until the whole paragraph does not contain hard line breaks any more." (interactive) (forward-paragraph 1) (forward-paragraph -1) (while (looking-at paragraph-start) (forward-line 1)) (let ((beg (point))) (forward-paragraph 1) (backward-char 1) (while (> (point) beg) (join-line) (beginning-of-line)))) (defun ospl/fill-paragraph () "Fill the current paragraph until there is one sentence per line. This unfills the paragraph, and places hard line breaks after each sentence." (interactive) (save-excursion (fill-paragraph) ; takes care of putting 2 spaces if needed (ospl/unfill-paragraph) ; remove hard line breaks ;; insert line breaks again (let ((end-of-paragraph (make-marker))) (save-excursion (forward-paragraph) (backward-sentence) (forward-sentence) (set-marker end-of-paragraph (point))) (forward-sentence) (while (< (point) end-of-paragraph) (just-one-space) (delete-backward-char 1) (newline) (forward-sentence)) (set-marker end-of-paragraph nil))))

fix bug

Source Link

edited Sep 30, 2014 at 11:54

François Févotte

6.2k
2
27
39

(define-minor-mode ospl-mode "One Sentence Per Line" :init-value nil :lighter " ospl" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "M-q") 'ospl/fill-paragraph) map) (if ospl-mode (progn (visual-line-mode 1) (setq right-margin-width (- (window-body-width) fill-column))) (visual-line-mode -1) (setq right-margin-width 0)) ;; Account for new margin width (set-window-buffer (selected-window) (current-buffer))) (defun ospl/unfill-paragraph () "Unfill the paragraph at point. This repeatedly calls `join-line' until the whole paragraph does not contain hard line breaks any more." (interactive) (forward-paragraph 1) (forward-paragraph -1) (while (looking-at paragraph-start) (forward-line 1)) (let ((beg (point))) (forward-paragraph 1) (backward-char 1) (while (> (point) beg) (join-line) (beginning-of-line)))) (defun ospl/fill-paragraph () "Fill the current paragraph until there is one sentence per line. This unfills the paragraph, and places hard line breaks after each sentence." (interactive) (save-excursion (fill-paragraph)  ; takes care of putting 2 spaces if needed (ospl/unfill-paragraph) ; remove hard line breaks ;; insert line breaks again (let ((end-of-paragraph (make-marker))) (save-excursion (forward-paragraph) (backward-sentence) (forward-sentence) (set-marker end-of-paragraph (point))) (forward-sentence) (while (< (point) end-of-paragraph) (just-one-space) (delete-backward-char 1) (newline) (forward-sentence)) (set-marker end-of-paragraph nil))))

(define-minor-mode ospl-mode "One Sentence Per Line" :init-value nil :lighter " ospl" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "M-q") 'ospl/fill-paragraph) map) (if ospl-mode (progn (visual-line-mode 1) (setq right-margin-width (- (window-body-width) fill-column))) (visual-line-mode -1) (setq right-margin-width 0)) ;; Account for new margin width (set-window-buffer (selected-window) (current-buffer))) (defun ospl/unfill-paragraph () "Unfill the paragraph at point. This repeatedly calls `join-line' until the whole paragraph does not contain hard line breaks any more." (interactive) (forward-paragraph 1) (forward-paragraph -1) (while (looking-at paragraph-start) (forward-line 1)) (let ((beg (point))) (forward-paragraph 1) (backward-char 1) (while (> (point) beg) (join-line) (beginning-of-line)))) (defun ospl/fill-paragraph () "Fill the current paragraph until there is one sentence per line. This unfills the paragraph, and places hard line breaks after each sentence." (interactive) (save-excursion (fill-paragraph) ; takes care of putting 2 spaces if needed (unfill-paragraph) ; remove hard line breaks ;; insert line breaks again (let ((end-of-paragraph (make-marker))) (save-excursion (forward-paragraph) (backward-sentence) (forward-sentence) (set-marker end-of-paragraph (point))) (forward-sentence) (while (< (point) end-of-paragraph) (just-one-space) (delete-backward-char 1) (newline) (forward-sentence)) (set-marker end-of-paragraph nil))))

(define-minor-mode ospl-mode "One Sentence Per Line" :init-value nil :lighter " ospl" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "M-q") 'ospl/fill-paragraph) map) (if ospl-mode (progn (visual-line-mode 1) (setq right-margin-width (- (window-body-width) fill-column))) (visual-line-mode -1) (setq right-margin-width 0)) ;; Account for new margin width (set-window-buffer (selected-window) (current-buffer))) (defun ospl/unfill-paragraph () "Unfill the paragraph at point. This repeatedly calls `join-line' until the whole paragraph does not contain hard line breaks any more." (interactive) (forward-paragraph 1) (forward-paragraph -1) (while (looking-at paragraph-start) (forward-line 1)) (let ((beg (point))) (forward-paragraph 1) (backward-char 1) (while (> (point) beg) (join-line) (beginning-of-line)))) (defun ospl/fill-paragraph () "Fill the current paragraph until there is one sentence per line. This unfills the paragraph, and places hard line breaks after each sentence." (interactive) (save-excursion (fill-paragraph)  ; takes care of putting 2 spaces if needed (ospl/unfill-paragraph) ; remove hard line breaks ;; insert line breaks again (let ((end-of-paragraph (make-marker))) (save-excursion (forward-paragraph) (backward-sentence) (forward-sentence) (set-marker end-of-paragraph (point))) (forward-sentence) (while (< (point) end-of-paragraph) (just-one-space) (delete-backward-char 1) (newline) (forward-sentence)) (set-marker end-of-paragraph nil))))

Source Link

answered Sep 29, 2014 at 22:01

François Févotte

6.2k
2
27
39

For (1), I would use an enlarged margin, so that visual-line-mode wraps lines at the desired fill-column. This will affect both text lines and equations, though.

As for (2), one can define a custom filling command to be bound to M-q and correctly fill paragraphs. I haven't yet managed to write a command with the correct behaviour for auto-filling.

Wrapping this all in a minor mode could look like the following. It is not very beautiful code, but should work in most cases. (I have had the unfill-paragraph function in my init.el for quite some time without noticing problems).

(define-minor-mode ospl-mode "One Sentence Per Line" :init-value nil :lighter " ospl" :keymap (let ((map (make-sparse-keymap))) (define-key map (kbd "M-q") 'ospl/fill-paragraph) map) (if ospl-mode (progn (visual-line-mode 1) (setq right-margin-width (- (window-body-width) fill-column))) (visual-line-mode -1) (setq right-margin-width 0)) ;; Account for new margin width (set-window-buffer (selected-window) (current-buffer))) (defun ospl/unfill-paragraph () "Unfill the paragraph at point. This repeatedly calls `join-line' until the whole paragraph does not contain hard line breaks any more." (interactive) (forward-paragraph 1) (forward-paragraph -1) (while (looking-at paragraph-start) (forward-line 1)) (let ((beg (point))) (forward-paragraph 1) (backward-char 1) (while (> (point) beg) (join-line) (beginning-of-line)))) (defun ospl/fill-paragraph () "Fill the current paragraph until there is one sentence per line. This unfills the paragraph, and places hard line breaks after each sentence." (interactive) (save-excursion (fill-paragraph) ; takes care of putting 2 spaces if needed (unfill-paragraph) ; remove hard line breaks ;; insert line breaks again (let ((end-of-paragraph (make-marker))) (save-excursion (forward-paragraph) (backward-sentence) (forward-sentence) (set-marker end-of-paragraph (point))) (forward-sentence) (while (< (point) end-of-paragraph) (just-one-space) (delete-backward-char 1) (newline) (forward-sentence)) (set-marker end-of-paragraph nil))))