Align org tags on changes

This probably isn’t necessary with my particular setup…

1 files changed, 24 insertions, 3 deletions

@@ -1577,14 +1577,35 @@ from [[https://github.com/Fuco1/.emacs.d/blob/a8230343bb7e2f07f5eac8e63e5506fa16
                      (variable-pitch))))))
      #+end_src
 
+***** Align all tags in the buffer on changes
+
+from [[https://github.com/mpereira/.emacs.d#align-all-tags-in-the-buffer-on-tag-changes][mpereira]].
+
+#+begin_src emacs-lisp
+  (defun acdw/org-align-all-tags ()
+    "Align all org tags in the buffer."
+    (interactive)
+    (when (eq major-mode 'org-mode)
+      (org-align-tags t)))
+
+  (add-hook 'org-after-tags-change-hook #'acdw/org-align-all-tags)
+#+end_src
+
+**** Source blocks
+
+     #+begin_src emacs-lisp
+       (set-face-attribute 'org-block-begin-line nil
+                           :height 0.85)
+     #+end_src
+
 **** Prettify
 
      #+begin_src emacs-lisp
        (defun acdw/org-mode-prettify ()
          "Prettify `org-mode'."
-         (dolist (cell '(("[ ]" . ?β–‘) ("[X]" . ?β˜‘) ("[-]" . ?◐)
-                         ("#+begin_src" . ?✎) ("#+begin_src" . ?✎)
-                         ("#+end_src" . ?β– ) ("#+end_src" . ?β– )))
+         (dolist (cell '(("[ ]" . ?☐) ("[X]" . ?β˜‘) ("[-]" . ?◐)
+                         ("#+BEGIN_SRC" . ?✎) ("#+begin_src" . ?✎)
+                         ("#+END_SRC" . ?β– ) ("#+end_src" . ?β– )))
            (add-to-list 'prettify-symbols-alist cell :append))
          (prettify-symbols-mode +1))