The XXXX in (* ::XXXX:: *) can be any named style such as you might find in the Format > Style menu.
If you look at the underlying cell expression in the frontend, you'll see:
Note that the XXXX is automatically turned into a string when the frontend is reading the file, so you can't use this to apply arbitrary styling ...
You could try the following approach, with a secondary kernel (K2) and using CellInformation to check if a cell or notebook is currently in the "Evaluating" state:
Get the current evaluator names:
evaluators = EvaluatorNames /. Options[$FrontEnd, EvaluatorNames];
Add a "K2" kernel if there isn't one:
An example of evaluating the expression outside the notebook and then write the result in the notebook.
exampleNB = CreateDocument;
Cell["example of evaluating input programmatically",
Cell["D[Sin[ RandomReal x],x]", "Input", CellTags -> 1]];
After contacting Wolfarm support, I got the following answer:
Our developers have confirmed that it is not possible to add other languages in Mathematica.
However, I have filed a suggestion report to include a feature that would enable users to add other languages in future versions of Mathematica.
If you have any further questions, please ...
Alignment is not an option for Cell:
Use TextAlignment instead:
SelectionMove[EvaluationNotebook, Next, CellGroup]
SetOptions[NotebookSelection[EvaluationNotebook], Background -> Red,
TextAlignment -> Center]