konjac 0.2.9.5 → 0.3

data/lib/applescripts/konjac_excel_export

@@ -1,120 +0,0 @@
-#!/usr/bin/osascript
--- round up ASCII characters used for formatting in Word
-global bell
-global line_feed
-global form_feed
-global carriage_return
-global format_chars
-
--- strip line breaks and formatting characters
-to strip_line_breaks(this_line)
-  try
-    -- remove last character until no it's no longer an excluded character
-    repeat while last character of this_line is in format_chars
-      set this_line to characters 1 thru -2 of this_line as string
-    end repeat
-    return this_line as text
-  on error
-    return ""
-  end try
-end strip_line_breaks
-
-to get_posix_path(mac_path)
-  set result to POSIX path of mac_path
-end get_posix_path
-
-to extract(filename)
-  tell application "Microsoft Excel"
-    activate
-    open filename
-    set active_workbook to active workbook
-    set ignored_content to {missing value, "", line_feed}
-    
-    -- set tags path to full path to active workbook with a .tags extension
-    set workbook_path to full name of active_workbook
-    set tags_path to workbook_path & ".diff"
-    
-    -- delete tags file if it already exists
-    tell application "Finder"
-      if exists file tags_path then
-        delete file tags_path
-      end if
-    end tell
-    
-    -- open tags file for writing
-    set tags_file to open for access file tags_path with write permission
-    set eof of tags_file to 0
-
-    write ("--- " & my get_posix_path(workbook_path)) to tags_file
-    write line_feed to tags_file
-    write ("+++ " & my get_posix_path(workbook_path)) to tags_file
-    write line_feed to tags_file
-
-    -- iterate through sheets
-    set sheet_index to 1
-    set sheet_count to count of sheets in active_workbook
-
-    repeat while sheet_index is less than or equal to sheet_count
-      set current_range to used range of sheet sheet_index in active_workbook
-
-      -- iterate through rows
-      set row_index to 1
-      set row_count to count of rows of current_range
-      set column_count to count of columns of current_range
-
-      repeat while row_index is less than or equal to row_count
-        -- iterate through columns
-        set column_index to 1
-
-        repeat while column_index is less than or equal to column_count
-          -- get text content if it's available
-          set text_content to my strip_line_breaks(formula of cell column_index of row row_index of current_range) as string
-
-          -- replace "soft returns" (vertical tabs) with real returns
-          set old_delimiters to AppleScript's text item delimiters
-          set AppleScript's text item delimiters to carriage_return
-          set split_content to every text item of text_content
-          set AppleScript's text item delimiters to old_delimiters
-
-          if text_content is not in ignored_content then
-            write ("@@ " & sheet_index & ":" & row_index & "," & column_index & " @@") to tags_file
-            write line_feed to tags_file
-            repeat with text_line in split_content
-              write ("-" & text_line) to tags_file as «class utf8»
-              write line_feed to tags_file
-            end repeat
-            repeat with text_line in split_content
-              write ("+" & text_line) to tags_file as «class utf8»
-              write line_feed to tags_file
-            end repeat
-          end if
-
-          set column_index to (column_index + 1)
-        end repeat
-
-        set row_index to (row_index + 1)
-      end repeat
-
-      -- increment sheet index
-      set sheet_index to (sheet_index + 1)
-    end repeat
-    
-    -- close everything
-    close access tags_file
-  end tell
-end extract
-
--- initialize global variables, just formatting characters here
-to init_globals()
-  set bell to ASCII character 7
-  set line_feed to ASCII character 10
-  set form_feed to ASCII character 12
-  set carriage_return to ASCII character 13
-  set format_chars to {bell, line_feed, form_feed, carriage_return}
-end init_globals
-
--- main()
-on run argv
-  init_globals()
-  extract(item 1 of argv)
-end

data/lib/applescripts/konjac_excel_import

