如何对齐 Mathematica 笔记本中的注释？

Question

我不知道以前是否有人问过这个问题。简单的格式化问题。 我注意到有时很难将 cmets (----) 相互对齐。一定是字体类型问题。如果我能让东西完全对齐，它在屏幕上看起来会好一点。这是一个例子：

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

但在我面前的笔记本上实际上是这样的：

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

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

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

谢谢

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

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

编辑 3：

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

随便。真的没什么大不了的。可以忍受一些未对齐的 cmets :)

Answer 1

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

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

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

显示为

---

根据评论进行编辑：

如果您在代码之间有 cmets（左侧没有代码），则可以将其放入 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"]

Answer 2

我在安装 Mathematica 7 时没有遇到这样的问题，因为它默认使用等宽字体“Courier New”用于样式为Input 的单元格。但是如果由于某种原因，默认情况下在您的安装中使用了非等宽字体，您可以在 Notebook 中重新定义 cmets 的样式以使用等宽字体：

SetOptions[EvaluationNotebook[], 
 AutoStyleOptions -> {"CommentStyle" -> {FontWeight -> Plain,
     FontColor -> GrayLevel[0.6`], ShowAutoStyles -> False, 
     ShowSyntaxStyles -> False, AutoNumberFormatting -> False, 
     FontFamily -> "Consolas"}}]