Skip to content

Commit

Permalink
change all-command-list and list-config format.
Browse files Browse the repository at this point in the history
  • Loading branch information
mitchan0321 committed Aug 18, 2024
1 parent 16515ec commit 8943e1e
Showing 1 changed file with 6 additions and 3 deletions.
9 changes: 6 additions & 3 deletions lib/pmacs-command-util.prfm
Original file line number Diff line number Diff line change
Expand Up @@ -72,6 +72,7 @@ defcommand all-command-list desc: "Display all editor commands." {
$buff append-string ["%v <- %v" fmt "Command" "Key bindings"];
$buff append-string " Description";
$buff append-string ["%v" fmt ["-" repeat [38 * 2]]];
c := 0;
msort [$EditorCommand keys :string] : each do: {| i |
if {"" . $i : at 0 : = "."} {continue};
binds ::= get-keybind-string $window $i;
Expand All @@ -80,8 +81,11 @@ defcommand all-command-list desc: "Display all editor commands." {
} {
$buff append-string ["%v" fmt ["[[" . $i "]]"]];
};
$buff append-string [" " . [get-command-desc $i]];
$buff append-string [" " . [get-command-desc $i]];\
$buff append-string "";
$c ++;
};
$buff append-string ["Total %v commands." fmt $c];
$buff no-modify;
$buff set-protect;

Expand Down Expand Up @@ -1066,8 +1070,7 @@ defcommand list-config desc: "Display configuration list." {
[$CONFIG_RO,$i ??? "RO" " "]
[$CONFIG_DESC,$i ?? ""]
];
### $buff append-string "";
;;
$buff append-string "";
};
$buff no-modify;
$buff set-protect;
Expand Down

0 comments on commit 8943e1e

Please sign in to comment.