# LaTeX macros for nedit.
#
# copyright 2007 Ulrich M. Schwarz
# no distribution of modified copies permitted.
#
# I think it should work to paste this file into the nedit.macroCommands 
# section of your nedit.rc. What they were smoking when they came up with 
# that joke of extensibility, I don't know.
#
        Insert Env...@LaTeX:Mod4+E:e:: {\n\
                  envname=get_selection()\n\
                  if (envname=="") {\n\
                    envname = string_dialog("Environment name", "OK")\n\
                  } else {\n\
                    set_cursor_pos($selection_start)\n\
                  }\n\
                  inde = $column\n\
                  # FIX: the end{...} isn't indented properly.\n\
                  insert-string("\\\\begin{" envname "}\\n")\n\
                  for (i=-2; i<inde; i++)\n\
                    insert-string(" ")\n\
                  endpos=$cursor\n\
                  insert-string("\\n")\n\
                  for (i=0; i<inde; i++)\n\
                    insert-string(" ")\n\
                  insert-string("\\\\end{" envname "}")\n\
                  set_cursor_pos(endpos)\n\
        }\n\
        Toggle Comment@LaTeX@metapost:Mod4+Semicolon::R: {\n\
                if ($selection_start == -1){\n\
                  beep()\n\
                  return\n\
                }\n\
                if (get_character($selection_start)=="%"){\n\
                  replace_in_selection("(^[ \\\\t]*%+)(.*)$", "\\\\2", "regex")\n\
                } else {\n\
                  replace_in_selection("^.*$", "%&", "regex")\n\
                }\n\
        }\n\
        Insert Ref...@LaTeX:Mod4+R:R:: {\n\
                  typename = list_dialog("Type of reference:", \\\n\
                    "Eq:uation\\nSec:tion\\nTab:le\\nFig:ure", \\\n\
                    "OK", "Cancel")\n\
                  if ($list_dialog_button==1){\n\
                    if (typename != "")\n\
                      typename = tolower(split(typename, ":")[0]) ":"\n\
                    # now typename is empty or eq:, sec:, tab:, fig:.\n\
                    refnumber=string_dialog("Number of the reference in the output:", "OK")\n\
                    auxfilename = substring($file_name, 0, length($file_name)-3) "aux"\n\
                #    auxfile = read_file($file_path "/" auxfilename)\n\
                #    dialog(auxfile, "OK")\n\
                    cmd= "sed -ne 's/^\\\\\\\\newlabel{"\\\n\
                    "\\\\(" typename "[^}]*\\\\)}{{" refnumber "}.*}$/\\\\1/p' " \\\n\
                     $file_path "/" auxfilename\n\
                    thelabel=shell_command(cmd, "")\n\
                    thelabel=substring(thelabel, 0, length(thelabel)-1)\n\
                    insert_string("\\\\ref{" thelabel "}")\n\
                #   dialog(cmd " gave \\n" $shell_cmd_status ":\\\\ref{" thelabel "}")\n\
                  }\n\
        }\n\