This is just for me to learn how to program in emacs lisp. Ignore it.