Iz's OpenBSD Dotfiles

(quicklisp-quickstart:install :path "~/.quicklisp")
(ql:add-to-init-file)
(ql-dist:install-dist "http://dist.ultralisp.org/"
 :prompt nil)
(ql:quickload '("clx"
 "cl-ppcre"
 "alexandria"
 "cl-fad"
 "xembed"
 "anaphora"
 "slynk"))

$ ftp -o /tmp/quicklisp.lisp https://beta.quicklisp.org/quicklisp.lisp
$ ftp -o /tmp/quicklisp-setup.lisp https://codeberg.org/Izder456/dotfiles/raw/branch/main/quicklisp-setup.lisp
$ sbcl --load /tmp/quicklisp.lisp --script /tmp/quicklisp-setup.lisp

# Throw an error!
function exception {
 error=1ドル
 echo "Error: $error"
 exit 1
}
# Log setup messages with timestamp
function log {
 message=1ドル
 stdout=${2:-1} # Default to logging to stdout if not specified
 timestamp=$(date +"%Y%m%d%H%M%S")
 if [[ $stdout -eq 1 ]]; then
 echo "$message"
 fi
 echo "[$timestamp] $message" >> "$LOG_FILE" 2>&1 || exception "Could not write to $LOG_FILE"
}

# check for config sanity
for configfile in "/etc/doas.conf" "/etc/sysctl.conf"; do
 if [ -f $configfile ]; then
 grep -q "pickles" "${configfile}" && \
 exception "Pickles error. Please read the config file you just installed." || \
 echo "Pickles are fine. Thanks for reading."
 else
 exception "Did you read the readme? Install the doas.conf and sysctl.conf and read them over."
 fi
done

