From e264e506da3beac27981866d668be51fc3726136 Mon Sep 17 00:00:00 2001
From: Sharoy Veduchi <61427449+doodayev@users.noreply.github.com>
Date: Tue, 13 Jun 2023 21:16:28 -0700
Subject: [PATCH] Added hotkey for GodDoodle

---
 src/System/DolDoc/DocPutKey.ZC | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/System/DolDoc/DocPutKey.ZC b/src/System/DolDoc/DocPutKey.ZC
index fa782149..d8af2633 100755
--- a/src/System/DolDoc/DocPutKey.ZC
+++ b/src/System/DolDoc/DocPutKey.ZC
@@ -447,9 +447,21 @@ public U0 DocPutKey(CDoc *doc, I64 ch=0, I64 sc=0)
 
 									case SC_F6:
 										if (sc & SCF_KEY_DESC)
-											KeyDescSet("Cmd /God Song");
+										{
+											if (sc & SCF_SHIFT)
+												KeyDescSet("Cmd /God Doodle");
+											else
+												KeyDescSet("Cmd /God Song");
+										}
 										else
+										{
+											if(sc & SCF_SHIFT) {
+												DocUnlock(doc);
+												GodDoodle;
+												DocLock(doc);
+											} else
 											GodSong;
+										}
 										break;
 
 									case SC_F7: