numbers2latex table converter

numbers2latex.scpt

-- Numbers to LaTeX converter
-- this small AppleScript takes the first table in the first sheet of the first
-- Numbers document and turns it into a LaTeX table (well, sort of).
-- It will be copied to the clipboard.

-- This is a 5-minute quick hack and mostly unsupported, but if you like it or
-- if you have any enhancements (not feature request :-)), plese send them to
-- gundlach <at> speedata.de

tell application "Numbers"
	tell document 1
		set current_table to table 1 of sheet 1
		set current_table_string to ""
		tell current_table
			repeat with current_row from 1 to row count
				set current_row_string to ""
				repeat with current_column from 1 to column count
					set current_cell to cell current_column of row current_row
					-- log name of current_cell as text
					-- log format of range "A1" as text
					
					try
						set this_value to value of current_cell as integer
					on error
						set this_value to value of current_cell as text
					end try
					
					if current_column < 2 then
						set current_row_string to this_value as text
					else
						set current_row_string to current_row_string & " & " & this_value as text
					end if
					set current_column to (current_column + 1)
				end repeat
				set current_table_string to current_table_string & current_row_string & " \\\\
"
				set current_row to (current_row + 1)
			end repeat
		end tell
		set the clipboard to current_table_string
		display dialog "Copied table to clipboard"
	end tell
end tell