TempleOSCD_150216.ISO

AdamKeyPlugIns.CPP

@@ -0,0 +1,173 @@
+//Place this file in /Home and change
+//anything you want.
+
+U0 InsTime()
+{
+  CDate cdt;
+  cdt=Now;
+  "$$IV,1$$----%D %T----$$IV,0$$\n",cdt,cdt;
+}
+
+Bool MyPutKey(I64 ch,I64 sc)
+{//ch=ASCII; sc=scan_code
+
+//See $LK,"Char",A="HI:Char"$ for definition of scan codes.
+//See $LK,"Key Allocations",A="FI:::/Doc/KeyAlloc.TXT"$.
+//See $LK,"Keyboard Devices",A="HI:Keyboard Devices/System"$.
+
+//You can customize keys.  This routine
+//is called before the main editor
+//key handler $LK,"DocPutKey",A="MN:DocPutKey"$().
+//You can intercept any key.
+
+//Return TRUE if you completely
+//handled the key.
+
+  I64 i,sc2=sc.u8[0];
+  U8 *st1,*st2;
+
+  if (SC_F1<=sc2<=SC_F10 &&
+      sc&SCF_ALT &&
+      !(sc & SCF_CTRL)) {
+    switch (sc2) {
+      case SC_F1:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    KeyDescSet("Dollar/LTPURPLE");
+	  else
+	    KeyDescSet("Dollar/PURPLE");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTPURPLE$$";
+	  else
+	    "$$PURPLE$$";
+	}
+	break;
+      case SC_F2:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    KeyDescSet("Dollar/LTRED");
+	  else
+	    KeyDescSet("Dollar/RED");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTRED$$";
+	  else
+	    "$$RED$$";
+	}
+	break;
+      case SC_F3:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    KeyDescSet("Dollar/LTGREEN");
+	  else
+	    KeyDescSet("Dollar/GREEN");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$LTGREEN$$";
+	  else
+	    "$$GREEN$$";
+	}
+	break;
+      case SC_F4:
+	if (sc&SCF_KEY_DESC) {
+	  if (sc & SCF_SHIFT)
+	    KeyDescSet("Dollar/Default Color");
+	  else
+	    KeyDescSet("Dollar/BLUE");
+	} else {
+	  if (sc & SCF_SHIFT)
+	    "$$FG$$";
+	  else
+	    "$$BLUE$$";
+	}
+	break;
+      case SC_F7:
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Misc/Ins Datetime");
+	else
+	  InsTime;
+	break;
+    }
+    return TRUE;
+  } else {
+    if (!(sc & SCF_CTRL)) {
+      if (sc & SCF_ALT) {
+	switch (ch) {
+	  case 'a':
+	    if (sc&SCF_KEY_DESC)
+	      KeyDescSet("Win/AutoComplete(ON);");
+	    else
+	      AutoComplete(ON);
+	    return TRUE;
+	  case 'A':
+	    if (sc&SCF_KEY_DESC)
+	      KeyDescSet("Win/AutoComplete;");
+	    else
+	      AutoComplete;
+	    return TRUE;
+
+	  case 'h':
+	    if (sc&SCF_KEY_DESC)
+	      KeyDescSet("Win/Tile Horizontally");
+	    else
+	      WinTileHorz;
+	    return TRUE;
+	  case 'm':
+	    if (sc&SCF_KEY_DESC)
+	      KeyDescSet("Win/Maximize");
+	    else {
+	      WinMax;
+	      WinBorder;
+	    }
+	    return TRUE;
+	  case 'v':
+	    if (sc&SCF_KEY_DESC)
+	      KeyDescSet("Win/Tile Vertically");
+	    else
+	      WinTileVert;
+	    return TRUE;
+
+	  case 'l':
+	    if (sc&SCF_KEY_DESC)
+	      KeyDescSet("Edit/Put Link to Cur Pos on Clipboard");
+	    else {
+	      ClipboardDel;
+	      st1=FileNameAbs(BIBLE_FILENAME);
+	      st2=FileNameAbs(DocPut->filename.name);
+	      if (!StrCmp(st1,st2)) {
+		Free(st1);
+		st1=BibleLine2Verse(DocPut->cur_entry->y+1,',');
+		DocPrint(sys_clipboard_doc,"$$LK,\"BF:%s\"$$",st1);
+	      } else
+		DocPrint(sys_clipboard_doc,"$$LK,\"FL:%s,%d\"$$",
+		  st2,DocPut->cur_entry->y+1);
+	      Free(st1);
+	      Free(st2);
+	    }
+	    return TRUE;
+	  case 'L':
+	    if (sc&SCF_KEY_DESC)
+	      KeyDescSet("Edit/Place Anchor, Put Link to Clipboard");
+	    else {
+	      i=RandU32;
+	      ClipboardDel;
+	      DocPrint(sys_clipboard_doc,"$$LK,\"<TODO>\",A=\"FA:%s,ANC%d\"$$",
+		DocPut->filename.name,i);
+	      "$$AN,\"<TODO>\",A=\"ANC%d\"$$",i;
+	    }
+	    return TRUE;
+
+	}
+      }
+    }
+  }
+  return FALSE;
+}
+
+Bool MyPutS(U8 *)
+{
+  return FALSE;
+}
+
+KeyDevAdd(&MyPutKey,&MyPutS,0x20000000,TRUE);