Emacs: Tweak C-a behavior

thoom-emacs/init.el

@@ -14,6 +14,8 @@
 (require 'thoom-elpaca)
 ;; OS-specific tweaks
 (require 'thoom-os)
+;; Editing and keybind tweaks
+(require 'thoom-editing)
 ;; Vertico, Embark, Corfu, etc
 (require 'thoom-completion)
 ;; Emacs appearance

thoom-emacs/modules/thoom-editing.el

@@ -0,0 +1,10 @@
+(provide 'thoom-editing)
+
+(defun thoom/move-to-beginnings ()
+  "Move between the two beginnings of a line: The very beginning, and the first non-whitespace character."
+  (interactive "^")
+  (if (bolp)
+      (back-to-indentation)
+    (move-beginning-of-line 1)))
+
+(global-set-key (kbd "C-a") #'thoom/move-to-beginnings)