X-Git-Url: https://git.draconx.ca/gitweb/fvwmconf.git/blobdiff_plain/c6f5c393eef5f19621f50b2caecaab2136fc443e..6ea5fd2e47b06873f28160fc414f4ef90c82f2fe:/common/wallpaper

diff --git a/common/wallpaper b/common/wallpaper
index a80e320..1bc5002 100644
--- a/common/wallpaper
+++ b/common/wallpaper
@@ -4,7 +4,7 @@ SetEnv BGFILE  "$[FVWM_USERDIR]/.state/wallpaper$[screen].png"
 SetEnv BGROOT  "$[HOME]/wallpaper"
 
 CopyMenuStyle * MenuWallpaper
-MenuStyle MenuWallpaper ItemFormat "%.2|%5.5c%2.3>%1|"
+MenuStyle MenuWallpaper ItemFormat "%.2|%5.5c%-16.3>%1|"
 
 DestroyMenu MenuWallpaper
 AddToMenu   MenuWallpaper
@@ -15,16 +15,20 @@ DestroyFunc MakeMenuWallpaper
 AddToFunc   MakeMenuWallpaper
  + I DestroyMenu recreate MenuWallpaper
  + I AddToMenu MenuWallpaper Wallpaper Title
- + I PipeRead 'exec $[FVWM_USERDIR]/scripts/bgmenu.zsh $[BGROOT] MenuWallpaper'
+ + I PipeRead 'exec $[FVWM_USERDIR]/scripts/bgmenu.sh --menu=MenuWallpaper $[BGROOT]'
 
 DestroyFunc SetWallpaper
 AddToFunc   SetWallpaper
  + I Exec exec ln -sf "$0" "$[BGFILE]"
  + I Exec exec $[SETROOT] "$[BGFILE]"
 
-AddToFunc InitFunction
+DestroyFunc SetInitialWallpaper
+AddToFunc   SetInitialWallpaper
  + I Exec if [ -f "$[BGFILE]" ]; then \
               $[SETROOT] "$[BGFILE]"; \
           else \
 	      $[SETROOT] "$($[FVWM_USERDIR]/scripts/randombg.pl $[BGROOT])"; \
 	  fi
+
+AddToFunc InitFunction I SetInitialWallpaper
+AddToFunc SessionInitFunction I SetInitialWallpaper