# metisse config revision 5
#
# Do not edit! this file will be replaced when you upgrade!
#

#------------------------------------------------------------------------------
# start FvwmAmetista

BugOpts MetisseWorkaround On

Echo "Starting FvwmAmetista $[FVWMAMETISTA_ARGS]"
ModuleSynchronous FvwmAmetista $[FVWMAMETISTA_ARGS]

#------------------------------------------------------------------------------
# add our images path and cursor

ImagePath $[FVWM_USERDIR]/images/:$[METISSE_FVWM_CONFIG_DIR]/images:+

# the X cross is ugly
CursorStyle ROOT left_ptr

# No good rotate Z stock cursor
CursorStyle ROTATEZ cursors/sb_bltr_double_arrow.xpm

# folding cursor
CursorStyle FOLD_TOP_LEFT 	cursors/fold_tl.xpm
CursorStyle FOLD_TOP		cursors/fold_t.xpm
CursorStyle FOLD_TOP_RIGHT	cursors/fold_tr.xpm
CursorStyle FOLD_RIGHT		cursors/fold_r.xpm
CursorStyle FOLD_BOTTOM_RIGHT	cursors/fold_br.xpm
CursorStyle FOLD_BOTTOM		cursors/fold_b.xpm
CursorStyle FOLD_BOTTOM_LEFT	cursors/fold_bl.xpm
CursorStyle FOLD_LEFT		cursors/fold_l.xpm

# ---------------------------------------------------------------------------
#  some functions used by FvwmAmetista itself

DestroyFunc AFuncRestartModule
AddToFunc   AFuncRestartModule
+ I KillModule $0 $1
+ I Module $*

DestroyFunc AFuncDeiconifyFocusAndRaise
AddToFunc   AFuncDeiconifyFocusAndRaise
+ I Iconify Off
+ I ThisWindow (State 1) AmetistaIconifyOff
+ I Raise
+ I Focus
+ I sma ShowWindow

# should redefine the default "raise" WindowList function
DestroyFunc WindowListFunc
AddToFunc   WindowListFunc
+ I AFuncDeiconifyFocusAndRaise
+ I WarpToWindow 5p 5p

# and the ewmh one:
DestroyFunc EWMHActivateWindowFunc
AddToFunc   EWMHActivateWindowFunc
+ I AFuncDeiconifyFocusAndRaise

#------------------------------------------------------------------------------
# A way to "iconify" 

DestroyFunc AFuncAmetistaIconifyOn
AddToFunc   AFuncAmetistaIconifyOn
+ I PipeRead 'perl $[METISSE_FVWM_CONFIG_DIR]/scripting.pl -iconify'
+ I State 1 True

DestroyFunc AFuncAmetistaIconifyOff
AddToFunc   AFuncAmetistaIconifyOff
+ I PipeRead 'perl $[METISSE_FVWM_CONFIG_DIR]/scripting.pl -deiconify'
+ I State 1 False

DestroyFunc AFuncAmetistaIconify
AddToFunc   AFuncAmetistaIconify
+ I ThisWindow (State 1) AFuncAmetistaIconifyOff
+ I TestRc (NoMatch)  AFuncAmetistaIconifyOn

#------------------------------------------------------------------------------
# read the "user" configuration

read ametistarc