# Clean unnecessary files
function clean {
 log "Removing Cruft..."
 rex remove_default_cruft
}
# Ensure Lisp environment is set up
function ensure_lisp {
 log "Quicklisp Setup"
 if [[ "${quicklisp}" == "on" ]]; then
 log "quicklisp set on."
 log "Installing quicklisp and related deps..."
 if [ -d $HOME/.quicklisp ]; then
 log "Quicklisp install dir found... removing that..."
 printf "Press any key..."
 read
 rm -Rvf $HOME/.quicklisp
 fi
 doas pkg_add -m sbcl rlwrap || exception "Could not install sbcl or rlwrap"
 ftp -o /tmp/quicklisp.lisp "https://beta.quicklisp.org/quicklisp.lisp" || exception "Failed to download quicklisp.lisp"
 ftp -o /tmp/quicklisp-setup.lisp "$CODEBERG/izder456/dotfiles/raw//branch/main/quicklisp-setup.lisp" || exception "Failed to download quicklisp-setup.lisp"
 sbcl --load /tmp/quicklisp.lisp --script /tmp/quicklisp-setup.lisp || exception "Failed to run quicklisp setup"
 elif [[ "${quicklisp}" == "off" ]]; then
 log "quicklisp set off."
 log "Skipping..."
 else
 exception "Invalid quicklisp setting. how did we get here?"
 fi
}
# Install port dependencies
function ports_deps {
 log "Installing port dependencies..."
 if [[ "${pkglite}" == "off" ]]; then
 log "pkglite set off."
 log "Installing full package set."
 doas pkg_add -m -l ~/.pkglist || exception "Failed to install port dependencies"
 elif [[ "${pkglite}" == "on" ]]; then
 log "pkglite set on."
 log "Installing lite package set."
 doas pkg_add -m -l ~/.pkglistlite || exception "Failed to install port dependencies"
 else
 exception "Invalid pkglite setting. how did we get here?"
 fi
}
# Install cargo dependencies
function cargo_deps {
 if [[ "${rustdeps}" == "on" ]]; then
 log "rustdeps set on."
 log "Installing cargo dependencies."
 doas pkg_add rust || exception "Failed to install Rust"
 xargs cargo install < ~/.cargolist || exception "Failed to install rust dependencies"
 elif [[ "${rustdeps}" == "off" ]]; then
 log "rustdeps set off."
 log "Skipping..."
 else
 exception "Invalid rustdep setting. how did we get here?"
 fi
}
function setup_gtkicons {
 log "Setting up gtk themes..."
 rex configure_gtk
 log "Setting up icon themes..."
 rex configure_icons
}
# Clone or update dotfiles repository and run setup scripts
function config_install {
 log "Cloning/Installing Dotfiles..."
 if [ -d "$USERHOME/.dotfiles" ]; then
 cd $USERHOME/.dotfiles || exception "Failed to change directory to .dotfiles"
 GIT_TRACE=1 git pull --recurse-submodules --depth 1 --verbose || exception "Failed to pull dotfiles"
 else
 GIT_TRACE=1 git clone --recurse-submodules --depth 1 --single-branch --verbose $CODEBERG/Izder456/dotfiles.git $USERHOME/.dotfiles || exception "Failed to clone dotfiles"
 fi
 if [[ "${gtkicons}" == "on" ]]; then
 log "gtkicons set on"
 setup_gtkicons
 elif [[ "${gtkicons}" == "off" ]]; then
 log "gtkicons set off"
 log "Skipping..."
 else
 exception "Invalid gtkicons setting. how did we get here?"
 fi
 $USERHOME/.dotfiles/dfm/dfm install
}
# Setup ZSH shell
function setup_shell {
 log "Setting up FiZSH..."
 rex configure_default_shell
 rex compile_afetch
}
# Setup URxvt
function setup_urxvt {
 log "Setting up urxvt..."
 rex configure_urxvt
}
# Setup background images
function setup_backgrounds {
 log "Installing Backgrounds..."
 rex install_backgrounds
}
# Setup Emacs
function setup_emacs {
 log "Setting up Emacs..."
 rex configure_emacs
}
# Setup Enhanced Motif WM
function setup_fvwm {
 log "Setting up FVWM..."
 rex configure_fvwm
}
# Setup StumpWM
function setup_stumpwm {
 ensure_lisp
 log "Setting up StumpWM..."
 rex configure_stumpwm
}
# Miscellaneous setup tasks
function setup_misc {
 setup_shell
 log "Miscellaneous setup..."
 rex compile_shuf
 rex compile_slock
 rex compile_st
 rex compile_surf
 rex configure_apmd
 rex install_backgrounds
 rex update_xdg
}
# Setup XenoDM
function setup_xenodm {
 log "Setting up XenoDM..."
 rex configure_xenodm
}
# Check for internet connection
function is_internet_up {
 log "Checking internet connection..."
 nc -zw1 OpenBSD.org 443 || exception "You need internet for this dumdum!"
 log "Internet connection is up!"
}
# Ensure necessary tools are installed
function ensure_needed {
 log "Installing necessary tools: git, git-lfs and p5-Rex..."
 doas pkg_add -m p5-Rex git git-lfs || exception "Failed to install git, git-lfs and p5-Rex"
 log "Setting up git-lfs..."
 git lfs install
 ftp -o $USERHOME/Rexfile $CODEBERG/Izder456/dotfiles/raw/branch/main/Rexfile || exception "Failed to download Rexfile"
}
# Ensure all prerequisites
function do_ensure {
 echo "Log file is at ${LOG_FILE}"
 echo "Refer to it for debugging"
 printf "Press any key..."
 read
 is_internet_up
 ensure_needed
}
do_ensure

