Pulls and pushes a few github repos in bash and elisp

pull_many.el

;; Pulls and pushes a few github repos from emacs
;; Laurent Gatto (https://github.com/lgatto)
;; Thanks to Stephen J. Eglen for his help in redirecting to a
;; dedicated buffer (https://github.com/sje30)

(setq git-dirs '(
                "~/wd"
                "~/bin"
                "~/Documents/org"
                "~/Documents/roam"
                ))

(defun push-or-pull (direction)
  "Push/pull to/from many repositories."
  (interactive)
  (let ((buf (get-buffer-create "*push-pull*"))
        (shell-command-dont-erase-buffer t))
    (save-excursion
      (set-buffer buf)
      (erase-buffer))
    (dolist (item git-dirs)
      (shell-command (format "echo %sing %s" (capitalize direction) item) buf)
      (shell-command (format "cd %s; git %s" item direction) buf)
      )
    (pop-to-buffer buf)
    (goto-char (point-max))
    )
  )

(defun pull-many ()
  "Pull from many repositories."
  (interactive)
   (push-or-pull "pull"))

(defun push-many ()
  "Push to many repositories."
  (interactive)
  (push-or-pull "push"))

pull_many.sh

#!/bin/bash

dirs=(
    ~/wd
    ~/bin
    ~/Documents/attachments
    ~/Documents/org
    ~/Documents/roam)


for dir in ${dirs[@]}
do
    echo "-> Pulling from" $dir
    cd $dir
    git pull
done

push_many.sh

#!/bin/bash

dirs=(
    ~/wd
    ~/bin
    ~/Documents/attachments
    ~/Documents/org
    ~/Documents/roam)


for dir in ${dirs[@]}
do
    echo "-> Pushing from" $dir
    cd $dir
    git push
done