2022-06-07 17:08:31 +02:00
|
|
|
:PROPERTIES:
|
|
|
|
|
:ID: 50d451b0-eddf-4192-afc4-c505a5bb3b20
|
|
|
|
|
:END:
|
|
|
|
|
#+title: Filling and unfilling paragraphs
|
|
|
|
|
#+filetags: emacs-load
|
|
|
|
|
|
2022-07-31 11:03:59 +02:00
|
|
|
# SPDX-FileCopyrightText: 2022 Richard Brežák <richard@brezak.sk>
|
|
|
|
|
#
|
|
|
|
|
# SPDX-License-Identifier: LGPL-3.0-or-later
|
|
|
|
|
|
2022-06-07 17:08:31 +02:00
|
|
|
#+begin_src emacs-lisp
|
|
|
|
|
;;; Stefan Monnier <foo at acm.org>. It is the opposite of fill-paragraph
|
|
|
|
|
(defun unfill-paragraph (&optional region)
|
|
|
|
|
"Takes a multi-line paragraph and makes it into a single line of text."
|
|
|
|
|
(interactive (progn (barf-if-buffer-read-only) '(t)))
|
|
|
|
|
(let ((fill-column (point-max))
|
|
|
|
|
;; This would override `fill-column' if it's an integer.
|
|
|
|
|
(emacs-lisp-docstring-fill-column t))
|
|
|
|
|
(fill-paragraph nil region)))
|
|
|
|
|
|
|
|
|
|
;; Handy key definition
|
|
|
|
|
(define-key global-map "\M-Q" 'unfill-paragraph)
|
|
|
|
|
#+end_src
|