# Default states
pkglite="off" # set full package set by default
gtkicons="on" # set downloading gtk themes and icons enabled by default
rustdeps="on" # set rust/cargo deps by default
quicklisp="on" # install/set up quicklisp and dependencies
# Function to confirm toggles
function confirm_toggles {
 log ''
 log 'Current toggles:'
 log "pkglite: $pkglite"
 log "gtkicons: $gtkicons"
 log "rustdeps: $rustdeps"
 log "quicklisp: $quicklisp"
 log ''
 printf "Are these settings correct? (y/N) "
}
# Function to prompt for toggles
function toggle_prompt {
 log ''
 log 'Fine tuned toggles:'
 log '---------------------------------------------------------'
 log ' Key: '
 log ' - pkglite means: "lite packages" '
 log ' - gtkicons means: "gtk themes and icons" '
 log ' - rustdeps means: "rust deps on supported archs" '
 log ' - quicklisp means: "common lisp deps needed for stumpwm"'
 log '---------------------------------------------------------'
 while true; do
 confirm_toggles # Confirm toggles with the end user.
 read confirmation
 if [[ "$confirmation" == "y" ]]; then
 break
 else
 # Loop through each variable and prompt user to set its value directly
 for toggle in pkglite gtkicons rustdeps quicklisp; do
 eval current_value=\$$toggle
 # Adjust capitalization of the prompt dynamically
 if [ "$current_value" = "on" ]; then
 default_prompt="ON/off"
 else
 default_prompt="on/OFF"
 fi
 while true; do
 # Prompt user
 printf "Turn $toggle on or off? ($default_prompt): "
 read answer
 # Handle user input
 case "$answer" in
 "on"|"ON"|"y"|"Y")
 eval "$toggle=on"
 log "$toggle set to on." 0
 break
 ;;
 "off"|"OFF"|"n"|"N")
 eval "$toggle=off"
 log "$toggle set to off." 0
 break
 ;;
 "")
 # Keep current value if no input is given
 log "Keeping $toggle as $current_value." 0
 break
 ;;
 ,*)
 log "Invalid input. Please enter 'on' or 'off', or press Enter to keep the current value." 0
 ;;
 esac
 done
 done
 fi
 done
}

# Display menu and handle user input
function menu {
 while true; do
 clear
 echo 'Srcerizder Dotfiles Setup'
 echo 'Options:'
 echo '---------------------------------------'
 echo '0) Packages (lite) 1) Packages (all)'
 echo '2) StumpWM 3) FVWM'
 echo '4) Emacs 5) XenoDM'
 echo '6) Rust Packages 7) GTK/Icons'
 echo '8) Misc. Config 9) Misc. Software'
 echo
 echo 'Other Options:'
 echo '----------------'
 echo 'a) All (recommended)'
 echo 'r) Reload Menu'
 echo 'q) Quit'
 echo
 printf "Enter your selection: "
 read selection # Move the input prompt to the same line
 [ -z $selection ] && selection="r"
 # reset these vars incase the user selected otherwise and it failed.
 pkglite="off" # set full package set by default
 gtkicons="on" # set downloading gtk themes and icons enabled by default
 rustdeps="on" # set rust/cargo deps by default
 quicklisp="on" # install/set up quicklisp and dependencies
 case $selection in
 0)
 echo "Selected Lite Package List Install..."; sleep $SLEEPTIME; pkglite="on"; ports_deps;
 ;;
 1)
 echo "Selected Full Package List Install..."; sleep $SLEEPTIME; pkglite="off"; ports_deps
 ;;
 2)
 echo "Selected StumpWM Config..."; sleep $SLEEPTIME; quicklisp="on"; setup_stumpwm;
 ;;
 3)
 echo "Selected FVWM Config..."; sleep $SLEEPTIME; setup_fvwm;
 ;;
 4)
 echo "Selected Emacs Config..."; sleep $SLEEPTIME; setup_emacs;
 ;;
 5)
 echo "Selected XenoDM Config..."; sleep $SLEEPTIME; setup_xenodm;
 ;;
 6)
 echo "Selected Rust Deps..."; sleep $SLEEPTIME; cargo_deps;
 ;;
 7)
 echo "Selected GTK Theme/Icon Theme Setup..."; sleep $SLEEPTIME; setup_gtkicons;
 ;;
 8)
 echo "Selected Misc. Configs..."; sleep $SLEEPTIME; config_install;
 ;;
 9)
 echo "Selected Misc. Software..."; sleep $SLEEPTIME; setup_misc;
 ;;
 "a")
 echo "Running All...";
 toggle_prompt; # let the use toggle what they wish
 sleep $SLEEPTIME; clean;
 config_install; ports_deps; cargo_deps;
 setup_fvwm; setup_stumpwm; setup_urxvt; setup_emacs; setup_xenodm;
 setup_misc;
 ;;
 "r")
 continue;
 ;;
 "q")
 echo "";
 exit;
 ;;
 ,*)
 echo "Invalid selection";
 sleep $SLEEPTIME;
 ;;
 esac
 done
}
menu

