1 files changed, 13 insertions, 3 deletions

@@ -54,9 +54,19 @@ each hook in HOOKS."
        ,@(dolist (hook hook-list hook-defun-add-hook-list)
            (push `(add-hook ',hook #',func-name) hook-defun-add-hook-list)))))
 
-(defun refresh-emacs ()
-  "Reload Emacs's configuration files."
-  (interactive)
+(defun refresh-emacs (&optional git-pull-first)
+  "Reload Emacs's configuration files.
+
+With a prefix argument, run git pull on the repo first."
+  (interactive "P")
+  (when git-pull-first
+    (with-message "Pulling Emacs's configuration"
+      (shell-command (concat "git -C "
+                             "\"" (expand-file-name user-emacs-directory) "\""
+                             " pull")
+                     (get-buffer-create "*refresh-emacs-output*")
+                     (get-buffer-create "*refresh-emacs-error*"))))
+  
   (let ((init-files (append
                      ;; Load lisp libraries first, in case their functionality
                      ;; is used by {early-,}init.el