line-spacing 会将所有行都加间隔
之前想过这个思路，但后面感觉自己需求不是那么强，就没有继续做
(defun add-line-spacing-at-beginning ()
"Add extra spacing at the beginning of each line in the current buffer."
(interactive)
(save-excursion
(goto-char (point-min))
(while (not (eobp))
;; Create an overlay at the beginning of the line with a space
(let ((overlay (make-overlay (point) (point))))
(overlay-put overlay 'before-string
(propertize "\u200b" 'display '(height 1.8))))
(forward-line 1))))
(defun remove-line-spacing-at-beginning ()
"Remove extra spacing at the beginning of each line in the current buffer."
(interactive)
(remove-overlays (point-min) (point-max)))
