;;;
;  This file includes scwm configuration for using with wm-icons.
;  Optimized for the default scwm-0.9 configuration.
;  Using this file doesn't break your existing .scwmrc, just extends it.
;  You probably need to edit it if you have a non-default configuration.
;
;  Instructions:
;    1) Install wm-icons (configure & make install)
;    2) Copy this file to home directory (add leading dot) and put this line:
;         (load ".scwmrc-wm-icons")
;       as the last line of your .scwmrc
;    3) (Re)Start scwm
;
;  The file is not perfect, it'll be better in the next versions.
;  Send your comments to migo@homemail.com.
;;;


(set! image-load-path
	(append! (list
		(string-append (user-home) "~/@userdir@") "@icondir@"
	) image-load-path)
)
(use-modules (app scwm flux))  ; for window-info

;; You can comment this out or in to get title-icon for any window a-la fvwm95.
;(set-button-face! 1 (make-face '((relief raised)) '((pixmap mini-program-icon))))


(define wmi-menu-amusement        (make-image "menu/amusement.xpm"))
(define wmi-mini-amusement        (make-image "mini/amusement.xpm"))
(define wmi-norm-amusement        (make-image "norm/amusement.xpm"))
(define wmi-menu-calculator       (make-image "menu/calculator.xpm"))
(define wmi-mini-calculator       (make-image "mini/calculator.xpm"))
(define wmi-norm-calculator       (make-image "norm/calculator.xpm"))
(define wmi-menu-cd-player        (make-image "menu/cd-player.xpm"))
(define wmi-mini-cd-player        (make-image "mini/cd-player.xpm"))
(define wmi-norm-cd-player        (make-image "norm/cd-player.xpm"))
(define wmi-menu-chat             (make-image "menu/chat.xpm"))
(define wmi-mini-chat             (make-image "mini/chat.xpm"))
(define wmi-norm-chat             (make-image "norm/chat.xpm"))
(define wmi-menu-choice-no        (make-image "menu/choice-no.xpm"))
(define wmi-mini-choice-no        (make-image "mini/choice-no.xpm"))
(define wmi-norm-choice-no        (make-image "norm/choice-no.xpm"))
(define wmi-menu-choice-yes       (make-image "menu/choice-yes.xpm"))
(define wmi-mini-choice-yes       (make-image "mini/choice-yes.xpm"))
(define wmi-norm-choice-yes       (make-image "norm/choice-yes.xpm"))
(define wmi-menu-clock            (make-image "menu/clock.xpm"))
(define wmi-mini-clock            (make-image "mini/clock.xpm"))
(define wmi-norm-clock            (make-image "norm/clock.xpm"))
(define wmi-menu-colors           (make-image "menu/colors.xpm"))
(define wmi-mini-colors           (make-image "mini/colors.xpm"))
(define wmi-norm-colors           (make-image "norm/colors.xpm"))
(define wmi-menu-configuration    (make-image "menu/configuration.xpm"))
(define wmi-mini-configuration    (make-image "mini/configuration.xpm"))
(define wmi-norm-configuration    (make-image "norm/configuration.xpm"))
(define wmi-menu-development      (make-image "menu/development.xpm"))
(define wmi-mini-development      (make-image "mini/development.xpm"))
(define wmi-norm-development      (make-image "norm/development.xpm"))
(define wmi-menu-disk-cd          (make-image "menu/disk-cd.xpm"))
(define wmi-mini-disk-cd          (make-image "mini/disk-cd.xpm"))
(define wmi-norm-disk-cd          (make-image "norm/disk-cd.xpm"))
(define wmi-menu-disk-floppy      (make-image "menu/disk-floppy.xpm"))
(define wmi-mini-disk-floppy      (make-image "mini/disk-floppy.xpm"))
(define wmi-norm-disk-floppy      (make-image "norm/disk-floppy.xpm"))
(define wmi-menu-disk             (make-image "menu/disk.xpm"))
(define wmi-mini-disk             (make-image "mini/disk.xpm"))
(define wmi-norm-disk             (make-image "norm/disk.xpm"))
(define wmi-menu-display          (make-image "menu/display.xpm"))
(define wmi-mini-display          (make-image "mini/display.xpm"))
(define wmi-norm-display          (make-image "norm/display.xpm"))
(define wmi-menu-editor           (make-image "menu/editor.xpm"))
(define wmi-mini-editor           (make-image "mini/editor.xpm"))
(define wmi-norm-editor           (make-image "norm/editor.xpm"))
(define wmi-menu-empty            (make-image "menu/empty.xpm"))
(define wmi-mini-empty            (make-image "mini/empty.xpm"))
(define wmi-norm-empty            (make-image "norm/empty.xpm"))
(define wmi-menu-file-manager     (make-image "menu/file-manager.xpm"))
(define wmi-mini-file-manager     (make-image "mini/file-manager.xpm"))
(define wmi-norm-file-manager     (make-image "norm/file-manager.xpm"))
(define wmi-menu-file             (make-image "menu/file.xpm"))
(define wmi-mini-file             (make-image "mini/file.xpm"))
(define wmi-norm-file             (make-image "norm/file.xpm"))
(define wmi-menu-folder-open      (make-image "menu/folder-open.xpm"))
(define wmi-mini-folder-open      (make-image "mini/folder-open.xpm"))
(define wmi-norm-folder-open      (make-image "norm/folder-open.xpm"))
(define wmi-menu-folder           (make-image "menu/folder.xpm"))
(define wmi-mini-folder           (make-image "mini/folder.xpm"))
(define wmi-norm-folder           (make-image "norm/folder.xpm"))
(define wmi-menu-font             (make-image "menu/font.xpm"))
(define wmi-mini-font             (make-image "mini/font.xpm"))
(define wmi-norm-font             (make-image "norm/font.xpm"))
(define wmi-menu-game-action      (make-image "menu/game-action.xpm"))
(define wmi-mini-game-action      (make-image "mini/game-action.xpm"))
(define wmi-norm-game-action      (make-image "norm/game-action.xpm"))
(define wmi-menu-game-board       (make-image "menu/game-board.xpm"))
(define wmi-mini-game-board       (make-image "mini/game-board.xpm"))
(define wmi-norm-game-board       (make-image "norm/game-board.xpm"))
(define wmi-menu-game-cards       (make-image "menu/game-cards.xpm"))
(define wmi-mini-game-cards       (make-image "mini/game-cards.xpm"))
(define wmi-norm-game-cards       (make-image "norm/game-cards.xpm"))
(define wmi-menu-game-logic       (make-image "menu/game-logic.xpm"))
(define wmi-mini-game-logic       (make-image "mini/game-logic.xpm"))
(define wmi-norm-game-logic       (make-image "norm/game-logic.xpm"))
(define wmi-menu-game             (make-image "menu/game.xpm"))
(define wmi-mini-game             (make-image "mini/game.xpm"))
(define wmi-norm-game             (make-image "norm/game.xpm"))
(define wmi-menu-ghostview        (make-image "menu/ghostview.xpm"))
(define wmi-mini-ghostview        (make-image "mini/ghostview.xpm"))
(define wmi-norm-ghostview        (make-image "norm/ghostview.xpm"))
(define wmi-menu-gimp             (make-image "menu/gimp.xpm"))
(define wmi-mini-gimp             (make-image "mini/gimp.xpm"))
(define wmi-norm-gimp             (make-image "norm/gimp.xpm"))
(define wmi-menu-gnome            (make-image "menu/gnome.xpm"))
(define wmi-mini-gnome            (make-image "mini/gnome.xpm"))
(define wmi-norm-gnome            (make-image "norm/gnome.xpm"))
(define wmi-menu-gnu              (make-image "menu/gnu.xpm"))
(define wmi-mini-gnu              (make-image "mini/gnu.xpm"))
(define wmi-norm-gnu              (make-image "norm/gnu.xpm"))
(define wmi-menu-graphics         (make-image "menu/graphics.xpm"))
(define wmi-mini-graphics         (make-image "mini/graphics.xpm"))
(define wmi-norm-graphics         (make-image "norm/graphics.xpm"))
(define wmi-menu-help             (make-image "menu/help.xpm"))
(define wmi-mini-help             (make-image "mini/help.xpm"))
(define wmi-norm-help             (make-image "norm/help.xpm"))
(define wmi-menu-home             (make-image "menu/home.xpm"))
(define wmi-mini-home             (make-image "mini/home.xpm"))
(define wmi-norm-home             (make-image "norm/home.xpm"))
(define wmi-menu-image-processor  (make-image "menu/image-processor.xpm"))
(define wmi-mini-image-processor  (make-image "mini/image-processor.xpm"))
(define wmi-norm-image-processor  (make-image "norm/image-processor.xpm"))
(define wmi-menu-image-viewer     (make-image "menu/image-viewer.xpm"))
(define wmi-mini-image-viewer     (make-image "mini/image-viewer.xpm"))
(define wmi-norm-image-viewer     (make-image "norm/image-viewer.xpm"))
(define wmi-menu-information      (make-image "menu/information.xpm"))
(define wmi-mini-information      (make-image "mini/information.xpm"))
(define wmi-norm-information      (make-image "norm/information.xpm"))
(define wmi-menu-item             (make-image "menu/item.xpm"))
(define wmi-mini-item             (make-image "mini/item.xpm"))
(define wmi-norm-item             (make-image "norm/item.xpm"))
(define wmi-menu-kde              (make-image "menu/kde.xpm"))
(define wmi-mini-kde              (make-image "mini/kde.xpm"))
(define wmi-norm-kde              (make-image "norm/kde.xpm"))
(define wmi-menu-keyboard         (make-image "menu/keyboard.xpm"))
(define wmi-mini-keyboard         (make-image "mini/keyboard.xpm"))
(define wmi-norm-keyboard         (make-image "norm/keyboard.xpm"))
(define wmi-menu-linux            (make-image "menu/linux.xpm"))
(define wmi-mini-linux            (make-image "mini/linux.xpm"))
(define wmi-norm-linux            (make-image "norm/linux.xpm"))
(define wmi-menu-lock             (make-image "menu/lock.xpm"))
(define wmi-mini-lock             (make-image "mini/lock.xpm"))
(define wmi-norm-lock             (make-image "norm/lock.xpm"))
(define wmi-menu-mail             (make-image "menu/mail.xpm"))
(define wmi-mini-mail             (make-image "mini/mail.xpm"))
(define wmi-norm-mail             (make-image "norm/mail.xpm"))
(define wmi-menu-modules          (make-image "menu/modules.xpm"))
(define wmi-mini-modules          (make-image "mini/modules.xpm"))
(define wmi-norm-modules          (make-image "norm/modules.xpm"))
(define wmi-menu-monitoring       (make-image "menu/monitoring.xpm"))
(define wmi-mini-monitoring       (make-image "mini/monitoring.xpm"))
(define wmi-norm-monitoring       (make-image "norm/monitoring.xpm"))
(define wmi-menu-mouse            (make-image "menu/mouse.xpm"))
(define wmi-mini-mouse            (make-image "mini/mouse.xpm"))
(define wmi-norm-mouse            (make-image "norm/mouse.xpm"))
(define wmi-menu-multimedia       (make-image "menu/multimedia.xpm"))
(define wmi-mini-multimedia       (make-image "mini/multimedia.xpm"))
(define wmi-norm-multimedia       (make-image "norm/multimedia.xpm"))
(define wmi-menu-music            (make-image "menu/music.xpm"))
(define wmi-mini-music            (make-image "mini/music.xpm"))
(define wmi-norm-music            (make-image "norm/music.xpm"))
(define wmi-menu-netscape         (make-image "menu/netscape.xpm"))
(define wmi-mini-netscape         (make-image "mini/netscape.xpm"))
(define wmi-norm-netscape         (make-image "norm/netscape.xpm"))
(define wmi-menu-network          (make-image "menu/network.xpm"))
(define wmi-mini-network          (make-image "mini/network.xpm"))
(define wmi-norm-network          (make-image "norm/network.xpm"))
(define wmi-menu-news             (make-image "menu/news.xpm"))
(define wmi-mini-news             (make-image "mini/news.xpm"))
(define wmi-norm-news             (make-image "norm/news.xpm"))
(define wmi-menu-printing         (make-image "menu/printing.xpm"))
(define wmi-mini-printing         (make-image "mini/printing.xpm"))
(define wmi-norm-printing         (make-image "norm/printing.xpm"))
(define wmi-menu-programs         (make-image "menu/programs.xpm"))
(define wmi-mini-programs         (make-image "mini/programs.xpm"))
(define wmi-norm-programs         (make-image "norm/programs.xpm"))
(define wmi-menu-quit             (make-image "menu/quit.xpm"))
(define wmi-mini-quit             (make-image "mini/quit.xpm"))
(define wmi-norm-quit             (make-image "norm/quit.xpm"))
(define wmi-menu-refresh          (make-image "menu/refresh.xpm"))
(define wmi-mini-refresh          (make-image "mini/refresh.xpm"))
(define wmi-norm-refresh          (make-image "norm/refresh.xpm"))
(define wmi-menu-restart          (make-image "menu/restart.xpm"))
(define wmi-mini-restart          (make-image "mini/restart.xpm"))
(define wmi-norm-restart          (make-image "norm/restart.xpm"))
(define wmi-menu-science          (make-image "menu/science.xpm"))
(define wmi-mini-science          (make-image "mini/science.xpm"))
(define wmi-norm-science          (make-image "norm/science.xpm"))
(define wmi-menu-sound            (make-image "menu/sound.xpm"))
(define wmi-mini-sound            (make-image "mini/sound.xpm"))
(define wmi-norm-sound            (make-image "norm/sound.xpm"))
(define wmi-menu-system           (make-image "menu/system.xpm"))
(define wmi-mini-system           (make-image "mini/system.xpm"))
(define wmi-norm-system           (make-image "norm/system.xpm"))
(define wmi-menu-terminal-remote  (make-image "menu/terminal-remote.xpm"))
(define wmi-mini-terminal-remote  (make-image "mini/terminal-remote.xpm"))
(define wmi-norm-terminal-remote  (make-image "norm/terminal-remote.xpm"))
(define wmi-menu-terminal-special (make-image "menu/terminal-special.xpm"))
(define wmi-mini-terminal-special (make-image "mini/terminal-special.xpm"))
(define wmi-norm-terminal-special (make-image "norm/terminal-special.xpm"))
(define wmi-menu-terminal         (make-image "menu/terminal.xpm"))
(define wmi-mini-terminal         (make-image "mini/terminal.xpm"))
(define wmi-norm-terminal         (make-image "norm/terminal.xpm"))
(define wmi-menu-themes           (make-image "menu/themes.xpm"))
(define wmi-mini-themes           (make-image "mini/themes.xpm"))
(define wmi-norm-themes           (make-image "norm/themes.xpm"))
(define wmi-menu-todo             (make-image "menu/todo.xpm"))
(define wmi-mini-todo             (make-image "mini/todo.xpm"))
(define wmi-norm-todo             (make-image "norm/todo.xpm"))
(define wmi-menu-unknown          (make-image "menu/unknown.xpm"))
(define wmi-mini-unknown          (make-image "mini/unknown.xpm"))
(define wmi-norm-unknown          (make-image "norm/unknown.xpm"))
(define wmi-menu-utility          (make-image "menu/utility.xpm"))
(define wmi-mini-utility          (make-image "mini/utility.xpm"))
(define wmi-norm-utility          (make-image "norm/utility.xpm"))
(define wmi-menu-video            (make-image "menu/video.xpm"))
(define wmi-mini-video            (make-image "mini/video.xpm"))
(define wmi-norm-video            (make-image "norm/video.xpm"))
(define wmi-menu-viewer           (make-image "menu/viewer.xpm"))
(define wmi-mini-viewer           (make-image "mini/viewer.xpm"))
(define wmi-norm-viewer           (make-image "norm/viewer.xpm"))
(define wmi-menu-window-close     (make-image "menu/window-close.xpm"))
(define wmi-mini-window-close     (make-image "mini/window-close.xpm"))
(define wmi-norm-window-close     (make-image "norm/window-close.xpm"))
(define wmi-menu-window-delete    (make-image "menu/window-delete.xpm"))
(define wmi-mini-window-delete    (make-image "mini/window-delete.xpm"))
(define wmi-norm-window-delete    (make-image "norm/window-delete.xpm"))
(define wmi-menu-window-destroy   (make-image "menu/window-destroy.xpm"))
(define wmi-mini-window-destroy   (make-image "mini/window-destroy.xpm"))
(define wmi-norm-window-destroy   (make-image "norm/window-destroy.xpm"))
(define wmi-menu-window-iconify   (make-image "menu/window-iconify.xpm"))
(define wmi-mini-window-iconify   (make-image "mini/window-iconify.xpm"))
(define wmi-norm-window-iconify   (make-image "norm/window-iconify.xpm"))
(define wmi-menu-window-identify  (make-image "menu/window-identify.xpm"))
(define wmi-mini-window-identify  (make-image "mini/window-identify.xpm"))
(define wmi-norm-window-identify  (make-image "norm/window-identify.xpm"))
(define wmi-menu-window-lower     (make-image "menu/window-lower.xpm"))
(define wmi-mini-window-lower     (make-image "mini/window-lower.xpm"))
(define wmi-norm-window-lower     (make-image "norm/window-lower.xpm"))
(define wmi-menu-window-maximize  (make-image "menu/window-maximize.xpm"))
(define wmi-mini-window-maximize  (make-image "mini/window-maximize.xpm"))
(define wmi-norm-window-maximize  (make-image "norm/window-maximize.xpm"))
(define wmi-menu-window-move      (make-image "menu/window-move.xpm"))
(define wmi-mini-window-move      (make-image "mini/window-move.xpm"))
(define wmi-norm-window-move      (make-image "norm/window-move.xpm"))
(define wmi-menu-window-raise     (make-image "menu/window-raise.xpm"))
(define wmi-mini-window-raise     (make-image "mini/window-raise.xpm"))
(define wmi-norm-window-raise     (make-image "norm/window-raise.xpm"))
(define wmi-menu-window-resize    (make-image "menu/window-resize.xpm"))
(define wmi-mini-window-resize    (make-image "mini/window-resize.xpm"))
(define wmi-norm-window-resize    (make-image "norm/window-resize.xpm"))
(define wmi-menu-window-shade     (make-image "menu/window-shade.xpm"))
(define wmi-mini-window-shade     (make-image "mini/window-shade.xpm"))
(define wmi-norm-window-shade     (make-image "norm/window-shade.xpm"))
(define wmi-menu-window-stick     (make-image "menu/window-stick.xpm"))
(define wmi-mini-window-stick     (make-image "mini/window-stick.xpm"))
(define wmi-norm-window-stick     (make-image "norm/window-stick.xpm"))
(define wmi-menu-window           (make-image "menu/window.xpm"))
(define wmi-mini-window           (make-image "mini/window.xpm"))
(define wmi-norm-window           (make-image "norm/window.xpm"))
(define wmi-menu-windows          (make-image "menu/windows.xpm"))
(define wmi-mini-windows          (make-image "mini/windows.xpm"))
(define wmi-norm-windows          (make-image "norm/windows.xpm"))
(define wmi-menu-word-processor   (make-image "menu/word-processor.xpm"))
(define wmi-mini-word-processor   (make-image "mini/word-processor.xpm"))
(define wmi-norm-word-processor   (make-image "norm/word-processor.xpm"))
(define wmi-menu-www              (make-image "menu/www.xpm"))
(define wmi-mini-www              (make-image "mini/www.xpm"))
(define wmi-norm-www              (make-image "norm/www.xpm"))
(define wmi-menu-xv               (make-image "menu/xv.xpm"))
(define wmi-mini-xv               (make-image "mini/xv.xpm"))
(define wmi-norm-xv               (make-image "norm/xv.xpm"))


