[Emacs Lisp] Personal ~/.emacs.d/ configuration folder.
Cleanup the cleanup function :)
smart-documents.org
@@ -507,29 +507,14 @@
507
507
508
508
#+END_SRC
509
509
510
Removed:
*** Indent buffer
510
Added:
*** Clean up buffer
511
511
512
Removed:
Indent buffer in every mode.
512
Added:
Clean up buffer in every mode.
513
513
514
514
#+BEGIN_SRC emacs-lisp :tangle yes
515
Removed:
(global-set-key [f12]
516
Removed:
'(lambda ()
517
Removed:
"Clean up buffer in the most general sense.
518
Removed:
This means indenting the buffer according to the major mode in force,
519
Removed:
as well as deleting trailing whitespaces."
520
Removed:
(interactive)
521
Removed:
(sd-indent-buffer)
522
Removed:
(delete-trailing-whitespace)))
515
Added:
(global-set-key [f12] 'sd-beautify-buffer)
523
516
#+END_SRC
524
517
525
Removed:
*** TODO Beautify Org mode buffer
526
Removed:
527
Removed:
Not only indent, but also clean up superfluous newlines.
528
Removed:
529
Removed:
#+BEGIN_SRC emacs-lisp :tangle yes
530
Removed:
(local-set-key [f12] 'sd-org-beautify)
531
Removed:
#+END_SRC
532
Removed:
533
518
* Packages
534
519
535
520
Packages are collections of =.el= files providing added functionality
@@ -1427,9 +1412,9 @@
1427
1412
major-mode)))))
1428
1413
#+END_SRC
1429
1414
1430
Removed:
** Beautify buffer
1415
Added:
** Whole buffer
1431
1416
1432
Removed:
Binding defined in Section [[Indent buffer]].
1417
Added:
*** Indent
1433
1418
1434
1419
#+BEGIN_SRC emacs-lisp :tangle yes
1435
1420
(defun sd-indent-buffer ()
@@ -1439,16 +1424,27 @@
1439
1424
(indent-region (point-min) (point-max) nil)))
1440
1425
#+END_SRC
1441
1426
1427
Added:
*** Beautify
1428
Added:
1442
1429
#+BEGIN_SRC emacs-lisp :tangle yes
1443
Removed:
(defun sd-org-beautify ()
1444
Removed:
"Beautify Org mode buffer."
1430
Added:
(defun sd-beautify-buffer ()
1431
Added:
"Clean up buffer in the most general sense.
1432
Added:
1433
Added:
This means performing the following actions:
1434
Added:
1) indenting the buffer according to the major mode in force,
1435
Added:
2) deleting trailing whitespaces.
1436
Added:
1437
Added:
As well as a couple other things."
1445
1438
(interactive)
1446
Removed:
(when (eq major-mode 'org-mode)
1447
Removed:
(sd-indent-buffer)))
1439
Added:
(sd-indent-buffer)
1440
Added:
(delete-trailing-whitespace))
1448
1441
#+END_SRC
1449
1442
1450
Removed:
** Smart window quitting
1451
1443
1444
Added:
** Smart quitting
1445
Added:
1446
Added:
*** Window
1447
Added:
1452
1448
#+BEGIN_SRC emacs-lisp :tangle yes
1453
1449
(defun sd-delete-window-or-previous-buffer ()
1454
1450
"Delete window; if sole window, previous buffer."
@@ -1458,7 +1454,7 @@
1458
1454
(previous-buffer)))
1459
1455
#+END_SRC
1460
1456
1461
Removed:
** Smart frame quitting
1457
Added:
*** Frame
1462
1458
1463
1459
#+BEGIN_SRC emacs-lisp :tangle yes
1464
1460
(defun sd-delete-frame-or-kill-emacs ()