@@ -1,112 +0,0 @@
-#!/usr/bin/osascript
-global numbers_as_text
-global line_feed
-global vertical_tab
-global carriage_return
-
--- parses the headers/separators inside the tags file
-to parse_header(header, begin)
-  set at_offset to begin
-  
-  repeat while character at_offset of header is in my numbers_as_text
-    set at_offset to (at_offset + 1)
-  end repeat
-  
-  return at_offset
-end parse_header
-
-to get_posix_path(mac_path)
-  set result to POSIX path of mac_path
-end get_posix_path
-
-to import(filename)
-  tell application "Microsoft Excel"
-    activate
-    open filename
-    set active_workbook to active workbook
-    set ignored_content to {missing value, "", line_feed}
-    
-    -- set tags path to full path to active workbook with a .tags extension
-    set workbook_path to full name of active_workbook
-    set tags_path to workbook_path & ".diff"
-    
-    -- read in tags
-    set tags_file to open for access file tags_path
-    set tags to (read tags_file for (get eof tags_file) ¬
-                   as «class utf8» using delimiter line_feed)
-    set tag_index to 0
-    set tag_length to length of tags
-    close access tags_file
-
-    set text_content to ""
-
-    -- iterate through sheets
-    set sheet_index to 0
-    set prev_sheet_index to 0
-    set row_index to 0
-    set prev_row_index to 0
-    set column_index to 0
-    set prev_column_index to 0
-    set is_new_tag to false
-
-    repeat with current_line in tags
-      if current_line starts with "@@ " then
-        set colon_offset to my parse_header(current_line, 4)
-        set sheet_index to text 4 thru (colon_offset - 1) ¬
-                                 of current_line as number
-        set comma_offset to my parse_header(current_line, colon_offset + 1)
-        set row_index to text (colon_offset + 1) thru (comma_offset - 1) ¬
-                                 of current_line as number
-        set space_offset to my parse_header(current_line, comma_offset + 1)
-        set column_index to text (comma_offset + 1) thru (space_offset - 1) ¬
-                                 of current_line as number
-        set is_new_tag to true
-      else if current_line starts with "+" then
-        if sheet_index is not 0 then
-          set prev_sheet_index to sheet_index
-          set prev_row_index to row_index
-          set prev_column_index to column_index
-
-          -- handle blank lines with soft returns
-          if length of current_line is less than 2
-            set this_content to ""
-          else
-            set this_content to text 2 thru (length of current_line) ¬
-                                  of current_line
-          end if
-
-          -- add to text content, joining with a soft return for multiple lines
-          if text_content is "" then
-            set text_content to this_content
-          else
-            set text_content to (text_content & carriage_return & this_content)
-          end if
-          set is_new_tag to false
-        end if
-      end if
-
-      -- increment tag index
-      set tag_index to tag_index + 1
-
-      -- write if we've moved to a new tag or reached the end of the file
-      if text_content is not "" and (tag_index is tag_length or is_new_tag)
-        set formula of cell prev_column_index of row prev_row_index of used range of sheet prev_sheet_index of active_workbook to text_content
-        set text_content to ""
-      end if
-    end repeat
-  end tell
-end import
-
--- initialize global variables
-to init_globals()
-  set numbers_as_text to {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
-  set line_feed to ASCII character 10
-  set vertical_tab to ASCII character 11
-  set carriage_return to ASCII character 13
-end init_globals
-
--- main()
-on run argv
-  init_globals()
-  import(item 1 of argv)
-end run

data/lib/applescripts/konjac_powerpoint_export

@@ -1,116 +0,0 @@
-#!/usr/bin/osascript
--- round up ASCII characters used for formatting in Word
-global bell
-global line_feed
-global form_feed
-global carriage_return
-global format_chars
-
--- strip line breaks and formatting characters
-to strip_line_breaks(this_line)
-  try
-    -- remove last character until no it's no longer an excluded character
-    repeat while last character of this_line is in format_chars
-      set this_line to characters 1 thru -2 of this_line as string
-    end repeat
-    return this_line as text
-  on error
-    return ""
-  end try
-end strip_line_breaks
-
-to get_posix_path(mac_path)
-  set result to POSIX path of mac_path
-end get_posix_path
-
-to extract(filename)
-  tell application "Microsoft PowerPoint"
-    activate
-    open filename
-    set active_presentation to active presentation
-    set ignored_content to {missing value, "", line_feed}
-    
-    -- set tags path to full path to active presentation with a .tags extension
-    set presentation_path to (path of active_presentation) & ":" & ¬
-      (name of active_presentation)
-    set tags_path to presentation_path & ".diff"
-    
-    -- delete tags file if it already exists
-    tell application "Finder"
-      if exists file tags_path then
-        delete file tags_path
-      end if
-    end tell
-    
-    -- open tags file for writing
-    set tags_file to open for access file tags_path with write permission
-    set eof of tags_file to 0
-
-    write ("--- " & my get_posix_path(presentation_path)) to tags_file
-    write line_feed to tags_file
-    write ("+++ " & my get_posix_path(presentation_path)) to tags_file
-    write line_feed to tags_file
-
-    -- iterate through slides
-    set slide_index to 1
-    set slide_count to count of slides in active_presentation
-
-    repeat while slide_index is less than or equal to slide_count
-      set current_slide to slide slide_index in active_presentation
-
-      -- iterate through shapes
-      set shape_index to 1
-      set shape_count to count of shapes in current_slide
-
-      repeat while shape_index is less than or equal to shape_count
-        -- set current shape
-        set current_shape to shape shape_index of current_slide
-
-        -- get text content if it's available
-        set text_content to my strip_line_breaks(content of text range of text frame of current_shape) as string
-
-        -- replace "soft returns" (vertical tabs) with real returns
-        set old_delimiters to AppleScript's text item delimiters
-        set AppleScript's text item delimiters to carriage_return
-        set split_content to every text item of text_content
-        set AppleScript's text item delimiters to old_delimiters
-
-        if text_content is not in ignored_content then
-          write ("@@ " & slide_index & "," & shape_index & " @@") to tags_file
-          write line_feed to tags_file
-          repeat with text_line in split_content
-            write ("-" & text_line) to tags_file as «class utf8»
-            write line_feed to tags_file
-          end repeat
-          repeat with text_line in split_content
-            write ("+" & text_line) to tags_file as «class utf8»
-            write line_feed to tags_file
-          end repeat
-        end if
-
-        set shape_index to (shape_index + 1)
-      end repeat
-
-      -- increment slide index
-      set slide_index to (slide_index + 1)
-    end repeat
-    
-    -- close everything
-    close access tags_file
-  end tell
-end extract
-
--- initialize global variables, just formatting characters here
-to init_globals()
-  set bell to ASCII character 7
-  set line_feed to ASCII character 10
-  set form_feed to ASCII character 12
-  set carriage_return to ASCII character 13
-  set format_chars to {bell, line_feed, form_feed, carriage_return}
-end init_globals
-
--- main()
-on run argv
-  init_globals()
-  extract(item 1 of argv)
-end

data/lib/applescripts/konjac_powerpoint_import

@@ -1,109 +0,0 @@
-#!/usr/bin/osascript
-global numbers_as_text
-global line_feed
-global vertical_tab
-global carriage_return
-
--- parses the headers/separators inside the tags file
-to parse_header(header, begin)
-  set at_offset to begin
-  
-  repeat while character at_offset of header is in my numbers_as_text
-    set at_offset to (at_offset + 1)
-  end repeat
-  
-  return at_offset
-end parse_header
-
-to get_posix_path(mac_path)
-  set result to POSIX path of mac_path
-end get_posix_path
-
-to import(filename)
-  tell application "Microsoft PowerPoint"
-    activate
-    open filename
-    set active_presentation to active presentation
-    set ignored_content to {missing value, "", line_feed}
-    
-    -- set tags path to full path to active presentation with a .tags extension
-    set presentation_path to (path of active_presentation) & ":" & ¬
-      (name of active_presentation)
-    set tags_path to presentation_path & ".diff"
-    
-    -- read in tags
-    set tags_file to open for access file tags_path
-    set tags to (read tags_file for (get eof tags_file) ¬
-                   as «class utf8» using delimiter line_feed)
-    set tag_index to 0
-    set tag_length to length of tags
-    close access tags_file
-
-    set text_content to ""
-
-    -- iterate through slides
-    set slide_index to 0
-    set prev_slide_index to 0
-    set shape_index to 0
-    set prev_shape_index to 0
-    set is_new_tag to false
-
-    repeat with current_line in tags
-      if current_line starts with "@@ " then
-        set comma_offset to my parse_header(current_line, 4)
-        set slide_index to text 4 thru (comma_offset - 1) ¬
-                                 of current_line as number
-        set space_offset to my parse_header(current_line, comma_offset + 1)
-        set shape_index to text (comma_offset + 1) thru (space_offset - 1) ¬
-                                 of current_line as number
-        set is_new_tag to true
-      else if current_line starts with "+" then
-        if slide_index is not 0 then
-          set prev_slide_index to slide_index
-          set prev_shape_index to shape_index
-
-          -- handle blank lines with soft returns
-          if length of current_line is less than 2
-            set this_content to ""
-          else
-            set this_content to text 2 thru (length of current_line) ¬
-                                  of current_line
-          end if
-
-          -- add to text content, joining with a soft return for multiple lines
-          if text_content is "" then
-            set text_content to this_content
-          else
-            set text_content to (text_content & carriage_return & this_content)
-          end if
-          set is_new_tag to false
-        end if
-      end if
-
-      -- increment tag index
-      set tag_index to tag_index + 1
-
-      -- write if we've moved to a new tag or reached the end of the file
-      if text_content is not "" and (tag_index is tag_length or is_new_tag)
-        set content of text range of text frame of shape prev_shape_index ¬
-              of slide prev_slide_index ¬
-              of active presentation to text_content
-        set text_content to ""
-      end if
-    end repeat
-  end tell
-end import
-
--- initialize global variables
-to init_globals()
-  set numbers_as_text to {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
-  set line_feed to ASCII character 10
-  set vertical_tab to ASCII character 11
-  set carriage_return to ASCII character 13
-end init_globals
-
--- main()
-on run argv
-  init_globals()
-  import(item 1 of argv)
-end run