;;;
;  Change Icon Set submenu
;;;

;;
;; This defines the submenu for changing icon set online.
;; wm-icons-config must be in your path or put full path in #:action below.
;;

(define menu-icon-sets (menu (list
	(menuitem "Change Icon Set" #:image-left wmi-menu-themes)
	menu-title menu-separator
	(menuitem "menu	14x14-general"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 14x14-general")
	(menuitem "menu	16x16-aquafusion"   #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 16x16-aquafusion")
	(menuitem "menu	16x16-crystalclear" #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 16x16-crystalclear")
	(menuitem "menu	16x16-general"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 16x16-general")
	(menuitem "menu	16x16-gnome"        #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 16x16-gnome")
	(menuitem "menu	16x16-kde"          #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 16x16-kde")
	(menuitem "menu	17x14-3dpixmaps"    #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 17x14-3dpixmaps")
	(menuitem "menu	20x20-martys"       #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 20x20-martys")
	(menuitem "menu	20x20-martys2"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 20x20-martys2")
	(menuitem "menu	21x18-3dpixmaps"    #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 21x18-3dpixmaps")
	(menuitem "menu	22x22-aquafusion"   #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 22x22-aquafusion")
	(menuitem "menu	22x22-gartoon"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 22x22-gartoon")
	(menuitem "menu	24x24-infox"        #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f menu 24x24-infox")
	menu-separator
	(menuitem "mini	14x14-general"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 14x14-general")
	(menuitem "mini	16x16-aquafusion"   #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 16x16-aquafusion")
	(menuitem "mini	16x16-crystalclear" #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 16x16-crystalclear")
	(menuitem "mini	16x16-general"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 16x16-general")
	(menuitem "mini	16x16-gnome"        #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 16x16-gnome")
	(menuitem "mini	16x16-kde"          #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 16x16-kde")
	(menuitem "mini	17x14-3dpixmaps"    #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 17x14-3dpixmaps")
	(menuitem "mini	20x20-martys"       #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 20x20-martys")
	(menuitem "mini	20x20-martys2"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 20x20-martys2")
	(menuitem "mini	21x18-3dpixmaps"    #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 21x18-3dpixmaps")
	(menuitem "mini	22x22-aquafusion"   #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 22x22-aquafusion")
	(menuitem "mini	22x22-gartoon"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 22x22-gartoon")
	(menuitem "mini	24x24-infox"        #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f mini 24x24-infox")
	menu-separator
	(menuitem "norm	32x32-aquafusion"   #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 32x32-aquafusion")
	(menuitem "norm	32x32-gant"         #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 32x32-gant")
	(menuitem "norm	32x32-kde"          #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 32x32-kde")
	(menuitem "norm	32x32-kde2"         #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 32x32-kde2")
	(menuitem "norm	44x52-penguins"     #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 44x52-penguins")
	(menuitem "norm	48x48-aquafusion"   #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 48x48-aquafusion")
	(menuitem "norm	48x48-crystalclear" #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 48x48-crystalclear")
	(menuitem "norm	48x48-gartoon"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 48x48-gartoon")
	(menuitem "norm	48x48-general"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 48x48-general")
	(menuitem "norm	48x48-gnome"        #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 48x48-gnome")
	(menuitem "norm	48x48-infox"        #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 48x48-infox")
	(menuitem "norm	48x48-kde2"         #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 48x48-kde2")
	(menuitem "norm	56x46-3dpixmaps"    #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 56x46-3dpixmaps")
	(menuitem "norm	56x56-martys"       #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 56x56-martys")
	(menuitem "norm	56x56-martys2"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 56x56-martys2")
	(menuitem "norm	64x64-aquafusion"   #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 64x64-aquafusion")
	(menuitem "norm	64x64-gant"         #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f norm 64x64-gant")
	menu-separator
	(menuitem "16x16	16x16-aquafusion"   #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f 16x16 16x16-aquafusion")
	(menuitem "16x16	16x16-crystalclear" #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f 16x16 16x16-crystalclear")
	(menuitem "16x16	16x16-general"      #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f 16x16 16x16-general")
	(menuitem "16x16	16x16-gnome"        #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f 16x16 16x16-gnome")
	(menuitem "16x16	16x16-kde"          #:image-left wmi-menu-item #:action "wm-icons-config -q -p -f 16x16 16x16-kde")
	menu-separator
	(menuitem "Restart	to activate" #:image-left wmi-menu-restart #:action (lambda () (restart "scwm")))
)))

;; You can comment the following out or in.
(bind-mouse 'root "C-M-S-3" (lambda () (popup-menu menu-icon-sets)))
;! How can we dynamically add submenu in scwm?
;!AddToMenu "menu-root-start" "&Icon Set%menu/themes.xpm" Popup Icon-Sets
;!AddToMenu "menu-modules" "&Icon Set%menu/themes.xpm" Popup Icon-Sets

;;;
;  Window operations
;;;

;;
;; This defines the most common window operations.
;; It seems that window-ops-menu is most common name for this menu.
;;
;(define menu-window-ops (menu (list
(define window-ops-menu (menu (list
	(menuitem "Window Operations" #:image-left wmi-menu-window)
	menu-title menu-separator
	(menuitem "&Move"     #:image-left wmi-menu-window-move     #:action interactive-move)
	(menuitem "&Resize"   #:image-left wmi-menu-window-resize   #:action interactive-resize)
	(menuitem "&Iconify"  #:image-left wmi-menu-window-iconify  #:action toggle-iconify)
	(menuitem "Ma&ximize" #:image-left wmi-menu-window-maximize #:action toggle-maximize)
;	(menuitem "&Tall"     #:image-left wmi-menu-window-maximize #:action toggle-max-vert)
;	(menuitem "&Wide"     #:image-left wmi-menu-window-maximize #:action toggle-max-horz)
	(menuitem "S&hade"    #:image-left wmi-menu-window-shade    #:action toggle-window-shade)
	(menuitem "&Sticky"   #:image-left wmi-menu-window-stick    #:action toggle-stick)
	(menuitem "R&aise"    #:image-left wmi-menu-window-raise    #:action raise-window)
	(menuitem "&Lower"    #:image-left wmi-menu-window-lower    #:action lower-window)
	menu-separator
	(menuitem "In&fo"     #:image-left wmi-menu-window-identify #:action window-info)
	(menuitem "&On-top"   #:image-left wmi-menu-window-raise    #:action toggle-on-top)
	(menuitem "&Print"    #:image-left wmi-menu-printing        #:action print-window)
	menu-separator
	(menuitem "&Close"    #:image-left wmi-menu-window-close    #:action close-window)
	(menuitem "&Delete"   #:image-left wmi-menu-window-delete   #:action delete-window)
	(menuitem "&Destroy"  #:image-left wmi-menu-window-destroy  #:action destroy-window)
	menu-separator
	(menuitem "Switch to..." #:image-left wmi-menu-windows      #:action (lambda () (show-window-list-menu #:show-geometry #t)))
	(menuitem "Re&fresh"  #:image-left wmi-menu-refresh         #:action refresh)
	(menuitem "&Icon Set" #:image-left wmi-menu-themes          #:action menu-icon-sets)
)))

;; You can comment the following in if not bound yet.
;(bind-mouse 'root 3 (lambda () (popup-menu window-ops-menu)))


;;;
;  Quit submenu
;;;

;;
;; This defines (overrides) quit menu.
;;
(define menu-quit-verify (menu (list
	(menuitem "Really quit scwm?" #:image-left wmi-menu-quit)
	menu-title menu-separator
	(menuitem "Restart"       #:image-left wmi-menu-restart #:action (lambda () (restart "scwm")))
	(menuitem "Refresh"       #:image-left wmi-menu-refresh #:action (lambda () (refresh)))
	menu-separator
	(menuitem "Restart dummy" #:image-left wmi-menu-terminal   #:action (lambda () (restart "xterm")))
	menu-separator
	(menuitem "Yes"           #:image-left wmi-menu-choice-yes #:action quit)
	(menuitem "No"            #:image-left wmi-menu-choice-no  #:action #f)
	menu-separator
)))

;; You can comment the following out or in.
(bind-mouse 'root "C-M-3" (lambda () (popup-menu menu-quit-verify)))


;;;
;  Known applications
;;;

;; Setting window style icons; style is defined by window name/resource/class.
;; Note, todo can be replaced by unknown or empty, but since it is beta yet,
;; todo is a notice to do something about an icon for this application.

(window-style "*"                      #:icon wmi-norm-unknown #:mini-icon wmi-mini-unknown)
(window-style "NoResource"             #:icon wmi-norm-unknown #:mini-icon wmi-mini-unknown)

;; Terminals
(window-style "Eterm*"                 #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "rxvt"                   #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "XTerm"                  #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "rxterm"                 #:icon wmi-norm-terminal-remote #:mini-icon wmi-mini-terminal-remote)

;; These are not all mine, most of globs must be removed.
(window-style "DDD*"                   #:icon wmi-norm-development #:mini-icon wmi-mini-development)
(window-style "GRASP*"                 #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "HyTeX*"                 #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "ImageMagic*"            #:icon wmi-norm-image-processor #:mini-icon wmi-mini-image-processor)
(window-style "KDisk*"                 #:icon wmi-norm-disk #:mini-icon wmi-mini-disk)
(window-style "LyX"                    #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "MathSpad*"              #:icon wmi-norm-science #:mini-icon wmi-mini-science)
(window-style "MuPAD*"                 #:icon wmi-norm-science #:mini-icon wmi-mini-science)
(window-style "StarOffice*"            #:icon wmi-norm-word-processor #:mini-icon wmi-mini-word-processor)
(window-style "SystemInfo*"            #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "Tk man"                 #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "Visual Tcl"             #:icon wmi-norm-todo #:mini-icon wmi-mini-todo)

(window-style "AcroRead"               #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "adsl-config"            #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "amaya*"                 #:icon wmi-norm-www #:mini-icon wmi-mini-www)
(window-style "Appointment"            #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "asWedit*"               #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "bitmap*"                #:icon wmi-norm-image-processor #:mini-icon wmi-mini-image-processor)
(window-style "?calc"                  #:icon wmi-norm-calculator #:mini-icon wmi-mini-calculator)
(window-style "?clock"                 #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "cooledit"               #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "control*"               #:icon wmi-norm-home #:mini-icon wmi-mini-home)
(window-style "Dayview"                #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "Dialogue"               #:icon wmi-norm-www #:mini-icon wmi-mini-www)
(window-style "Display"                #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "dosemu*"                #:icon wmi-norm-todo #:mini-icon wmi-mini-todo)
(window-style "emacs"                  #:icon wmi-norm-gnu #:mini-icon wmi-mini-gnu)
(window-style "Explorer"               #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "Fractine"               #:icon wmi-norm-science #:mini-icon wmi-mini-science)
(window-style "fr"                     #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "freeamp"                #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "FreeAmp*"               #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "File Viewer*"           #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "Fvwm*"                  #:icon wmi-norm-utility #:mini-icon wmi-mini-utility)
(window-style "ghostview"              #:icon wmi-norm-ghostview #:mini-icon wmi-mini-ghostview)
(window-style "ghostscript"            #:icon wmi-norm-ghostview #:mini-icon wmi-mini-ghostview)
(window-style "gifview"                #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "gkrellm"                #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
(window-style "GNUplot"                #:icon wmi-norm-science #:mini-icon wmi-mini-science)
(window-style "GV"                     #:icon wmi-norm-ghostview #:mini-icon wmi-mini-ghostview)
(window-style "Help_popup"             #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "Image Viewer*"          #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "isdn-config"            #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "ixset"                  #:icon wmi-norm-todo #:mini-icon wmi-mini-todo)
(window-style "licq-bin"               #:icon wmi-norm-chat #:mini-icon wmi-mini-chat)
(window-style "Lynx"                   #:icon wmi-norm-www #:mini-icon wmi-mini-www)
(window-style "Manual Page*"           #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "matlab"                 #:icon wmi-norm-science #:mini-icon wmi-mini-science)
;; too general
(window-style "Midnight-Commander"     #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "mgv*"                   #:icon wmi-norm-ghostview #:mini-icon wmi-mini-ghostview)
(window-style "moxfm*"                 #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "mldonkey*"              #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "mtools*"                #:icon wmi-norm-disk #:mini-icon wmi-mini-disk)
(window-style "mxaudio"                #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "NEdit*"                 #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "nedit*"                 #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "Netscape"               #:icon wmi-norm-netscape #:mini-icon wmi-mini-netscape)
(window-style "Mozilla-bin"            #:icon wmi-norm-netscape #:mini-icon wmi-mini-netscape)
(window-style "Download"               #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "Mail"                   #:icon wmi-norm-mail #:mini-icon wmi-mini-mail)
(window-style "Composition"            #:icon wmi-norm-mail #:mini-icon wmi-mini-mail)
(window-style "NcFtp"                  #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "nscal*"                 #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "News"                   #:icon wmi-norm-news #:mini-icon wmi-mini-news)
(window-style "opera"                  #:icon wmi-norm-www #:mini-icon wmi-mini-www)
(window-style "panel"                  #:icon wmi-norm-home #:mini-icon wmi-mini-home)
(window-style "pine"                   #:icon wmi-norm-mail #:mini-icon wmi-mini-mail)
(window-style "pixmap*"                #:icon wmi-norm-image-processor #:mini-icon wmi-mini-image-processor)
(window-style "qps*"                   #:icon wmi-norm-mail #:mini-icon wmi-mini-mail)
(window-style "sxpm"                   #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "Tail File*"             #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "textedit"               #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "thot*"                  #:icon wmi-norm-www #:mini-icon wmi-mini-www)
(window-style "THX-1138"               #:icon wmi-norm-calculator #:mini-icon wmi-mini-calculator)
(window-style "timidity"               #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "Top"                    #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
(window-style "usernet"                #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "VIM"                    #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "VI"                     #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "vppp*"                  #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "conx"                   #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "vmware"                 #:icon wmi-norm-utility #:mini-icon wmi-mini-utility)
(window-style "wmCalClock"             #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "workman"                #:icon wmi-norm-cd-player #:mini-icon wmi-mini-cd-player)
(window-style "X11Amp"                 #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "X3270xad"               #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "xanim"                  #:icon wmi-norm-multimedia #:mini-icon wmi-mini-multimedia)
(window-style "xapm"                   #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
(window-style "xbiff"                  #:icon wmi-norm-mail #:mini-icon wmi-mini-mail)
(window-style "xbm*"                   #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "XbmBrowser"             #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "xclipboard"             #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "xcolorsel"              #:icon wmi-norm-colors #:mini-icon wmi-mini-colors)
(window-style "xconsole"               #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "xdaliclock"             #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "xdiskinfo*"             #:icon wmi-norm-disk #:mini-icon wmi-mini-disk)
(window-style "xditview"               #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "XDos*"                  #:icon wmi-norm-todo #:mini-icon wmi-mini-todo)
(window-style "xedit"                  #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "xephem*"                #:icon wmi-norm-science #:mini-icon wmi-mini-science)
(window-style "xfig*"                  #:icon wmi-norm-image-processor #:mini-icon wmi-mini-image-processor)
(window-style "xfontsel"               #:icon wmi-norm-font #:mini-icon wmi-mini-font)
(window-style "xgraph"                 #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "xkey*"                  #:icon wmi-norm-keyboard #:mini-icon wmi-mini-keyboard)
(window-style "xli"                    #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "xload"                  #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
;; -- [ xman resources --
(window-style "Xman"                   #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "topBox"                 #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "manualBrowser"          #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "help"                   #:icon wmi-norm-information #:mini-icon wmi-mini-information)
;; -- xman resources ] --
(window-style "xmag"                   #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "Xmessage"               #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "xosview"                #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
;; -- [ xpaint resources --
(window-style "XPaint"                 #:icon wmi-norm-image-processor #:mini-icon wmi-mini-image-processor)
(window-style "Canvas"                 #:icon wmi-norm-todo #:mini-icon wmi-mini-todo)
(window-style "fatbits"                #:icon wmi-norm-todo #:mini-icon wmi-mini-todo)
(window-style "filebrowser"            #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
;; -- xpaint resources ] --
(window-style "xmh"                    #:icon wmi-norm-mail #:mini-icon wmi-mini-mail)
(window-style "xmixer"                 #:icon wmi-norm-sound #:mini-icon wmi-mini-sound)
(window-style "xmms"                   #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "xpdf"                   #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "xplaycd"                #:icon wmi-norm-cd-player #:mini-icon wmi-mini-cd-player)
(window-style "xscreensaver"           #:icon wmi-norm-lock #:mini-icon wmi-mini-lock)
(window-style "xsysinfo*"              #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "xtar*"                  #:icon wmi-norm-file #:mini-icon wmi-mini-file)
(window-style "XTel"                   #:icon wmi-norm-terminal-special #:mini-icon wmi-mini-terminal-special)
(window-style "XTide"                  #:icon wmi-norm-science #:mini-icon wmi-mini-science)
(window-style "xv"                     #:icon wmi-norm-xv #:mini-icon wmi-mini-xv)
(window-style "xvgr"                   #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "xvmount"                #:icon wmi-norm-disk #:mini-icon wmi-mini-disk)
(window-style "xwp"                    #:icon wmi-norm-word-processor #:mini-icon wmi-mini-word-processor)
(window-style "xwpe"                   #:icon wmi-norm-development #:mini-icon wmi-mini-development)
(window-style "xxgdb"                  #:icon wmi-norm-development #:mini-icon wmi-mini-development)

;; Open File dialog
(window-style "Browse * Select a File" #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "File Directory"         #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "fileSelector*"          #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "fileSelection_popup"    #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "Open document"          #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "Save as"                #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "Select a file to open"  #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "Select a file to load"  #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "selFile"                #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "Open File..."           #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "xgetfile"               #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)

;; Too general
(window-style "*_applet"               #:icon wmi-norm-utility #:mini-icon wmi-mini-utility)
(window-style "help*"                  #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "*icq"                   #:icon wmi-norm-chat #:mini-icon wmi-mini-chat)
(window-style "*irc"                   #:icon wmi-norm-chat #:mini-icon wmi-mini-chat)
(window-style "*info"                  #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "info*"                  #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "Information"            #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "_o_*"                   #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "About"                  #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "about_popup"            #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "about"                  #:icon wmi-norm-information #:mini-icon wmi-mini-information)

;; FVWM / FVWM Themes
(window-style "Fvwm*"                  #:icon wmi-norm-utility #:mini-icon wmi-mini-utility)
(window-style "FvwmConsole"            #:icon wmi-norm-terminal-special #:mini-icon wmi-mini-terminal-special)
(window-style "FVWM Themes*"           #:icon wmi-norm-themes #:mini-icon wmi-mini-themes)
(window-style "FVWM Themes Global Feel" #:icon wmi-norm-configuration #:mini-icon wmi-mini-configuration)
(window-style "FVWM Themes Doc*"       #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "FVWM Themes Menu*"      #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "Color Selector"         #:icon wmi-norm-colors #:mini-icon wmi-mini-colors)
(window-style "Font Selector"          #:icon wmi-norm-font #:mini-icon wmi-mini-font)
(window-style "Icon Browser"           #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "Image Browser"          #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "FvwmForm-ThemeSettings" #:icon wmi-norm-configuration #:mini-icon wmi-mini-configuration)
(window-style "FvwmForm-Restart"       #:icon wmi-norm-restart #:mini-icon wmi-mini-restart)
(window-style "FormFvwmAnimate"        #:icon wmi-norm-window-iconify #:mini-icon wmi-mini-window-iconify)
(window-style "FvwmForm-Form"          #:icon wmi-norm-configuration #:mini-icon wmi-mini-configuration)
(window-style "FvwmForm-RootCursor"    #:icon wmi-norm-display #:mini-icon wmi-mini-display)
(window-style "FvwmScript-BellSetup"   #:icon wmi-norm-sound #:mini-icon wmi-mini-sound)
(window-style "FvwmScript-Keyboard"    #:icon wmi-norm-keyboard #:mini-icon wmi-mini-keyboard)
(window-style "FvwmScript-ScreenSetup" #:icon wmi-norm-display #:mini-icon wmi-mini-display)
(window-style "FvwmScript-PointerSetup" #:icon wmi-norm-mouse #:mini-icon wmi-mini-mouse)

;; GNOME/Gtk Apps
(window-style "AbiWord*"               #:icon wmi-norm-word-processor #:mini-icon wmi-mini-word-processor)
(window-style "bug-buddy"              #:icon wmi-norm-development #:mini-icon wmi-mini-development)
(window-style "Dia"                    #:icon wmi-norm-science #:mini-icon wmi-mini-science)
(window-style "eog"                    #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "Galeon-bin"             #:icon wmi-norm-www #:mini-icon wmi-mini-www)
(window-style "galeon*"                #:icon wmi-norm-www #:mini-icon wmi-mini-www)
(window-style "gcharmap"               #:icon wmi-norm-keyboard #:mini-icon wmi-mini-keyboard)
(window-style "gcolorsel"              #:icon wmi-norm-colors #:mini-icon wmi-mini-colors)
(window-style "gdict"                  #:icon wmi-norm-utility #:mini-icon wmi-mini-utility)
(window-style "gdiskfree"              #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
(window-style "gEdit"                  #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "gedit"                  #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "gfontsel"               #:icon wmi-norm-font #:mini-icon wmi-mini-font)
(window-style "gfloppy"                #:icon wmi-norm-disk-floppy #:mini-icon wmi-mini-disk-floppy)
(window-style "ghex"                   #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "ghostview"              #:icon wmi-norm-ghostview #:mini-icon wmi-mini-ghostview)
(window-style "Gimp"                   #:icon wmi-norm-gimp #:mini-icon wmi-mini-gimp)
(window-style "gless"                  #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "gmix"                   #:icon wmi-norm-sound #:mini-icon wmi-mini-sound)
(window-style "gmailman"               #:icon wmi-norm-mail #:mini-icon wmi-mini-mail)
(window-style "gmc"                    #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "gmenu"                  #:icon wmi-norm-configuration #:mini-icon wmi-mini-configuration)
(window-style "gnome-help-browser"     #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "GnomeHelpBrowser"       #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "gnome-hint"             #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "gnome-ppp"              #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "gnome-run"              #:icon wmi-norm-utility #:mini-icon wmi-mini-utility)
(window-style "gnome-sync"             #:icon wmi-norm-folder #:mini-icon wmi-mini-folder)
(window-style "Gnome-linuxconf"        #:icon wmi-norm-configuration #:mini-icon wmi-mini-configuration)
(window-style "gnomecal"               #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "GnomeCard"              #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "gnomecard"              #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "gnomecc"                #:icon wmi-norm-home #:mini-icon wmi-mini-home)
(window-style "GnomeTerminal"          #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "gnumeric"               #:icon wmi-norm-calculator #:mini-icon wmi-mini-calculator)
(window-style "gnp"                    #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "gnp+"                   #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "GQview"                 #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "GQmpeg"                 #:icon wmi-norm-video #:mini-icon wmi-mini-video)
(window-style "grecord"                #:icon wmi-norm-sound #:mini-icon wmi-mini-sound)
(window-style "grip"                   #:icon wmi-norm-cd-player #:mini-icon wmi-mini-cd-player)
(window-style "gsearchtool"            #:icon wmi-norm-file #:mini-icon wmi-mini-file)
(window-style "gtalk"                  #:icon wmi-norm-chat #:mini-icon wmi-mini-chat)
(window-style "gtcd"                   #:icon wmi-norm-cd-player #:mini-icon wmi-mini-cd-player)
(window-style "gtk-gnutella"           #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "gtk-shell"              #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "gtkicq"                 #:icon wmi-norm-chat #:mini-icon wmi-mini-chat)
(window-style "gtop"                   #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
(window-style "gtt"                    #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "guname"                 #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "gw"                     #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
(window-style "gxedit"                 #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "helix-update"           #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "idetool"                #:icon wmi-norm-disk #:mini-icon wmi-mini-disk)
(window-style "logview"                #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "MPlayer"                #:icon wmi-norm-video #:mini-icon wmi-mini-video)
(window-style "nautilus"               #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "pan"                    #:icon wmi-norm-news #:mini-icon wmi-mini-news)
(window-style "vumeter"                #:icon wmi-norm-sound #:mini-icon wmi-mini-sound)
(window-style "X-Chat"                 #:icon wmi-norm-chat #:mini-icon wmi-mini-chat)

;; XFCE Apps
(window-style "xfclock"                #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "xftree"                 #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)

;; KDE Apps
;; -- [ Abbrowser --
(window-style "kcontrol"               #:icon wmi-norm-kde #:mini-icon wmi-mini-kde)
(window-style "abbrowser"              #:icon wmi-norm-information #:mini-icon wmi-mini-information)
;; -- Abbrowser ] --
(window-style "aktion"                 #:icon wmi-norm-video #:mini-icon wmi-mini-video)
(window-style "ark"                    #:icon wmi-norm-file #:mini-icon wmi-mini-file)
;; -- [ kviewshell --
(window-style "kviewshell"             #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "DVI Viewer"             #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "Fax Viewer"             #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
;; -- kviewshell ] --
(window-style "kab"                    #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "kaiman"                 #:icon wmi-norm-sound #:mini-icon wmi-mini-sound)
(window-style "karm"                   #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "kcharselect"            #:icon wmi-norm-keyboard #:mini-icon wmi-mini-keyboard)
(window-style "kchart"                 #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "kcron"                  #:icon wmi-norm-system #:mini-icon wmi-mini-system)
(window-style "kdehelp"                #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "kdepasswd"              #:icon wmi-norm-terminal-special #:mini-icon wmi-mini-terminal-special)
(window-style "kdevelop"               #:icon wmi-norm-development #:mini-icon wmi-mini-development)
(window-style "kdesu"                  #:icon wmi-norm-terminal-special #:mini-icon wmi-mini-terminal-special)
(window-style "kdf"                    #:icon wmi-norm-disk #:mini-icon wmi-mini-disk)
(window-style "kdvi"                   #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "kedit"                  #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "keystone"               #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "kfind"                  #:icon wmi-norm-file #:mini-icon wmi-mini-file)
(window-style "kfloppy"                #:icon wmi-norm-disk-floppy #:mini-icon wmi-mini-disk-floppy)
(window-style "kfm"                    #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "kfract"                 #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "khexedit"               #:icon wmi-norm-file #:mini-icon wmi-mini-file)
(window-style "kiconedit"              #:icon wmi-norm-image-processor #:mini-icon wmi-mini-image-processor)
(window-style "kit"                    #:icon wmi-norm-chat #:mini-icon wmi-mini-chat)
(window-style "killustrator"           #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "kjots"                  #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "klpq"                   #:icon wmi-norm-printing #:mini-icon wmi-mini-printing)
(window-style "kljettool"              #:icon wmi-norm-printing #:mini-icon wmi-mini-printing)
(window-style "knode"                  #:icon wmi-norm-news #:mini-icon wmi-mini-news)
(window-style "knews"                  #:icon wmi-norm-news #:mini-icon wmi-mini-news)
(window-style "kmail*"                 #:icon wmi-norm-mail #:mini-icon wmi-mini-mail)
(window-style "kmidi"                  #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "kmid"                   #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "kmix"                   #:icon wmi-norm-sound #:mini-icon wmi-mini-sound)
(window-style "artsbuilder"            #:icon wmi-norm-music #:mini-icon wmi-mini-music)
(window-style "artscontrol"            #:icon wmi-norm-sound #:mini-icon wmi-mini-sound)
(window-style "kmoon"                  #:icon wmi-norm-science #:mini-icon wmi-mini-science)
(window-style "kodo"                   #:icon wmi-norm-mouse #:mini-icon wmi-mini-mouse)
(window-style "kpackage"               #:icon wmi-norm-programs #:mini-icon wmi-mini-programs)
(window-style "kppp"                   #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "kppplogview"            #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "kghostview"             #:icon wmi-norm-viewer #:mini-icon wmi-mini-viewer)
(window-style "konqueror"              #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "korganizer"             #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "konsole"                #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "koshell"                #:icon wmi-norm-home #:mini-icon wmi-mini-home)
(window-style "kpixmap2bitmap"         #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "kpm"                    #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
(window-style "kpresenter"             #:icon wmi-norm-word-processor #:mini-icon wmi-mini-word-processor)
(window-style "krule"                  #:icon wmi-norm-utility #:mini-icon wmi-mini-utility)
(window-style "kscd"                   #:icon wmi-norm-cd-player #:mini-icon wmi-mini-cd-player)
(window-style "ksnapshot"              #:icon wmi-norm-window #:mini-icon wmi-mini-window)
(window-style "kspread"                #:icon wmi-norm-calculator #:mini-icon wmi-mini-calculator)
(window-style "ksysguard"              #:icon wmi-norm-monitoring #:mini-icon wmi-mini-monitoring)
(window-style "ksysv"                  #:icon wmi-norm-system #:mini-icon wmi-mini-system)
(window-style "kteatime"               #:icon wmi-norm-amusement #:mini-icon wmi-mini-amusement)
(window-style "ktip"                   #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "kuser"                  #:icon wmi-norm-system #:mini-icon wmi-mini-system)
(window-style "kview"                  #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)
(window-style "kvt"                    #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "kwikdisk"               #:icon wmi-norm-disk #:mini-icon wmi-mini-disk)
(window-style "kword"                  #:icon wmi-norm-word-processor #:mini-icon wmi-mini-word-processor)
(window-style "kworldwatch"            #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "kwrite"                 #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "kwuftpd"                #:icon wmi-norm-network #:mini-icon wmi-mini-network)
(window-style "noatun"                 #:icon wmi-norm-multimedia #:mini-icon wmi-mini-multimedia)
(window-style "pixie"                  #:icon wmi-norm-image-viewer #:mini-icon wmi-mini-image-viewer)

;; CDE Apps
(window-style "Dterm"                  #:icon wmi-norm-terminal #:mini-icon wmi-mini-terminal)
(window-style "Dtfile"                 #:icon wmi-norm-file-manager #:mini-icon wmi-mini-file-manager)
(window-style "Dtpad"                  #:icon wmi-norm-editor #:mini-icon wmi-mini-editor)
(window-style "Dthelp*"                #:icon wmi-norm-help #:mini-icon wmi-mini-help)
(window-style "Dtcm*"                  #:icon wmi-norm-clock #:mini-icon wmi-mini-clock)
(window-style "Dtcalc"                 #:icon wmi-norm-calculator #:mini-icon wmi-mini-calculator)
(window-style "Dticon*"                #:icon wmi-norm-image-processor #:mini-icon wmi-mini-image-processor)
(window-style "Dtprint*"               #:icon wmi-norm-printing #:mini-icon wmi-mini-printing)
(window-style "Dtstyle*"               #:icon wmi-norm-configuration #:mini-icon wmi-mini-configuration)
(window-style "Applications Manager"   #:icon wmi-norm-programs #:mini-icon wmi-mini-programs)
(window-style "Trash Can"              #:icon wmi-norm-file #:mini-icon wmi-mini-file)

;; Games
(window-style "SDL_App"                #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "*angband"               #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "gcfclient"              #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "Heroes ?.*"             #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "Maelstrom"              #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "MirrorMagic"            #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "PowerManga*"            #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "PySol"                  #:icon wmi-norm-game-cards #:mini-icon wmi-mini-game-cards)
(window-style "Rocks'n'Diamonds"       #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "XGammon"                #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "XGammon-Buttons"        #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "xgoban"                 #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "comment"                #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "xmahjongg"              #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "*tetris"                #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "xtrojka"                #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "xemeraldia"             #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "XGalaga"                #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "xeyes"                  #:icon wmi-norm-amusement #:mini-icon wmi-mini-amusement)

;; 11 xpuzzles
(window-style "xcubes"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xdino"                  #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xhexagons"              #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xmball"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xmlink"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xoct"                   #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xpanex"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xpyraminx"              #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xrubik"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xskewb"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xtriangles"             #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)

(window-style "High score*"            #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "Statistics"             #:icon wmi-norm-information #:mini-icon wmi-mini-information)
(window-style "xboard"                 #:icon wmi-norm-game-board #:mini-icon wmi-mini-game-board)
(window-style "xevil"                  #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "xsok*"                  #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "xbomb"                  #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "*Scavenger"             #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "Freeciv*"               #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "XPat"                   #:icon wmi-norm-game-cards #:mini-icon wmi-mini-game-cards)
(window-style "dontspace"              #:icon wmi-norm-game-cards #:mini-icon wmi-mini-game-cards)
(window-style "klondike"               #:icon wmi-norm-game-cards #:mini-icon wmi-mini-game-cards)
(window-style "spider"                 #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "X-Mame*"                #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "xlin-city*"             #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "xchomp"                 #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)

;; GNOME Games
(window-style "freecell"               #:icon wmi-norm-game-cards #:mini-icon wmi-mini-game-cards)
(window-style "gataxx"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "glines"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "gnibbles"               #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "gnobots"                #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "gnobots2"               #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "gnome-chess"            #:icon wmi-norm-game-board #:mini-icon wmi-mini-game-board)
(window-style "gnome-stones"           #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "gnome-xbill"            #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "gnomine"                #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "gnotski"                #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "gtali"                  #:icon wmi-norm-game-board #:mini-icon wmi-mini-game-board)
(window-style "gnotravex"              #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "gturing"                #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "iagno"                  #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "mahjongg"               #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "same-gnome"             #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "sol"                    #:icon wmi-norm-game-cards #:mini-icon wmi-mini-game-cards)

(window-style "gtkballs"               #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "gfpoken"                #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)

;; KDE Games  # these ones have own 16x16 & 32x32 xpm's included with kdebase
(window-style "Jezzball"               #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "lskat"                  #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "kabalone"               #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "kasteroids"             #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "katomic"                #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "kbackgammon"            #:icon wmi-norm-game-board #:mini-icon wmi-mini-game-board)
(window-style "kblackbox"              #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "kfouleggs"              #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "kjumpingcube"           #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "kmahjongg"              #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "kmines"                 #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "konquest"               #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "kpat"                   #:icon wmi-norm-game-cards #:mini-icon wmi-mini-game-cards)
(window-style "kpoker"                 #:icon wmi-norm-game-cards #:mini-icon wmi-mini-game-cards)
(window-style "kreversi"               #:icon wmi-norm-game-board #:mini-icon wmi-mini-game-board)
(window-style "ksame"                  #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "kshisen"                #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "ksirtet"                #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "ksmiletris"             #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "ksnake"                 #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "ksokoban"               #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)
(window-style "kspaceduel"             #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "ktron"                  #:icon wmi-norm-game-action #:mini-icon wmi-mini-game-action)
(window-style "ktetris"                #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "ktuberling"             #:icon wmi-norm-game #:mini-icon wmi-mini-game)
(window-style "kwin4"                  #:icon wmi-norm-game-logic #:mini-icon wmi-mini-game-logic)