bind Ctrl+N to New Document in CUA layout

taviso · Jan 28, 2023 · 51f53ca · 51f53ca
1 parent d15eec3
commit 51f53ca
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/cua.wpk b/cua.wpk
diff --git a/macro/macros/newdoc.mac b/macro/macros/newdoc.mac
@@ -0,0 +1,20 @@
+/* vim: set ft=cpp: */
+
+#include "macro.h"
+#include "system.h"
+#include "utils.h"
+
+#pragma title New Document
+
+// Find the first document blank document.
+require(STATE_NORMAL)
+
+// This is used for the CUA Keyboard Layout, Ctrl+N "New"
+for (doc, system(SYS_NUMBER) + 1, 9, 1)
+    {home}$(doc)
+    if (system(SYS_DOCUMENT) $eq 256)
+        {quit}
+    endif
+endfor
+
+status(`Error: Maximum open documents reached`) wait(30) status(``)