This was one of the very first things I added to my config over a decade ago:

    (setq backup-directory-alist '(("." . ".~")))