diff options
| -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 |