install.sh

#!/bin/bash

set -euo pipefail

FRESH=0
EMACS_PROFILE="${HOME}/.emacs.d"
EMACS_PACKAGES_DIR="${EMACS_PROFILE}/packages"
EMACS_LOAD_DIR="${EMACS_PROFILE}/load"

case ${1:-""} in
-h | --help)
    echo "./install.sh [--fresh] [--help]"
    echo
    echo "  --fresh will install everything from scratch."
    echo "  To simply update, run without arguments."
    exit 0
    ;;
--fresh)
    FRESH=1
    ;;
esac

shopt -s nullglob

mkdir -p "${EMACS_LOAD_DIR}"
mkdir -p "${EMACS_PACKAGES_DIR}"

echo "=> Remove broken symlinks..."
find "${EMACS_PACKAGES_DIR}" -xtype l -exec unlink {} \;
find "${EMACS_LOAD_DIR}" -xtype l -exec unlink {} \;

echo "=> Cleaning old files..."
rm -f ~/.emacs.d/init.el
rm -f ~/.emacs.d/early-init.el
for file in "${PWD}/emacs/packages"/*.el; do
    echo "${EMACS_PACKAGES_DIR}/$(basename "${file}")"
    rm -f "${EMACS_PACKAGES_DIR}/$(basename "${file}")"
done
for file in "${PWD}/emacs/load"/*.el; do
    echo "${EMACS_LOAD_DIR}/$(basename "${file}")"
    rm -f "${EMACS_LOAD_DIR}/$(basename "${file}")"
done

# Remove broken links
find ${EMACS_PACKAGES_DIR} -xtype l  -exec rm -f {} \;
find ${EMACS_LOAD_DIR} -xtype l  -exec rm -f {} \;

echo "=> Installing Emacs configuration..."
ln -s "${PWD}/emacs/init.el" ~/.emacs.d/init.el
ln -s "${PWD}/emacs/early-init.el" ~/.emacs.d/early-init.el

for file in "${PWD}/emacs/packages"/*.el; do
    echo "${EMACS_PACKAGES_DIR}/$(basename "${file}")"
    ln -s "${file}" "${EMACS_PACKAGES_DIR}/$(basename "${file}")"
done
for file in "${PWD}/emacs/load"/*.el; do
    echo "${EMACS_LOAD_DIR}/$(basename "${file}")"
    ln -s "${file}" "${EMACS_LOAD_DIR}/$(basename "${file}")"
done

if [[ $FRESH != 1 ]]; then
    echo "If you want to install from scratch, run this script with --fresh parameter."
    exit 0
fi

if ! which emacs; then
    echo ""
    read -r -p ">> Emacs is not installed, want to install it? [y/n]" choice
    if [[ $choice =~ ^[Yy]$ ]]; then
        case $(uname) in
        Darwin*)
            brew tap d12frosted/emacs-plus
            brew install emacs-plus@29 \
                --with-dragon-icon \
                --with-dbus \
                --with-no-frame-refocus \
                --with-native-comp \
                --with-imagemagick \
                --with-poll \
                --with-xwidgets
            ;;
        Linux*)
            sudo pacman -S emacs
            ;;
        esac
    else
        echo "Exiting..."
        exit 1
    fi
fi

set +e
read -rd '' EMACS_EVAL <<EOF
(progn
  (require 'org)

  (org-babel-do-load-languages
     'org-babel-load-languages
     '((emacs-lisp . t)
       (shell . t)
       (python . t)
       (js . t)))

  (setq org-confirm-babel-evaluate nil)
  (add-hook 'org-babel-post-tangle-hook 'executable-make-buffer-file-executable-if-script-p)

  (defun when-darwin (file-path)
    (if (eq system-type 'darwin)
      (progn
        (message ":: Tangling %s" file-path)
        file-path)
      "no"))

  (defun when-linux (file-path)
    (if (eq system-type 'gnu/linux)
      (progn
        (message ":: Tangling %s" file-path)
        file-path)
      "no"))

  (cl-defun when-on (&key linux darwin)
    (pcase system-type
      ('darwin
        (message ":: Tangling %s" darwin)
        darwin)
      ('gnu/linux
        (message ":: Tangling %s" linux)
        linux)))

  (org-babel-tangle-file "./index.org"))
EOF
set -e

echo "=> Installing dotfiles..."
emacs -Q \
    --batch \
    --eval '(setq org-babel-noweb-wrap-start "<<<")' \
    --eval '(setq org-babel-noweb-wrap-end ">>>")' \
    --eval "$EMACS_EVAL"