!!
! Includes
!!
#include ".xresources.d/colors"
#include ".xresources.d/apps"
!!
! XWindow Stuffs
!!
,*imLocale: en_US.UTF-8
,*lookAndFeel: motif
,*shapeStyle: Rectangle
!!
! Font Rendering Stuffs
!!
Xft.dpi: 96
Xft.rgba: rgb
Xft.antialias: true
Xft.autohint: false
Xft.hintstyle: hintfull
Xft.lcdfilter: lcddefault
,*faceName: fixed
,*faceSize: 14

,*background: #282828
! regular contrast: *background: #282828
! soft contrast: *background: #32302f
! high contrast: *background: #1d2021
,*foreground: #ebdbb2
! regular contrast: *foreground: #ebdbb2
! soft-contrast: *foreground: #f2e5bc
! high contrast: *foreground #f9f5d7
! Black + DarkGrey
,*color0: #282828
,*color8: #928374
! DarkRed + Red
,*color1: #cc241d
,*color9: #fb4934
! DarkGreen + Green
,*color2: #98971a
,*color10: #b8bb26
! DarkYellow + Yellow
,*color3: #d79921
,*color11: #fabd2f
! DarkBlue + Blue
,*color4: #458588
,*color12: #83a598
! DarkMagenta + Magenta
,*color5: #b16286
,*color13: #d3869b
! DarkCyan + Cyan
,*color6: #689d6a
,*color14: #8ec07c
! LightGrey + White
,*color7: #a89984
,*color15: #ebdbb2

!!
! XMessage
!!
xmessage*background: #1d2021
xmessage*foreground: #fbf1c7
xmessage.borderWidth: 1
xmessage*borderColor: #ebdbb2
xmessage*timeout: 0
xmessage*printValue: false
xmessage*font: -misc-fixed-*-*-*-*-15-*-*-*-*-*-*-*
xmessage*ShapeStyle: Rectangle
xmessage*Buttons: motif
xmessage*Command.highlightThickness: 1
xmessage*Command.borderWidth: 1
xmessage*Command.shapeStyle: Rectangle
!!
! SSH-Askpass
!!
SshAskpass*background: #1d2021
SshAskpass*foreground: #fcf1c7
SshAskpass.borderWidth: 1
SshAskpass*borderColor: #ebdbb2
SshAskpass*font: -misc-fixed-*-*-*-*-15-*-*-*-*-*-*-*
SshAskpass*ShapeStyle: Rectangle
SshAskpass*internalBorder: 12
SshAskpass*Button.background: #1d2021
SshAskpass*Button.foreground: #fcf1c7
SshAskpass*Button.highlightThickness: 1
SshAskpass*Button.borderWidth: 1
SshAskpass*Button.borderColor: #ebdbb2
SshAskpass*Button.shapeStyle: Rectangle
SshAskpass*Text.background: #1d2021
SshAskpass*Text.foreground: #fcf1c7
SshAskpass*Text.borderColor: #ebdbb2
SshAskpass*Text.borderWidth: 1
SshAskpass*shadowThickness: 1
SshAskpass*highlightThickness: 1
!!
! XTerm
!!
,*allowSendEvents: true
xterm*scrollBar: false
xterm*faceName: Spleen
xterm*faceSize: 12
xterm*renderFont: true
xterm*internalBorder: 12
xterm*letterSpace: 1
xterm*loginShell: true
xterm*savelines: 16384
xterm*eightBitInput: false
xterm.vt100.translations: #override \
 Ctrl Shift <Key> equal: larger-vt-font() \n\
 Ctrl <Key> minus: smaller-vt-font() \n\
 Ctrl <Key> 0: set-vt-font(d) \n\
 Ctrl Shift <Key> C: copy-selection(CLIPBOARD) \n\
 Ctrl Shift <Key> V: insert-selection(CLIPBOARD)
