[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Beautify Org.
smart-documents.org
@@ -1514,21 +1514,29 @@
1514
1514
1515
1515
#+END_SRC
1516
1516
1517
Removed:
**** COMMENT For Org mode, specifically
1518
1517
1518
Added:
**** TODO COMMENT For Org mode, specifically
1519
Added:
1519
1520
#+BEGIN_SRC emacs-lisp :tangle yes
1520
1521
(defun sd-org-fix-headlines-spacing ()
1521
1522
"Insert the proper amount of newlines between Org headlines."
1522
1523
(save-excursion
1523
1524
(progn
1524
1525
(goto-char (point-min))
1525
Removed:
(mark-whole-buffer)
1526
Removed:
(delete-blank-lines)
1527
Removed:
(org-next-visible-heading)
1528
Removed:
(re-search-backward "^$")))
1526
Added:
(flush-lines "^[[:space:]]*$")
1527
Added:
(while (re-search-forward "^*" nil t)
1528
Added:
(beginning-of-line)
1529
Added:
(newline 2)
1530
Added:
(next-line)
1531
Added:
(newline))))
1529
1532
#+END_SRC
1530
1533
1534
Added:
1531
1535
** Smart quitting
1536
Added:
:PROPERTIES:
1537
Added:
:test: t
1538
Added:
:END:
1539
Added:
1532
1540
1533
1541
*** Window
1534
1542