AutoGeneratedPackage Formatting

Question

If you do Ctrl+Shift+o you open an option inspector.

And then you can enable AutoPackageGenerated which allows you to automatically generate .m from .nb input.

Unfortunately as discussed in this question the outputted .m is not formatted.

How might I patch such?

@MikeHoneychurch I am just referring to the spaces/indention on each line. — William, Jan 27 '15 at 23:54
ok. That is because the default style is Code. Just modify that style to whatever you need. If you need help to do that then browse some of the related questions here. — Mike Honeychurch, Jan 28 '15 at 00:29

William · Accepted Answer · 2014-10-25T17:29:29.127

This only exports output cells, but does work.

SetOptions[EvaluationNotebook[], NotebookEventActions -> {
   {"MenuCommand", "Save"} :> 
    Module[{loc, nb, new = FileNameJoin@Append[
         Drop[FileNameSplit@NotebookFileName[], -1],
         FileBaseName@FileNameTake[NotebookFileName[]] <> ".m"
         ]
      },
     NotebookSave[InputNotebook[]];
     loc = FileNameJoin[{$TemporaryDirectory, "output.txt"}]; 
     nb = 
      CreateDocument[NotebookGet[InputNotebook[]][[1]], 
       Visible -> False];
     FrontEndExecute[FrontEndToken[nb, "Save", {loc, "Text"}]];
     NotebookClose[nb];
     DeleteFile[new];
     CopyFile[loc, new];
     ]
   }]

AutoGeneratedPackage Formatting

1 Answers1

Linked