derivation.nix

{ lib, pkgs, stdenv, wayland, conf ? null, inputs, ... }:

let
	prefix = "${pkgs.writeShellScriptBin "prefix" ''
		prefix="$1"; shift

		echo "$prefix: Starting: $@"

		exec "$@" > >(sed "s/^/$prefix: /") 2> >(sed "s/^/ERR: $prefix /" >&2)
		''}/bin/prefix";

	cleanup = "${pkgs.writeShellScriptBin "cleanup" ''
        function stop() {
        	killall -u "$USER" -w "$1" >/dev/null 2>&1
        }

        stop swayidle
		stop swaync
        stop waybar
        stop udiskie
        stop firefox
        stop slack
        stop spotify
        stop sway-audio-idle-inhibit
        stop mpvpaper
        stop wob
        stop playerctld
		stop wayvnc

        stop dwlstartup
        ''}/bin/cleanup";

	waybar		= "${pkgs.callPackage ./waybar		{ inherit pkgs inputs; }}/bin/waybar-wrapped";
	swipeguess	= (pkgs.callPackage ./swipeguess	{ inherit pkgs inputs; });

	swaync		= "${pkgs.writeShellApplication {
		name = "swaync-wrapped";
		runtimeInputs = [ pkgs.swaynotificationcenter ];

		text = ''
			export XDG_CONFIG_DIRS="${pkgs.swaynotificationcenter}/etc/xdg:$XDG_CONFIG_DIRS"

            exec swaync						\
                -s ${./swaync/style.css}	\
                -c ${./swaync/config.json}
            '';
	}}/bin/swaync-wrapped";

	# A helper script to show an application menu
	appmenu = (pkgs.writeShellScriptBin "appmenu" ''
        exec "${pkgs.nwg-drawer}/bin/nwg-drawer"
        ''
	);

	# A helper script to toggle, show or hide an on screen keyboard
	wvkbd = inputs.wvkbd-minego.packages.${pkgs.system}.default;
	osk = (pkgs.writeShellScriptBin "osk" ''
        case $1 in
        	help|usage|-h|--help)
        		echo "osk show|hide|toggle"
        		;;
        
        	show)
        		${wvkbd}/bin/wvkbd-minego -O | ${swipeguess}/bin/swipeGuess ${./words.txt} | ${swipeguess}/bin/completelyTypeWord.sh & disown
        		;;
        
        	hide)
        		pkill -x wvkbd-minego
        		;;
        
        	toggle|*)
        		if pgrep -x wvkbd-minego ; then
        			osk hide
        		else
        			osk show
        		fi
        		;;
        esac
        ''
	);

	# A helper script used by DWL to control the backlight
	backlight = (pkgs.writeShellScriptBin "backlight" ''
        function osd() {
        	float=$(${pkgs.light}/bin/light -G)
        	value=''${float%.*}
        
        	if [ "$value" -gt 100 ]; then
        		value=100
        	fi
        	if [[ -v WOBSOCK ]]; then
        		echo "$value" > "$WOBSOCK"
        	fi
        }
        
        case "$1" in
        	osd)
        		osd
        	;;
        
        	up|plus)
        		${pkgs.light}/bin/light -A 5
        		$0 osd
        	;;
        
        	down|minus)
        		${pkgs.light}/bin/light -U 5
        		$0 osd
        	;;
        
        	set)
        		${pkgs.light}/bin/light -S $2
        	;;
        
        	get|*)
        		${pkgs.light}/bin/light -G
        	;;
        esac
        '');

	mediacontrol = (pkgs.writeShellScriptBin "mediacontrol" ''
        # Read the last active player, which is set when a command is done while
        # something is actually playing. If nothing is playing now then the most recent
        # thing that was playing should be activated again.
        ACTIVE_PLAYER=`cat ~/.mediacontrol-last-player.txt 2>/dev/null`
        
        # Check to see if anything is playing now. If so, that player will be controlled
        while IFS= read -r PLAYER; do
        	STATE=`${pkgs.playerctl}/bin/playerctl -p "$PLAYER" status`
        
        	# echo "$$ Player: $PLAYER: $STATE"
        	case $STATE in
        		Playing)
        			ACTIVE_PLAYER=$PLAYER
        			echo "$ACTIVE_PLAYER" > ~/.mediacontrol-last-player.txt
        			;;
        
        		*|Paused)
        			;;
        	esac
        done < <(${pkgs.playerctl}/bin/playerctl -l)
        
        function showvolume() {
        	VOL=`${pkgs.pamixer}/bin/pamixer --get-volume`
        
        	if [ $VOL -gt 100 ]; then
        		VOL=100
        	fi
        	if [[ -v WOBSOCK ]]; then
        		echo $VOL > $WOBSOCK
        	fi
        }
        
        case $1 in
        	next)
        		${pkgs.playerctl}/bin/playerctl -p "$ACTIVE_PLAYER" next
        		;;
        
        	prev)
        		${pkgs.playerctl}/bin/playerctl -p "$ACTIVE_PLAYER" previous
        		;;
        
        	toggle)
        		${pkgs.playerctl}/bin/playerctl -p "$ACTIVE_PLAYER" play-pause
        		;;
        
        	pause)
        		${pkgs.playerctl}/bin/playerctl pause -a
        		;;
        
        	what)
        		STATE=`${pkgs.playerctl}/bin/playerctl -p "$ACTIVE_PLAYER" status`
        
        		case $STATE in
        			Playing)
        				ARTIST=`${pkgs.playerctl}/bin/playerctl -p "$ACTIVE_PLAYER" metadata artist`
        				TITLE=`${pkgs.playerctl}/bin/playerctl -p "$ACTIVE_PLAYER" metadata title`
        				echo " $TITLE BY $ARTIST"
        				;;
        
        			Paused)
        				echo  
        				;;
        
        			*)
        				;;
        		esac
        		;;
        
        	status)
        		${pkgs.playerctl}/bin/playerctl -p "$ACTIVE_PLAYER" $@
        
        		case $STATE in
        			Playing)
        				exit 0
        				;;
        
        			*)
        				exit 1
        				;;
        		esac
        		;;
        
        	up)
        		${pkgs.pamixer}/bin/pamixer --increase 5
        		showvolume
        		;;
        
        	down)
        		${pkgs.pamixer}/bin/pamixer --decrease 5
        		showvolume
        		;;
        
        	mute)
        		${pkgs.pamixer}/bin/pamixer --toggle-mute
        		${pkgs.pamixer}/bin/pamixer --get-mute | grep "true" > /dev/null
        		showvolume
        		;;
        
        	micmute)
        		${pkgs.pamixer}/bin/pamixer --default-source --toggle-mute
        		${pkgs.pamixer}/bin/pamixer --default-source --get-mute | grep "true" > /dev/null
        		showvolume
        		;;
        
        	*)
        		${pkgs.playerctl}/bin/playerctl -p "$ACTIVE_PLAYER" $@
        		;;
        esac
        exit $?
        
        '');

	wlr-power = (pkgs.writeShellScriptBin "wlr-power" ''
		case "$1" in
			on|off|toggle)
				${pkgs.wlr-randr}/bin/wlr-randr --json | ${pkgs.jq}/bin/jq -r '.[].name' | \
						xargs -I {} ${pkgs.wlr-randr}/bin/wlr-randr --output {} --$1
				;;

			*)
				echo "Usage: $0 <on|off|toggle>"
				;;
		esac
		'');

	swayidle	= "${pkgs.swayidle}/bin/swayidle";
	swaylock	= "${pkgs.swaylock-effects}/bin/swaylock";
	wob			= "${pkgs.wob}/bin/wob";
	playerctld	= "${pkgs.playerctl}/bin/playerctld";
	playerctl	= "${pkgs.playerctl}/bin/playerctl";
	udiskie		= "${pkgs.udiskie}/bin/udiskie";
	firefox		= "${pkgs.firefox}/bin/firefox";
    idle-inhibit= "${pkgs.sway-audio-idle-inhibit}/bin/sway-audio-idle-inhibit";
	mpvpaper	= "${pkgs.mpvpaper}/bin/mpvpaper";
	wayvnc		= "${pkgs.wayvnc}/bin/wayvnc";
	authagent	= "${pkgs.polkit_gnome}/libexec/polkit-gnome-authentication-agent-1";

	dwlstartup = (pkgs.writeShellScriptBin "dwlstartup" ''
		# Cleanup any old status
		rm -rf ~/.cache/dwl 2>/dev/null
		${./waybar/dwl-status} reset

		(
			${prefix} SWAYIDLE ${swayidle} -w											\
				timeout 180 '${swaylock} -d -F -c 000000 -f'							\
				timeout 195 'wlr-power off'												\
				resume 'wlr-power on'													\
				before-sleep '${swaylock} -F -d -c 000000 -f' &
			
			(tail -f "$WOBSOCK" | ${prefix} WOB ${wob}) &

			# waybar requires playerctld, so thart that first
			${prefix} PLAYERCTLD ${playerctld} &
			sleep 2

			${prefix} WAYBAR ${waybar} &

			${prefix} SWAYNC ${swaync} &
			${prefix} UDISKIE ${udiskie} --tray &

			# ${prefix} FIREFOX ${firefox} &

			if command -v slack &> /dev/null; then
				${prefix} SLACK slack &
			fi
			if command -v spotify &> /dev/null; then
				${prefix} SPOTIFY spotify &
			fi
			${prefix} IDLE-INHIBIT ${idle-inhibit} &
			${prefix} MPVPAPER ${mpvpaper} -n 100 '*' ~/Pictures/wallpaper.mp4 -o "--no-keepaspect" > /dev/null 2>&1 &
			${prefix} WAYVNC ${wayvnc} &
			${prefix} POLKIT ${authagent} &

			systemctl --user restart xdg-desktop-portal.service
		) &

		exec ${./waybar/dwl-status} monitor
        '');

	dwl-wrapped = (pkgs.writeShellScriptBin "dwl" ''
		${cleanup}

        export XDG_CURRENT_DESKTOP=wlroots
        
        eval "$(${pkgs.openssh}/bin/ssh-agent -k)"
        eval "$(${pkgs.openssh}/bin/ssh-agent)"
        
        ln -sf "$SSH_AUTH_SOCK" ~/.ssh/ssh_auth_sock
        export SSH_AUTH_SOCK=~/.ssh/ssh_auth_sock
        
        export SSH_AENT_PID
        
        export MOZ_ENABLE_WAYLAND=1
        export QT_QPA_PLATFORM=wayland-egl
        export GDK_BACKEND=wayland
        export GDK_SCALE=1
        export CLUTTER_BACKEND=wayland
        
        export WOBSOCK="$XDG_RUNTIME_DIR/wob.sock"
        rm -f "$WOBSOCK" && mkfifo "$WOBSOCK"
        
        ${pkgs.dbus}/bin/dbus-run-session -- ${pkgs.dwl-unwrapped}/bin/dwl -s ${dwlstartup}/bin/dwlstartup > ~/.cache/dwl.out 2>&1
		${cleanup}
		pkill -P $$
        '');

	startw = (pkgs.writeShellScriptBin "startw" ''
		exec ${dwl-wrapped}/bin/dwl
		'');
in

pkgs.symlinkJoin {
	name = "dwl-wrapped";
	paths = [
		# Our wrapper for starting dwl
		dwl-wrapped

		# Helper scripts that our dwl config uses
		startw
		appmenu
		backlight
		mediacontrol
		osk
		pkgs.swaylock
		wlr-power

		# wtype is used by swipeguess to type the word
		pkgs.wtype

		# The original DWL package, for everything except the binary
		pkgs.dwl-unwrapped

		# Other tools that my DWL config depends on
		pkgs.wlr-randr
		pkgs.swaynotificationcenter
	];
} // {
	passthru.providedSessions = [ "dwl" ];
}