# FvwmScript Preferences Variable Editor
# A Variables Editor Fvwm-Crystal
# Copyright Dominique Michel <dominique_libre@users.sourceforge.net> 2013
# Released under the GNU GPL license v2 or later

# Usage: Script scripts/PrefVars/PrefVars

# Header ̣{{{1
UseGettext {$FVWM_USERDIR/locale;fvwm-crystal-script:$FVWM_SYSTEMDIR/locale;fvwm-crystal-script:+}
WindowLocaleTitle {FVWM-Crystal Variables Editor}

WindowSize 800 510
#WindowPosition 300 300
Colorset	1
# Dont change it or the text titles will be shorted: 
Font	"xft:$[panel_font]:pixelsize:$[panel_font_size]:style:$[panel_font_style]"

# Initialisation {{{1
Init
Begin
    Set $FDIR = (GetOutput {echo "$FVWM_USERDIR"} 1 -1)
    Set $PDIR = $FDIR {/preferences/}
    # Load BROWSER variables
    ChangeTitle 1 (GetOutput {cat $FVWM_USERDIR/preferences/BROWSER | sed -e 's:SetEnv BROWSER ::' -e 's:"::g'	} 1 -1)
    Set $browser = (GetTitle 1)
    # Load DesktopDirs file
    Set $dfile = $PDIR {DesktopDirs}
    Set $cmd = {cat }$dfile{ | tr '\n' '|'}
    ChangeTitle 2 (GetOutput $cmd 1 -1)
    Set $desktopd = (GetTitle 2)
    # Load IconDirs file
    Set $icfile = $PDIR {IconDirs}
    Set $cmd = {cat }$icfile{ | tr '\n' '|'}
    ChangeTitle 3 (GetOutput $cmd 1 -1)
    Set $iconsd = (GetTitle 3)
    # Load MediaDirectories file
    Set $mfile = $PDIR {MediaDirectories}
    Set $cmd = {cat }$mfile{ | tr '\n' '|'}
    ChangeTitle 4 (GetOutput $cmd 1 -1)
    Set $mediad = (GetTitle 4)
    # Load Startup file
    #Do {AT "FVWM-Crystal Editor" "nano }$PDIR{Startup}
    Do {Exec exec xdg-open }$PDIR{Startup}
End

# Periodic Tasks {{{1
PeriodicTasks
Begin
    # use a timer for flickering {{{2
    If (RemainderOfDiv (GetTime) 1) == 0 Then
    Begin
	# faster if we do nothing here
	Do Nop
    End
End

# Quit Function {{{1
QuitFunc
Begin
  Do Nop
#  Do {Echo The font: }$SetFont{ is xft:}$FontName{:pixelsize=}$Size{:}$Style
End

# Main {{{1
# BROWSER {{{2
Widget 1
Property
    Flags NoReliefString	
    Position 130 5
    Size 480 35
    Type TextField
    Title { }
    #Value 1
Main
Case message of
 SingleClic :
 Begin
    Set $browser = (GetTitle 1)
 End
 1 :
 Begin
    Set $browser = (GetTitle 1)
 End
End

# Browser label
Widget 10
Property
    Flags NoReliefString Center	
    Position 5 5
    Size 120 35
    Type ItemDraw
    LocaleTitle {Browser}
Main
Case message of
 SingleClic :
 Begin
   Do Nop
 End
End

# Save browser
Widget 11
Property
 Flags NoReliefString
 Position 625 5
 Size 170 35
 Type PushButton
 LocaleTitle {Save}
Main
 Case message of
  SingleClic :
  Begin
      Do {SavePreferences BROWSER "SetEnv BROWSER \\\"}$browser{\\\""}
  End
End

# Separation
Widget 12
Property
 Flags NoReliefString
 Position 20 45
 Size 760 1
 Type Rectangle
Main
 Case message of
  SingleClic :
  Begin
      Do Nop
  End
End

# Desktop directories {{{2
Widget 2
Property
    Flags NoReliefString	
    Position 130 50
    Size 480 105
    Type List
#    Font "xft:$[panel_font]:size=10:$[panel_font_style]"
    Title { }
Main
Case message of
 SingleClic :
 Begin
    Set $desktopd = (GetTitle 2)
    Set $ddindex = (GetValue 2)
    Set $cmd = {exec echo "}$desktopd{"|cut -d '|' -f }$ddindex
    Set $DDstring = (GetOutput $cmd 1 -1)
    Set $oldDDstring = $DDstring
    HideWidget 24
    ChangeTitle 24 $DDstring
    ShowWidget 24
 End
End

# Desktop directories label
Widget 20
Property
    Flags NoReliefString Center	
    Position 5 50
    Size 120 35
    Type ItemDraw
    LocaleTitle {Desktop}
Main
Case message of
 SingleClic :
 Begin
   Do Nop
 End
End

Widget 21
Property
    Flags NoReliefString Center	
    Position 5 90
    Size 120 35
    Type ItemDraw
    LocaleTitle {Directories}
