maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Fix wallpaper script

Browse source
This commit is contained in:
Malte Brandy 2020-05-20 09:35:05 +02:00
parent 2c1f3ea8fe
commit beb88114dd
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
home/desktop/wallpaper.nix
View file

@ -12,7 +12,7 @@ let
((files Unsafe.!!) -> file) <- getStdRandom $ randomR (0, length files - 1)
(decodeUtf8 -> current) <- gsettings "get" "org.gnome.desktop.background" "picture-uri" |> captureTrim
let new = [i|file:///home/maralorn/.wallpapers/#{mode}/#{file}|] :: String
when (new /= current) $
when (new /= current) $ do
gsettings "set" "org.gnome.desktop.background" "picture-uri" new
gsettings "set" "org.gnome.desktop.screensaver" "picture-uri" new
'';