wolfram-mathematica - 如何在 Mathematica 笔记本中对齐注释？

Question

不知道之前有没有问过这个问题。简单的格式问题。
我注意到有时很难将评论 (----) 放在彼此之上。应该是字体类型问题。如果我能让东西完全对齐，它在屏幕上看起来会好一点。下面是一个例子:

(*                        *)
(*  L E F T    P A N E L  *)
(*                        *)

但在我面前的笔记本中，它实际上是这样的:



如果我将第二行中的 *) 向左移动一个空格，它会变成这样:



所以，不能让它对齐。我正在使用输入类型的单元格(标准单元格)。

我不能使用其他单元格类型，例如代码等。我想知道是否有人知道让这个对齐的技巧。

谢谢

编辑 1:
显示样式表中输入单元使用的字体 演示



编辑2:
使用下面由 Alexey Popkov 显示的代码，修复了注释的字体问题，现在它们很容易对齐。这是一个屏幕截图


编辑 3:

好吧，派对并没有持续多久。演示中不允许使用 SetOptions。太糟糕了，因为 Alexey 的解决方案运作良好，使评论对齐并且看起来更好。

反正。真的没什么大不了的。可以忍受一点点错位的评论:)

Answer 1

我以前从来没有真正担心过这个，因为我只使用内联 (* -- *)用于小注释或注释掉代码的注释。如果我需要多行注释，我会将代码分成更小的部分并使用文本单元格。

也就是说，您可以尝试使用 \[AlignmentMarker] s 在最右边 *) :

1 + 2 + 3 +     (* First three  \[AlignmentMarker]*)
 4 + 5 + 6 +    (* Next three   \[AlignmentMarker]*)
 7 + 8 + 9      (* Last three   \[AlignmentMarker]*)

显示为



编辑以回应评论:

如果你在代码之间有注释(左边没有代码)，那么可以把它放在 GridBox 中。 (使用 Ctrl-Enter 和 Ctrl-, 创建)使用 (* ... *) 注释掉以白色字体。



很难给出代码来制作上述内容……但这是 Box 形式:

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{RowBox[{RowBox[{"a", " ", "=", " ", 
   RowBox[{"x", "+", "1"}]}], ";", "\[IndentingNewLine]", " ", 
    RowBox[{StyleBox["(*", FontColor->GrayLevel[1]], "", 
     GridBox[{{"(*", RowBox[{"Inter", "-", RowBox[{"code", Cell[""]}]}], "*)"},
              {"(*", "comments", "*)"}},
      GridBoxAlignment->{"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], " ", 
     StyleBox["*)", FontColor->GrayLevel[1]]}], "\[IndentingNewLine]", 
    RowBox[{"{", RowBox[{"a", ",", SuperscriptBox["a", "2"]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], 
  "]"}]], "Input"]