From: Amin Bandali <bandali@gnu.org>
Date: Mon, 13 Apr 2020 16:15:22 +0000 (-0400)
Subject: Add convenience b/move-indentation-or-beginning-of-line, bind to C-a
X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/commitdiff_plain/c64e010d0b51f1914d9bca263063506be9420540?ds=sidebyside;hp=5b99021902255e23769e5982b92338a73974d2b2

Add convenience b/move-indentation-or-beginning-of-line, bind to C-a
---

diff --git a/init.el b/init.el
index 23158a1..e633282 100644
--- a/init.el
+++ b/init.el
@@ -239,6 +239,17 @@ For disabling the behaviour for certain buffers and/or modes."
   (interactive)
   (kill-buffer (current-buffer)))
 
+(defun b/move-indentation-or-beginning-of-line (arg)
+  "Move to the indentation or to the beginning of line."
+  (interactive "^p")
+  ;; (if (bolp)
+  ;;     (back-to-indentation)
+  ;;   (move-beginning-of-line arg))
+  (if (= (point)
+         (progn (back-to-indentation)
+                (point)))
+      (move-beginning-of-line arg)))
+
 
 ;;; Defaults
 
@@ -490,6 +501,7 @@ For disabling the behaviour for certain buffers and/or modes."
 ;;; General bindings
 
 (bind-keys
+ ("C-a"     . b/move-indentation-or-beginning-of-line)
  ("C-c a i" . ielm)
 
  ("C-c e b" . eval-buffer)