#!/bin/sh set -eu usage() { cat <<-'EOF' Usage: update update -h EOF } help() { cat <<-'EOF' Options: -h, --help show this message Updates miscellaneous things on the workstation: - "guix pull" on the "andreh" and "root" accounts; - get latest RFCs; - updates RSS feeds; - updates source code repositories. Examples: Just use it: $ update EOF } for flag in "$@"; do case "$flag" in --) break ;; --help) usage help exit ;; *) ;; esac done while getopts 'h' flag; do case "$flag" in h) usage help exit ;; *) usage >&2 exit 2 ;; esac done shift $((OPTIND - 1)) guix pull -v3 rfc -u repos -e ~/dev/go/ -e ~/dev/quicklisp/ -e ~/dev/archive/ ~/dev/ | xargs -I% -P4 x \ echo 'Fetching on %.' AND \ vcs -C% fetch OR \ echo 'WARNING: Failed to fetch repository: %.' >&2