scheme: dynamic scheme

data/foot.template

@@ -0,0 +1,36 @@
+[cursor]
+color=$crust $rosewater
+
+[colors]
+foreground=$text
+background=$base
+
+regular0=$surface1
+regular1=$red
+regular2=$green
+regular3=$yellow
+regular4=$blue
+regular5=$pink
+regular6=$teal
+regular7=$subtext1
+
+bright0=$surface2
+bright1=$red
+bright2=$green
+bright3=$yellow
+bright4=$blue
+bright5=$pink
+bright6=$teal
+bright7=$subtext0
+
+16=$peach
+17=$rosewater
+
+selection-foreground=$text
+selection-background=$surface1
+
+search-box-no-match=$crust $red
+search-box-match=$text $surface0
+
+jump-labels=$crust $peach
+urls=$blue

main.fish

@@ -32,7 +32,7 @@ if test "$argv[1]" = workspace-action
 end
 
 if test "$argv[1]" = scheme
-    set -l valid_schemes mocha macchiato frappe latte
+    set -l valid_schemes dynamic mocha macchiato frappe latte
     contains "$argv[2]" $valid_schemes && echo -n $argv[2] > $CACHE/scheme/current.txt || error "Invalid scheme: $argv[2]"
     exit
 end

scheme/apply-scheme.fish

@@ -0,0 +1,53 @@
+#!/bin/fish
+
+function gen-hypr
+    for colour in $argv
+        set -l split (string split ' ' $colour)
+        echo "\$$split[1] = $split[2]"
+    end
+end
+
+function gen-scss
+    for colour in $argv
+        set -l split (string split ' ' $colour)
+        echo "\$$split[1]: #$split[2];"
+    end
+end
+
+function gen-foot
+    cp (dirname (status filename))/../data/foot.template $CONFIG/../foot/schemes/dynamic.ini
+    for colour in $argv
+        set -l split (string split ' ' $colour)
+        sed -i "s/\$$split[1]/$split[2]/g" $CONFIG/../foot/schemes/dynamic.ini
+    end
+end
+
+. (dirname (status filename))/../util.fish
+
+set -l src (dirname (status filename))
+set -l colours ($src/gen-scheme.fish $argv[1])
+
+if test -d $CONFIG/hypr/scheme
+    log 'Generating hypr scheme'
+    gen-hypr $colours > $CONFIG/hypr/scheme/dynamic.conf
+end
+
+if test -d $CONFIG/shell/scss/scheme
+    log 'Generating shell scheme'
+    gen-scss $colours > $CONFIG/shell/scss/scheme/_dynamic.scss
+end
+
+if test -d $CONFIG/safeeyes/scheme
+    log 'Generating SafeEyes scheme'
+    gen-scss $colours > $CONFIG/safeeyes/scheme/_dynamic.scss
+end
+
+if test -d $CONFIG/../foot/schemes
+    log 'Generating foot scheme'
+    gen-foot $colours
+end
+
+# Reload programs if dynamic scheme
+if test -f $CACHE/scheme/current.txt -a "$(cat $CACHE/scheme/current.txt)" = 'dynamic'
+    caelestia scheme dynamic
+end

scheme/gen-scheme.fish

@@ -0,0 +1,26 @@
+#!/bin/fish
+
+function nl-echo
+    # Echo with newlines
+    for a in $argv
+        echo $a
+    end
+end
+
+. (dirname (status filename))/../util.fish
+
+set -l colour_names rosewater flamingo pink mauve red maroon peach yellow green teal sky sapphire blue lavender
+set -l layer_names text subtext1 subtext0 overlay2 overlay1 overlay0 surface2 surface1 surface0 base mantle crust
+
+test -f "$argv[1]" && set -l img "$argv[1]" || set -l img $CACHE/wallpaper/current
+set -l colours_raw (okolors (realpath $img) -k 15 -w 0 -l 70,90,75,65,40,35,30,25,20,15,10,8,6)
+set -l colours (string split ' ' $colours_raw[2])[2..]
+set -l layers (nl-echo $colours_raw | cut -f 1 -d ' ')[3..]
+
+for i in (seq 1 (count $colour_names))
+    echo "$colour_names[$i] $colours[$i]"
+end
+
+for i in (seq 1 (count $layer_names))
+    echo "$layer_names[$i] $layers[$i]"
+end

wallpaper.fish

@@ -38,7 +38,7 @@ else
 
     # Use wallpaper given as argument else choose random
     if set -q _flag_f
-        set chosen_wallpaper "$(cd $(dirname $_flag_f) && pwd)/$(basename $_flag_f)"
+        set chosen_wallpaper (realpath $_flag_f)
 
         # Set last wallpaper if not same as given
         if [ -f "$last_wallpaper_path" ]
@@ -96,6 +96,10 @@ else
     # Unload unused wallpapers to preserve memory
     hyprctl hyprpaper unload unused > /dev/null
 
+    # Generate colour scheme for wallpaper
+    set -l src (dirname (status filename))
+    $src/scheme/apply-scheme.fish $chosen_wallpaper
+
     # Store the wallpaper chosen
     mkdir -p $cache_dir
     echo $chosen_wallpaper > $last_wallpaper_path