#-----------------------------------------------------------------------------
###	own fr configurated buttons
#-----------------------------------------------------------------------------
#	Arguments:
#		filelist - list of selected files under $srcdir, can be empty
#		srcdir   - source directory
#		destdir  - destination directory
#-----------------------------------------------------------------------------
set config(usercommands) {
  { ShowDiz ShowDiz }
  { ZipAdd ZipAdd }
  { LhaAdd LhaAdd }
  { ArcTo ArcTo }
  { FileId FileId }
  { EditNew EditNew }
  { LaTex LaTex }
  { DviPs DviPs }
  { DviSplTmp DviSplTmp }
  { DvipsSp DvipsSpl }
}

#-----------------------------------------------------------------------------
###	showdiz configuration
#-----------------------------------------------------------------------------
proc ShowDiz { filelist srcdir destdir } {
  cd $srcdir
  set list {}
  foreach file $filelist {
    set list "$list [exec showdiz $file]"
  }
  ViewString "ShowDiz Output" list ""
}

#-----------------------------------------------------------------------------
###	zipadd configuration
#-----------------------------------------------------------------------------
proc ZipAdd { filelist srcdir destdir } {
  set filename [EntryDialog "Zip..." "Please enter an archive filename" ""]
  if {$filename == ""} return
  cd $srcdir
  set list {}
  foreach file $filelist {
    set list "$list\n$file [exec zip -r -9 "$destdir/$filename" $file]"
  }
  ViewString "ZipAdd Output" list ""
}

#-----------------------------------------------------------------------------
###	lhaadd configuration
#-----------------------------------------------------------------------------
proc LhaAdd { filelist srcdir destdir } {
  set filename [EntryDialog "Lha..." "Please enter an archive filename" ""]
  if {$filename == ""} return
  cd $srcdir
  set list {}
  foreach file $filelist {
    set list "$list\n$file [exec lha a "$destdir/$filename" $file]"
  }
  ViewString "LhaAdd Output" list ""
}

#-----------------------------------------------------------------------------
###	arcto configuration
#-----------------------------------------------------------------------------
proc ArcTo { filelist srcdir destdir } {
  cd $srcdir
  foreach file $filelist {
    exec tar cf - $file | gzip -9 > "$destdir/$file.tar.gz"
  }
}

#-----------------------------------------------------------------------------
###	fileid configuration
#-----------------------------------------------------------------------------
proc FileId { filelist srcdir destdir } {
  cd $srcdir
  exec nedit -create file_id.diz
}

#-----------------------------------------------------------------------------
###	editnew configuration
#-----------------------------------------------------------------------------
proc EditNew { filelist srcdir destdir } {
  set filename [EntryDialog "EditNew..." "Please enter an filename" ""]
  if {$filename == ""} return
  cd $srcdir
  exec nedit -create $filename
}

#-----------------------------------------------------------------------------
###	latex configuration
#-----------------------------------------------------------------------------
proc LaTex { filelist srcdir destdir } {
  cd $srcdir
  foreach file $filelist {
    exec latex $file
  }
}

#-----------------------------------------------------------------------------
###	dvips configuration
#-----------------------------------------------------------------------------
proc DviPs { filelist srcdir destdir } {
  cd $srcdir
  foreach file $filelist {
    exec dvips $file 2>/dev/null
  }
}

#-----------------------------------------------------------------------------
###	dvi split tmp
#-----------------------------------------------------------------------------
proc DviSplTmp { filelist srcdir destdir } {
  cd $srcdir
  foreach file $filelist {
    exec dviselect -i $file -o /tmp/odd.$file odd 2>/dev/null
    exec dviselect -i $file -o /tmp/even.$file even 2>/dev/null
  }
}

#-----------------------------------------------------------------------------
###	dvips split tmp
#-----------------------------------------------------------------------------
proc DvipsSpl { filelist srcdir destdir } {
  cd $srcdir
  foreach file $filelist {
    exec dvips -q -A $file -o /tmp/odd.$file.ps 2>/dev/null
    exec dvips -q -B $file -o /tmp/even.$file.ps 2>/dev/null
  }
}
