* .emacs.d/init.el: Use "Sahel WOL" for Persian text.

[~bandali/configs] / .local / bin / change-theme

#!/bin/sh

dark_color='black' # #222
light_color='white'

if [ "$1" = "dark" ]; then
    fg="$light_color"
    bg="$dark_color"
elif [ "$1" = "light" ]; then
    fg="$dark_color"
    bg="$light_color"
else
    echo "Usage: $0 {dark|light}"
    exit 1
fi

# most applications using xresources
printf "*.foreground: $fg\n*.background: $bg" | xrdb -override
# xterm, basically
printf "*VT100*foreground: $fg\n*VT100*background: $bg" | xrdb -override

# emacs
if [ "$(pgrep -u $USER emacs)" ]; then
    emacsclient -ue "(set-face-attribute 'default nil :foreground \"$fg\" :background \"$bg\")"
fi
# terminals
for term in /dev/pts/*; do
    if [ -w "$term" ]; then
        printf "\033]10;$fg\a" > "$term"
        printf "\033]11;$bg\a" > "$term"
    fi
done