DestroyFunc FvwmChangeBackground

AddToFunc   FvwmChangeBackground

+ I Exec Esetroot -scale $[fvwm_wallpapers]/$0

#!/bin/sh

#

# ScriptFvwmWallpapers

# Menus composés de wallpapers pour fvwm

# Shaika-Dzari <shaikdzari@gmail.com> <www.guidelinux.org>

#

# Vous devez activer FvwmCommand pour la lecture des menus.

# Ajoutez ceci à votre fonction de démarrage de Fvwm

# + I Module FvwmCommandS

#

# De plus, une entrée de ce style doit être ajouté à votre menu:

# + "Wallpapers%mode.png%" Popup MenuFvwmWallpapers

#



# On efface l'ancien menu global

rm ~/.fvwm/MenuFvwmWallpapers

# On recrée les entêtes

echo "DestroyMenu MenuFvwmWallpapers" > ~/.fvwm/MenuFvwmWallpapers

echo "AddToMenu MenuFvwmWallpapers \"Wallpapers%mode.png%\" Title" >> ~/.fvwm/MenuFvwmWallpapers

# Commande pour recréer le menu

echo "AddToMenu MenuFvwmWallpapers \"ScriptFvwmWallpapers.sh%mode.png%\" Exec exec sh ~/.fvwm/ScriptFvwmWallpapers.sh" >> ~/.fvwm/MenuFvwmWallpapers



for dossier in `ls ~/wallpapers/`; do

	# On efface les anciennes miniatures

	rm ~/.fvwm/icons/wallpapers/$dossier/*.*

	# On efface les anciens menus ( $dossier est un fichier texte ici )

	rm ~/.fvwm/$dossier

	# Création des entêtes du menu ( $dossier est un fichier texte ici )

	echo "DestroyMenu $dossier" > ~/.fvwm/$dossier

	echo "AddToMenu $dossier \"Wallpapers\" Title" >> ~/.fvwm/$dossier

	# On convertie les images des sous-dossiers

	for images in `ls ~/wallpapers/$dossier`; do

		nom=`basename $images`

		chemin="~/wallpapers/$dossier"

		case $images in

		*.png)

			convert -scale 64 ~/wallpapers/$dossier/$images ~/.fvwm/icons/wallpapers/$dossier/$nom

		;;

		*.jpg)

			convert -scale 64 ~/wallpapers/$dossier/$images ~/.fvwm/icons/wallpapers/$dossier/`basename $images .jpg`.png

		;;

		esac

		echo "AddToMenu $dossier \"$nom%wallpapers/$dossier/$nom%\" FvwmChangeBackground \"$dossier/$nom\"" >> ~/.fvwm/$dossier

	done

	# Ajout du sous-menu dans MenuFvwmWallpapers

	echo "AddToMenu MenuFvwmWallpapers \"$dossier%mode.png%\" Popup $dossier" >> ~/.fvwm/MenuFvwmWallpapers

	# Lecture du sous-menu à l'aide de FvwmCommand

	FvwmCommand "Read $dossier"

done



# Lecture finale de MenuFvwmWallpapers

FvwmCommand "Read MenuFvwmWallpapers"

Guimauve2 a écrit :


Bravo, beau script !

Et beau wallpaper !