#-----------------------------------------------------------------------------
# General fonts

DestroyFunc FuncFvwmSetFont-WindowTitle
AddToFunc   FuncFvwmSetFont-WindowTitle
+ I Style "$0" Font "-misc-gothic-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*"

DestroyFunc FuncFvwmSetFont-IconTitle
AddToFunc   FuncFvwmSetFont-IconTitle
+ I Style "$0" IconFont "-misc-fixed-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*"

DestroyFunc FuncFvwmSetFont-Menu
AddToFunc   FuncFvwmSetFont-Menu
+ I MenuStyle "$0" Font "-misc-marumoji-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*"


# for FvwmIdent (called in colors ... maybe not a very good thing) 
DestroyFunc FuncFvwmSetFont-FvwmIdent
AddToFunc   FuncFvwmSetFont-FvwmIdent
+ I *FvwmIdent: Font -misc-marumoji-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*

#-----------------------------------------------------------------------------
# Modules Theme fonts

# default font for IconBox, IconMan, TaskBar and WinList
DestroyFunc FuncFvwmSetFont-ModuleWindowList
AddToFunc   FuncFvwmSetFont-ModuleWindowList
+ I *$0: $1 "-misc-marumoji-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*"

# selected font (TaskBar)
DestroyFunc FuncFvwmSetFont-ModuleSelectedWindowList
AddToFunc   FuncFvwmSetFont-ModuleSelectedWindowList
+ I *$0: $1 "-misc-marumoji-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*"

# if one want small font for a Window List module (e.g., luthien IconMan)
DestroyFunc FuncFvwmSetFont-ModuleSmallWindowList
AddToFunc   FuncFvwmSetFont-ModuleSmallWindowList
+ I *$0: $1 "-misc-marumoji-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*"

# small font (Pager mini window font)
DestroyFunc FuncFvwmSetFont-ModuleSmall
AddToFunc   FuncFvwmSetFont-ModuleSmall
+ I *$0: $1 "-misc-marumoji-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*"

# tips font (for TaskBar, Pager)
DestroyFunc FuncFvwmSetFont-ModuleTips
AddToFunc   FuncFvwmSetFont-ModuleTips
+ I *$0: $1 "-misc-marumoji-medium-r-*-*-14-*-*-*-*-*-jisx0208*-*"

# normal "Label" font for Pager and Buttons
DestroyFunc FuncFvwmSetFont-ModuleLabel
AddToFunc   FuncFvwmSetFont-ModuleLabel
+ I *$0: $1 "$2"

# small "Label" for Buttons
DestroyFunc FuncFvwmSetFont-ModuleSmallLabel
AddToFunc   FuncFvwmSetFont-ModuleSmallLabel
+ I *$0: $1 "$2"

# large "Label" font for Buttons
DestroyFunc FuncFvwmSetFont-ModuleLargeLabel
AddToFunc   FuncFvwmSetFont-ModuleLargeLabel
+ I *$0: $1 "$2"
