feat: Cmd-A inside code block should select block contents, closes #6498

shared/editor/nodes/CodeBlock.ts

@@ -1,3 +1,5 @@
+import { NodeType } from "prosemirror-model";
+import { selectAll } from "../commands/selectAll";
 import CodeFence from "./CodeFence";
 
 export default class CodeBlock extends CodeFence {
@@ -8,4 +10,10 @@ export default class CodeBlock extends CodeFence {
   get markdownToken() {
     return "code_block";
   }
+
+  keys({ type }: { type: NodeType }) {
+    return {
+      "Mod-a": selectAll(type),
+    };
+  }
 }

shared/editor/nodes/CodeFence.ts

@@ -68,6 +68,7 @@ import {
   moveToNextNewline,
   moveToPreviousNewline,
 } from "../commands/codeFence";
+import { selectAll } from "../commands/selectAll";
 import toggleBlockType from "../commands/toggleBlockType";
 import Mermaid from "../extensions/Mermaid";
 import Prism from "../extensions/Prism";
@@ -255,6 +256,7 @@ export default class CodeFence extends Node {
         return newlineInCode(state, dispatch);
       },
       "Shift-Enter": newlineInCode,
+      "Mod-a": selectAll(type),
     };
 
     if (isMac()) {