diff options
| author | Marius Peter <marius.peter@tutanota.com> | 2021-09-06 20:34:57 -0700 |
|---|---|---|
| committer | Marius Peter <marius.peter@tutanota.com> | 2021-09-06 20:34:57 -0700 |
| commit | 2a6aff6f4929d0abd75f62432933351ec802990c (patch) | |
| tree | 357afccdaabd86bd718d578c8c4028eff303bb7b | |
| parent | c398f0c83669f3c80ee0841f1b947846598e606a (diff) | |
Beautify Org.
| -rw-r--r-- | smart-documents.org | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/smart-documents.org b/smart-documents.org index 88c79d7..11a8889 100644 --- a/smart-documents.org +++ b/smart-documents.org @@ -1514,7 +1514,8 @@ PDF. The binding is defined in Section [[Export to PDF]]. #+END_SRC -**** COMMENT For Org mode, specifically + +**** TODO COMMENT For Org mode, specifically #+BEGIN_SRC emacs-lisp :tangle yes (defun sd-org-fix-headlines-spacing () @@ -1522,13 +1523,20 @@ PDF. The binding is defined in Section [[Export to PDF]]. (save-excursion (progn (goto-char (point-min)) - (mark-whole-buffer) - (delete-blank-lines) - (org-next-visible-heading) - (re-search-backward "^$"))) + (flush-lines "^[[:space:]]*$") + (while (re-search-forward "^*" nil t) + (beginning-of-line) + (newline 2) + (next-line) + (newline)))) #+END_SRC + ** Smart quitting +:PROPERTIES: +:test: t +:END: + *** Window |