Brendan Johan Lee's blog

I've spent a lot of time doing repetitive tasks in Emacs lately, which prompted med to make the following function. This function asks for a name and a keyboard binding, saves the latest defined macro in my .emacs (my .emacs is located in .emacs.d since I have .emacs.d in a git repository), adds a keybinding to it, saves my .emacs file, reloads it so the keybinding will work immediately and updates the git repository that my .emacs file resides in.

(defun save-macro (name keybinding)
        "save latest macro defined macro and a keybinding to it to .emacs"
         (interactive "SName of the macro: \nSKey binding for macro %s: ")
         (kmacro-name-last-macro name)
         (find-file "~/.emacs.d/.emacs")
         (goto-char (point-max))
         (newline)
         (insert-kbd-macro name)
         (newline)
         (insert (format "(global-set-key (kbd \"%s\") '%s)" keybinding name))
         (newline)
         (save-buffer)
         (switch-to-buffer nil)
         (load-file "~/.emacs.d/.emacs")
         (shell-command "cd ~/.emacs.d;git pull origin master;git commit -am 'added macro to .emacs';git push;")
         (kill-buffer "*Shell Command Output*"))