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"
 "drakma"
 "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 || exeption "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_emwm {
 log "Setting up Enhanced Motif WM..."
 rex configure_emwm
}
# 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) Emwm'
 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_stupmwm;
 ;;
 3)
 echo "Selected Emwm Config..."; sleep $SLEEPTIME; setup_emwm;
 ;;
 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_gtkicon;
 ;;
 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_emwm; 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: fixed 
xterm*faceSize: 14
xterm*renderFont: true
xterm*internalBorder: 12
xterm*letterSpace: 1
xterm*loginShell: true
xterm*savelines: 16384
!!
! 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,\
 xft:Symbols 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

# Load in .zshrc environment
. ~/.zshrc
# Define variables at the top for easy access
readonly XMESG_WIDTH=512
readonly XMESG_HEIGHT=128
# Set environment up, .xprofile isn't respected
# Set Default LOCALE
export LC_CTYPE="en_US.UTF-8"
export LC_ALL="en_US.UTF-8"
export LANG="en_US.UTF-8"
# Enable HWACCEL for Firefox
export MOZ_ACCELERATED=1
export MOZ_WEBRENDER=1
# set qt apps to use kvantum widgets if avail
export QT_STYLE_OVERRIDE=kvantum
# make sdl mouse cursor lag go away
export SDL_VIDEO_X11_DGAMOUSE=0
# set XDG stuff
function xdg_runtime {
 export XDG_RUNTIME_DIR=/tmp/run/$(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}"
 if [ ! -d $XDG_RUNTIME_DIR ]; then
 mkdir -m 700 -p $XDG_RUNTIME_DIR
 fi
}
function gpg_agent {
 eval $(gpg-agent --daemon \
 --write-env-file $HOME/.gpg-agent-info)
 if [ -f $HOME/.gpg-agent-info ]; then
 . $HOME/.gpg-agent-info
 export GPG_AGENT_INFO
 export SSH_AUTH_SOCK
 fi
}
# Function to get screen dimensions
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
}
# Function to load environment
function load_environment {
 set -A files "$@"
 for file in "${files[@]}"; do
 [ -f "$file" ] && . "$file"
 done
}
# Function to load resources
function load_resources {
 set -A resources "$@"
 for resource in "${resources[@]}"; do
 [ -f "$resource" ] && xrdb -merge "$resource"
 done
}
# Function to manage autostarts
function manage_autostarts {
 for process in "$@"; do
 process_name="${process% *}"
 if pgrep "$process_name" > /dev/null; then
 pkill "$process_name"
 fi
 eval "$process" &
 done
}
# Sleep 1s, then play random wav-format startup sound from directory passed as argument
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 volume of input and output devices. this is useful for audio calls so people don't get ear-raped with your mic feedback on laptops
function set_default_volume {
 sndioctl input.level=0.45
 sndioctl output.level=1.00
}
# Function to select a window manager
function select_wm {
 # WM Session Prompt
 typeset xwidth=$(get_screen_dimension 0)
 typeset xheight=$(get_screen_dimension 1)
 typeset xmesg_xpos=$((($xwidth - $XMESG_WIDTH) / 2))
 typeset xmesg_yoffset=$((($xheight - $XMESG_HEIGHT) / 2))
 xmessage "Please Choose a Session to load" \
 -buttons "StumpWM[]":1,"EMWM[]":2 \
 -default "StumpWM[]" \
 -geometry ${XMESG_WIDTH}x${XMESG_HEIGHT}+${xmesg_xpos}-${xmesg_yoffset}
 typeset choice=$?
 case ${choice} in
 1) echo "stumpwm" ;;
 2) echo "emwm" ;;
 ,*) echo "stumpwm" ;;
 esac
}
# Load in environment & resources
load_environment /etc/xprofile ~/.xprofile
load_resources ~/.Xresources ~/.xresources.d/emwm
# Select Window Manager
selected_wm=$(select_wm)
# Launch the selected window manager
case ${selected_wm} in
 stumpwm)
 wm=$(command -v stumpwm)
 wm_args=""
 ;;
 emwm)
 wm=$(command -v xmsm)
 wm_args=""
 ;;
esac
# No .core files
ulimit -Sc 0
# Cleanup
trap 'pkill -U $(id -u) -P $$' EXIT
# Set XDG Stuffs
xdg_runtime
# Set GnuPG Stuffs
gpg_agent
# ^ these need to be here so autostarts can work
# Autostarts
manage_autostarts "picom -b" \
 "emacs --daemon" \
 "nxbelld -t 150 -v100 -d200 -f ~/.local/alert/Funk.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"
# Check if ~/.autostart exists, and if so, run it!
test -f ~/.autostart && (sleep 10 && sh ~/.autostart) &
# set the default volume
set_default_volume
# Play the startup sound in a subshell
(play_startup_sound ~/.local/sfx/) &
# Launch the window manager
if ! exec dbus-run-session "${wm}" ${wm_args}; then
 echo "Failed to launch window manager ${wm}."
 exit 1
fi
exit 0