!!
! Urxvt
!!
URxvt.font: xft:fixed:antialias=False:pixelsize=15,\
 xft:Symbols Nerd Font Mono:pixelsize=15,\
 xft:Symbola:pixelsize=15
URxvt.boldFont: xft:fixed:antialias=False:pixelsize=15,\
 xftSymbols Nerd Font Mono:pixelsize=15,\
 xft:Symbola:bold:pixelsize=15
URxvt.italicFont: xft:fixed:antialias=False:pixelsize=15,\
 xft:Symbols Nerd Font Mono:pixelsize=15,\
 xft:Symbola:italic:pixelsize=15
URxvt.boldItalicFont: xft:fixed:antialias=False:pixelsize=15,\
 xft:Symbols Nerd Font Mono:pixelsize=15,\
 xft:Symbola:italic:bold:pixelsize=15
URxvt.perl-lib: ~/.urxvt/ext
URxvt.perl-ext-common: default,clipboard,resize-font
URxvt.copyCommand: xclip -i -selection clipboard
URxvt.pasteCommand: xclip -o -selection clipboard
URxvt.keysym.C-C: perl:clipboard:copy
URxvt.keysym.C-V: perl:clipboard:paste
URxvt.keysym.C-A-V: perl:clipboard:paste_escaped
URxvt.depth: 32
URxvt.fading: 5
URxvt.background: [95]#282828
URxvt.loginShell: true
URxvt.letterSpace: 0
URxvt.lineSpace: 0
URxvt.geometry: 240x120
URxvt.internalBorder: 14
URxvt.borderWidth: 0
URxvt.externalBorder: 0
URxvt.cursorBlink: true
URxvt.cursorUnderline: false
URxvt.urgentOnBell: true
URxvt.iso14755: false
URxvt.saveLines: 65535
URxvt.scrollBar: false
URxvt.keysym.C-minus: resize-font:smaller
URxvt.keysym.C-plus: resize-font:bigger
URxvt.keysym.C-equal: resize-font:equal
URxvt.keysym.Control-Up: 033円[1;5A
URxvt.keysym.Control-Down: 033円[1;5B
URxvt.keysym.Control-Right: 033円[1;5C
URxvt.keysym.Control-Left: 033円[1;5D
!!
! XClock Stuffs
!!
XClock*Background: #32302f
XClock*Foreground: #ebdbb2

#!/bin/ksh

readonly XMESG_WIDTH=512
readonly XMESG_HEIGHT=128
# Hardware acceleration and style overrides
export MOZ_ACCELERATED=0
export MOZ_WEBRENDER=0
# Function to ensure XDG environment variables are set
function xdg_runtime {
 export XDG_RUNTIME_DIR=/tmp/run/user/$(id -u)
 export XDG_CONFIG_HOME=$HOME/.config
 export XDG_CACHE_HOME=$HOME/.cache
 export XDG_DATA_DIR=$HOME/.local/share
 export XDG_STATE_HOME=$HOME/.local/state
 [ -n "${selected_wm}" ] && export XDG_CURRENT_DESKTOP="${selected_wm}"
 [ ! -d "$XDG_RUNTIME_DIR" ] && mkdir -m 700 -p "$XDG_RUNTIME_DIR"
}
# Get screen width (0) or height (1)
function get_screen_dimension {
 typeset dimension=$(xrandr --current | grep '*' | uniq | awk '{print 1ドル}' | head -n1)
 case 1ドル in
 0) echo "${dimension%x*}" ;;
 1) echo "${dimension#*x}" ;;
 ,*) echo "Invalid argument. Use 0 for width or 1 for height." ;;
 esac
}
# Load files if they exist
function load_environment {
 set -A files "$@"
 for file in "${files[@]}"; do
 [ -f "$file" ] && . "$file"
 done
}
# Merge X resources
function load_resources {
 set -A resources "$@"
 for resource in "${resources[@]}"; do
 [ -f "$resource" ] && xrdb -merge "$resource"
 done
}
# Run a list of background processes, killing any previous instance
function run_commands {
 set -A commands "$@"
 for cmd in "${commands[@]}"; do
 typeset pname="${cmd%% *}"
 pkill "$pname" 2>/dev/null
 eval "$cmd" &
 done
}
# Play a random startup WAV sound from directory
function play_startup_sound {
 if command -v aucat &>/dev/null; then
 sleep 1
 aucat -i $(find "1ドル" -type f -name '*.wav' | sort -R | head -n1)
 fi
}
# Set default input/output volume
function set_default_volume {
 sndioctl input.level=0.45
 sndioctl output.level=1.00
}
# Helper to calculate xmessage position
function get_centered_geometry {
 typeset xwidth=$(get_screen_dimension 0)
 typeset xheight=$(get_screen_dimension 1)
 typeset xpos=$(( (xwidth - XMESG_WIDTH) / 2 ))
 typeset ypos=$(( (xheight - XMESG_HEIGHT) / 2 ))
 echo "${XMESG_WIDTH}x${XMESG_HEIGHT}+${xpos}-${ypos}"
}
# Prompt to choose a window manager
function select_wm {
 typeset geometry=$(get_centered_geometry)
 xmessage "Please Choose a Session to load" \
 -buttons "StumpWM[]":1,"FVWM[]":2 \
 -default "StumpWM[]" \
 -geometry "$geometry"
 case $? in
 1) echo "stumpwm" ;;
 2) echo "fvwm" ;;
 ,*) echo "stumpwm" ;;
 esac
}
# Load env and resources
load_environment /etc/profile ~/.profile
load_resources ~/.Xresources ~/.xresources.d/emwm
# Select WM
selected_wm=$(select_wm)
# Resolve WM binary
case "$selected_wm" in
 stumpwm) wm=$(command -v stumpwm) ;;
 fvwm) wm=$(command -v fvwm) ;;
