jsja-misc.el

;;; TOGGLE-BOL
(defun jsja/bol-toggle ()
  "Toggle between beginning of indent and beginning of line"
  (interactive)
  (let ((jsja-bol-command-name "jsja/bol-toggle"))
    (setq this-command jsja-bol-command-name)
    (cond ((equal (point) (point-at-bol)) (back-to-indentation))
          ((equal last-command jsja-bol-command-name) (move-beginning-of-line nil))
          (t (back-to-indentation)))))