Main
Case message of
 SingleClic :
 Begin
   Do Nop
 End
End

# Add line
Widget 22
Property
 Flags NoReliefString
 Position 625 80
 Size 170 35
 Type PushButton
 LocaleTitle {Add line}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$desktopd{"|sed -e "s:^.*$:&}$DDstring{|:"}
      Set $desktopd = (GetOutput $cmd 1 -1)
      HideWidget 2
      ChangeTitle 2 $desktopd
      ShowWidget 2
      Set $oldDDstring = $DDstring
  End
End

# Save desktop dirs
Widget 23
Property
 Flags NoReliefString
 Position 625 120
 Size 170 35
 Type PushButton
 LocaleTitle {Save}
Main
 Case message of
  SingleClic :
  Begin
    Set $cmd = {PipeRead 'echo "}$desktopd{"| sed -e \'s:|$::\' | tr \'|\' \'\\n\'>}$dfile{'}
    Do $cmd
#  Do {Echo cmd: }$cmd
#    WriteToFile $dfile $desktopd # crash
  End
End

# Edit entry
Widget 24
Property
    Flags NoReliefString	
    Position 130 160
    Size 480 35
    Type TextField
    Title { }
    #Value 1
Main
Case message of
 SingleClic :
 Begin
    Set $DDstring = (GetTitle 24)
 End
 1 :
 Begin
    Set $DDstring = (GetTitle 24)
 End
End

# Remove string
Widget 25
Property
 Flags NoReliefString
 Position 5 160
 Size 120 35
 Type PushButton
 LocaleTitle {Remove}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$desktopd{"|sed -e "s:}$oldDDstring{|::"}
      Set $desktopd = (GetOutput $cmd 1 -1)
      HideWidget 2
      ChangeTitle 2 $desktopd
      ShowWidget 2
  End
End

# Update string
Widget 26
Property
 Flags NoReliefString
 Position 625 160
 Size 170 35
 Type PushButton
 LocaleTitle {Update}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$desktopd{"|sed -e "s:}$oldDDstring{:}$DDstring{:"}
      Set $desktopd = (GetOutput $cmd 1 -1)
      HideWidget 2
      ChangeTitle 2 $desktopd
      ShowWidget 2
      Set $oldDDstring = $DDstring
  End
End

# Separation
Widget 27
Property
 Flags NoReliefString
 Position 5 200
 Size 780 1
 Type Rectangle
Main
 Case message of
  SingleClic :
  Begin
      Do Nop
  End
End

# Icons directories {{{2
Widget 3
Property
    Flags NoReliefString	
    Position 130 205
    Size 480 105
    Type List
#    Font "xft:$[panel_font]:size=10:$[panel_font_style]"
    Title { }
Main
Case message of
 SingleClic :
 Begin
    Set $iconsd = (GetTitle 3)
    Set $icindex = (GetValue 3)
    Set $cmd = {exec echo "}$iconsd{"|cut -d '|' -f }$icindex
    Set $ICstring = (GetOutput $cmd 1 -1)
    Set $oldICstring = $ICstring
    HideWidget 34
    ChangeTitle 34 $ICstring
    ShowWidget 34
 End
End

# Desktop directories label
Widget 30
Property
    Flags NoReliefString Center	
    Position 5 205
    Size 120 35
    Type ItemDraw
    LocaleTitle {Icons}
Main
Case message of
 SingleClic :
 Begin
   Do Nop
 End
End

Widget 31
Property
    Flags NoReliefString Center	
    Position 5 245
    Size 120 35
    Type ItemDraw
    LocaleTitle {Directories}
Main
Case message of
 SingleClic :
 Begin
   Do Nop
 End
End

# Add line
Widget 32
Property
 Flags NoReliefString
 Position 625 235
 Size 170 35
 Type PushButton
 LocaleTitle {Add line}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$iconsd{"|sed -e "s:^.*$:&}$ICstring{|:"}
      Set $iconsd = (GetOutput $cmd 1 -1)
      HideWidget 3
      ChangeTitle 3 $iconsd
      ShowWidget 3
      Set $oldICstring = $ICstring
  End
End

# Save icons dirs
Widget 33
Property
 Flags NoReliefString
 Position 625 275
 Size 170 35
 Type PushButton
 LocaleTitle {Save}
Main
 Case message of
  SingleClic :
  Begin
    Set $cmd = {PipeRead 'echo "}$iconsd{"| sed -e \'s:|$::\' | tr \'|\' \'\\n\'>}$icfile{'}
    Do $cmd
  End
End

# Edit entry
Widget 34
Property
    Flags NoReliefString	
    Position 130 315
    Size 480 35
    Type TextField
    Title { }
    #Value 1
Main
Case message of
 SingleClic :
 Begin
    Set $ICstring = (GetTitle 34)
 End
 1 :
 Begin
    Set $ICstring = (GetTitle 34)
 End
End

# Remove string
Widget 35
Property
 Flags NoReliefString
 Position 5 315
 Size 120 35
 Type PushButton
 LocaleTitle {Remove}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$iconsd{"|sed -e "s:}$oldICstring{|::"}
      Set $iconsd = (GetOutput $cmd 1 -1)
      HideWidget 3
      ChangeTitle 3 $iconsd
      ShowWidget 3
  End
End

# Update string
Widget 36
Property
 Flags NoReliefString
 Position 625 315
 Size 170 35
 Type PushButton
 LocaleTitle {Update}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$iconsd{"|sed -e "s:}$oldICstring{:}$ICstring{:"}
      Set $iconsd = (GetOutput $cmd 1 -1)
      HideWidget 3
      ChangeTitle 3 $iconsd
      ShowWidget 3
      Set $oldICstring = $ICstring
  End
End

# Separation
Widget 37
Property
 Flags NoReliefString
 Position 5 355
 Size 780 1
 Type Rectangle
Main
 Case message of
  SingleClic :
  Begin
      Do Nop
  End
End

# Media directories {{{2
Widget 4
Property
    Flags NoReliefString	
    Position 130 360
    Size 480 105
    Type List
#    Font "xft:$[panel_font]:size=10:$[panel_font_style]"
    Title { }
Main
Case message of
 SingleClic :
 Begin
    Set $mediad = (GetTitle 4)
    Set $mindex = (GetValue 4)
    Set $cmd = {exec echo "}$mediad{"|cut -d '|' -f }$mindex
    Set $Mstring = (GetOutput $cmd 1 -1)
    Set $oldMstring = $Mstring
    HideWidget 44
    ChangeTitle 44 $Mstring
    ShowWidget 44
 End
End

# Media directories label
Widget 40
Property
    Flags NoReliefString Center	
    Position 5 360
    Size 120 35
    Type ItemDraw
    LocaleTitle {Media}
Main
Case message of
 SingleClic :
 Begin
   Do Nop
 End
End

Widget 41
Property
    Flags NoReliefString Center	
    Position 5 400
    Size 120 35
    Type ItemDraw
    LocaleTitle {Directories}
Main
Case message of
 SingleClic :
 Begin
   Do Nop
 End
End

# Add line
Widget 42
Property
 Flags NoReliefString
 Position 625 390
 Size 170 35
 Type PushButton
 LocaleTitle {Add line}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$mediad{"|sed -e "s:^.*$:&}$Mstring{|:"}
      Set $mediad = (GetOutput $cmd 1 -1)
      HideWidget 4
      ChangeTitle 4 $mediad
      ShowWidget 4
      Set $oldMstring = $Mstring
  End
End

# Save media dirs
Widget 43
Property
 Flags NoReliefString
 Position 625 430
 Size 170 35
 Type PushButton
 LocaleTitle {Save}
Main
 Case message of
  SingleClic :
  Begin
    Set $cmd = {PipeRead 'echo "}$mediad{"| sed -e \'s:|$::\' | tr \'|\' \'\\n\'>}$mfile{'}
    Do $cmd
  End
End

# Edit entry
Widget 44
Property
    Flags NoReliefString	
    Position 130 470
    Size 480 35
    Type TextField
    Title { }
    #Value 1
Main
Case message of
 SingleClic :
 Begin
    Set $Mstring = (GetTitle 44)
 End
 1 :
 Begin
    Set $Mstring = (GetTitle 44)
 End
End

# Remove string
Widget 45
Property
 Flags NoReliefString
 Position 5 470
 Size 120 35
 Type PushButton
 LocaleTitle {Remove}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$mediad{"|sed -e "s:}$oldMstring{|::"}
      Set $mediad = (GetOutput $cmd 1 -1)
      HideWidget 4
      ChangeTitle 4 $mediad
      ShowWidget 4
  End
End

# Update string
Widget 46
Property
 Flags NoReliefString
 Position 625 470
 Size 170 35
 Type PushButton
 LocaleTitle {Update}
Main
 Case message of
  SingleClic :
  Begin
      Set $cmd = {echo "}$mediad{"|sed -e "s:}$oldMstring{:}$Mstring{:"}
      Set $mediad = (GetOutput $cmd 1 -1)
      HideWidget 4
      ChangeTitle 4 $mediad
      ShowWidget 4
      Set $oldMstring = $Mstring
  End
End

# Separation
#Widget 47
#Property
# Flags NoReliefString
# Position 5 510
# Size 780 1
# Type Rectangle
#Main
# Case message of
#  SingleClic :
#  Begin
#      Do Nop
#  End
#End

# Startup {{{2
#Widget 5
#Property
#    Flags NoReliefString	
#    Position 5 515
#    Size 790 280
#    Type SwallowExec
#    Title {FVWM-Crystal Editor}
#Main
#Case message of
# SingleClic :
# Begin
#    Do Nop
# End
#End

# vim:ft=fvwm