esac
wm_args=""
# Disable core dumps
ulimit -Sc 0
# Cleanup stray processes trap
trap 'pkill -U $(id -u) -P $$' EXIT INT TERM
trap 'kill -- -$AUTOSTART_GRP' EXIT INT TERM
# XDG + GPG Setup
xdg_runtime
# Autostart common services
(
 run_commands \
 "picom -b" \
	"snixembed --fork" \
 "emacs --daemon" \
 "nxbelld -t 150 -v100 -d200 -f ~/.local/alert/Bottle.wav -b" \
 "feh --bg-fill --randomize /usr/local/share/backgrounds" \
 "xidle -delay 5 -nw -program /usr/local/bin/slock -timeout 1800" \
 "dunst --startup_notification true"
 [ -f ~/.autostart ] && (sleep 10 && sh ~/.autostart)
) &
AUTOSTART_GRP=$!
# Set volumes
set_default_volume
# Play startup SFX
(play_startup_sound ~/.local/sfx/) &
# DBus
if [ -x /usr/local/bin/dbus-launch -a -z "${DBUS_SESSION_BUS_ADDRESS}" ]; then
 eval `dbus-launch --sh-syntax --exit-with-x11`
fi
# Launch WM
if ! exec "$wm" $wm_args; then
 echo "Failed to launch window manager $wm."
 exit 1
fi
exit 0