gistfile1.txt

(define-buffer-button (mxgit-push b
                                  :label "UPLOAD"
                                  :prefix ";;")
  (with-current-buffer mx-buttons.el
    (goto-char (button-start b))
    (cd "~/src/mx-org-rl/")
    (interactive-form (
    (shell-command "git push origin master" nil)))))