Best Elisp ever

move.el

(defun smarter-move-beginning ()
  (interactive)
  (let* ((at (point))
         (bol (line-beginning-position))
         (indent (save-excursion
                  (back-to-indentation)
                  (point))))
    (cond
     ((= at bol)
      (if (bobp)
          (progn
            (beep)
            (message "Beginning of buffer"))
        (forward-line -1)
        (end-of-line)))
     ((<= at indent)
      (move-to-column 0))
     (t (back-to-indentation)))))

(defun smarter-move-end ()
  (interactive)
  (let* ((at (point))
         (eol (line-end-position))
         (indent (save-excursion
                  (back-to-indentation)
                  (point))))
    (cond
     ((= at eol)
      (if (eobp)
          (progn
            (beep)
            (message "End of buffer"))
        (forward-line 1)
        (beginning-of-line)))
     ((< at indent)
      (back-to-indentation))
     (t (end-of-line)))))

(global-set-key [remap move-beginning-of-line] 'smarter-move-beginning)
(global-set-key [remap move-end-of-line] 'smarter-move-end)