Tôi sử dụng như sau:
(defun my-copy-simple (beg end)
"Save the current region to the kill ring after stripping extra whitespace and new lines"
(interactive "r")
(copy-region-as-kill beg end)
(with-temp-buffer
(yank)
(goto-char 0)
(while (looking-at "[ \t\n]")
(delete-char 1))
(compact-uncompact-block)
(mark-whole-buffer)
(kill-region (point-min) (point-max))))
Điều này phụ thuộc vào chức năng sau, mà tôi đã sử dụng trong một thời gian để thay thế cho mặc định M-q fill-paragraph
. Tôi không lưu ý nó đến từ đâu, tôi nghĩ đó là của Xah Lee?
(defun compact-uncompact-block ()
"Remove or add line ending chars on current paragraph.
This command is similar to a toggle of `fill-paragraph'.
When there is a text selection, act on the region."
(interactive)
;; This command symbol has a property “'stateIsCompact-p”.
(let (currentStateIsCompact (bigFillColumnVal 4333999) (deactivate-mark nil))
(save-excursion
;; Determine whether the text is currently compact.
(setq currentStateIsCompact
(if (eq last-command this-command)
(get this-command 'stateIsCompact-p)
(if (> (- (line-end-position) (line-beginning-position)) fill-column) t nil) ) )
(if (region-active-p)
(if currentStateIsCompact
(fill-region (region-beginning) (region-end))
(let ((fill-column bigFillColumnVal))
(fill-region (region-beginning) (region-end))) )
(if currentStateIsCompact
(fill-paragraph nil)
(let ((fill-column bigFillColumnVal))
(fill-paragraph nil)) ) )
(put this-command 'stateIsCompact-p (if currentStateIsCompact nil t)) ) ) )