#!/bin/bash /home/richmit/bin/ruby
# -*- Mode:Ruby; Coding:us-ascii-unix; fill-column:160 -*-

################################################################################################################################################################
##
# @file      latexitGUI.rb
# @author    Mitch Richling <https://www.mitchr.me>
# @Copyright Copyright 2011 by Mitch Richling.  All rights reserved.
# @brief     GUI for latexit.rb@EOL
# @Std       Ruby 2.0
# @license
#
# ================================================================================================================================================================
# Copyright (c) 1994-2015, Mitchell Jay Richling <https://www.mitchr.me> All rights reserved.
# 
# Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
# 
# 1. Redistributions of source code must retain the above copyright notice, this list of conditions, and the following disclaimer.
# 
# 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions, and the following disclaimer in the documentation and/or
#    other materials provided with the distribution.
# 
# 3. Neither the name of the copyright holder nor the names of its contributors may be used to endorse or promote products derived from this software without
#    specific prior written permission.
# 
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
# OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
# ================================================================================================================================================================
#
################################################################################################################################################################

#---------------------------------------------------------------------------------------------------------------------------------------------------------------
require 'tk'
require 'open3'

#---------------------------------------------------------------------------------------------------------------------------------------------------------------
root = TkRoot.new { title "LaTeX!" }

texIn = TkText.new(root) do
  width 80
  height 5
  borderwidth 1
  font TkFont.new('times 12 bold')
   pack("side" => "top",  "padx"=> "5", "pady"=> "5")
end

texOut = TkText.new(root) do
  width 80
  height 20
  borderwidth 1
  font TkFont.new('times 12 bold')
   pack("side" => "bottom",  "padx"=> "5", "pady"=> "5")
end

buttonFrame = TkFrame.new {
  #relief 'sunken'
  borderwidth 1
  padx 10
  pady 10
  pack("side" => "top",  "padx"=> "0", "pady"=> "0", 'fill' => 'x')
}

texBut = TkButton.new(buttonFrame) do
  text "Run LaTeX"
  borderwidth 5
  underline 0
  state "normal"
  cursor "watch"
  font TkFont.new('times 20 bold')
  foreground  "red"
  activebackground "blue"
  relief      "groove"
  command (proc {
             puts("HI")
            texOut.state("normal")
            texOut.clear()
            begin
              File.delete('/tmp/temp-c.pdf')
            rescue
            end
            begin
              File.delete('/tmp/temp.pdf')
            rescue
            end
            stdout_and_stderr_str, status = Open3.capture2("latexit.rb", :stdin_data=>texIn.value)
            texOut.insert('end', stdout_and_stderr_str)
            texOut.state("disabled")
         })
  pack("side" => "left",  "padx"=> "50", "pady"=> "3")
end

quitBut = TkButton.new(buttonFrame) do
  text "Quit"
  borderwidth 5
  underline 0
  state "normal"
  cursor "watch"
  font TkFont.new('times 20 bold')
  foreground  "red"
  activebackground "blue"
  relief      "groove"
  command (proc { exit() })
  pack("side" => "right",  "padx"=> "50", "pady"=> "3")
end

clearBut = TkButton.new(buttonFrame) do
  text "Clear"
  borderwidth 5
  underline 0
  state "normal"
  cursor "watch"
  font TkFont.new('times 20 bold')
  foreground  "red"
  activebackground "blue"
  relief      "groove"
  command (proc { texIn.value=''; })
  pack("side" => "right",  "padx"=> "50", "pady"=> "3")
end

#---------------------------------------------------------------------------------------------------------------------------------------------------------------
Tk.mainloop