@b3m2a1 Ah, I thought you had an example of a paclet that used it

@Szabolcs nah I was hoping you would

I figure if I read the code I can parse out what it's supposed to do, but that's more work than just asking someone

Yeah looks like if you pass it then it'll delegate to FrontEnd`SetFunctionInformation (which is a packet that implements SyntaxInformation)

Basically it's the equivalent of Symbols but it'll allow you to get all your syntax info on there. Kinda a shame that there's nothing to support autocompletes in the actual PacletInfo.m, but specialArgTranslations.m does that if memory serves.

I wish someone could help me program a rather elementary problem of listing all combinations that are a subsets of a simple table.

The task is to as in the example in the last line of code to pick exactly one element from each row in table "A" and display the resulting sequence.

I need to find all combinations.

Maybe I will just do as I always do, which is to list the first few combinations for "nn=1,2,3,4,5,...and so on", in Excel manully and see if I can spot the pattern.

The OEIS might have something on this.

Needs Combinatorica appears to be the catch. Hopefully it will work in Mathematica 8.0.1

I got an error message but the output is right. Thank you creators of Mathematica.

One problem though, the question I am interested in has rows of length "2*n-1" while the RGFs command takes "n" as its input. How does one work around that?

Too hopeful too soon. It is not the thing I am looking for after all.

Can this be solved with RegionIntersection?

@b3m2a1With ExportPacket as InputText, do you remember how to control the page width?

@b3m2a1 @Kuba :

@Szabolcs you have to set a FE option temporarily or use the "DefaultText" format with a Cell with a style like "Code". I’ve certainly done it but will need to look back at my GH tool package for converting a notebook into a package...

@Szabolcs I’ll work through all the details of this when I have time but to get you started here’s somewhere where I had to do that: github.com/b3m2a1/mathematica-BTools/blob/…

@b3m2a1 I give up ... Setting that option seems to make no difference in 12.0 or 11.3 ...

@Szabolcs here's the way to get basically the way Mathematica saves with AutoGeneratedPackage:

First@
 MathLink`CallFrontEnd[
  ExportPacket[
   Append[boxes, TextClipboardType -> "Package"],
   "DefaultText"
   ]
  ]

"foo[
{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25},
\"asd\"
]"

Of course, now you've lost that nice "InputText" formatting

Here's a way to get the newlines back:

BeginPackage["ToggleIndents`"];
Get["https://github.com/b3m2a1/mathematica-BTools/raw/master/Packages/FrontEnd/IndentableCells.m"];
EndPackage[];

ToggleIndents`Private`$IndentationChar = "  ";

First@
 MathLink`CallFrontEnd[
  ExportPacket[
   Append[
    ReplacePart[
     boxes,
     {1, 1} ->
      ToggleIndents`Private`IndentingNewLineReplace[boxes[[1, 1]]]
     ],
    TextClipboardType -> "Package"],
   "DefaultText"
   ]
  ]

"foo[
  {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25},

Hey @b3m2a1 it is probably easier to ask you here than gum up the comments, how can the range of values be restricted to a certain quadrant of the VectorLocator? By this I mean something like azimuthal angle from 0 to pi/2 and a polar angle from 0 to pi/2. Basically restrict the Locator-ing to one quarter or otherwise of the "VectorSphere". Using the Dynamic with a Graphics3D object controlled by it is very responsive, by-the-by.