Initial (manual) import

TempleOSCD/HomeKeyPlugIns.HC

@@ -0,0 +1,202 @@
+//Place this file in /Home and change
+//anything you want.
+
+U0 TimeIns()
+{
+  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.DD"$.
+  //See $LK,"Keyboard Devices",A="HI:Keyboard Devices/System"$.
+
+  //You can customize keys.  This routine
+  //is called before the main editor
+  //key hndlr $LK,"DocPutKey",A="MN:DocPutKey"$().
+  //You can intercept any key.
+
+  //Return TRUE if you completely
+  //handled the key.
+  I64 i;
+  U8 *st1,*st2;
+  if (sc&SCF_ALT && !(sc&SCF_CTRL)) {
+    switch (ch) {
+      case 0:
+	switch (sc.u8[0]) {
+	  case SC_F1:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /LTPURPLE");
+	      else
+		"$$LTPURPLE$$";
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /PURPLE");
+	      else
+		"$$PURPLE$$";
+	    }
+	    return TRUE;
+	  case SC_F2:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /LTRED");
+	      else
+		"$$LTRED$$";
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /RED");
+	      else
+		"$$RED$$";
+	    }
+	    return TRUE;
+	  case SC_F3:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /LTGREEN");
+	      else
+		"$$LTGREEN$$";
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /GREEN");
+	      else
+		"$$GREEN$$";
+	    }
+	    return TRUE;
+	  case SC_F4:
+	    if (sc&SCF_SHIFT) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /Default Color");
+	      else
+		"$$FG$$";
+	    } else {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Dol /BLUE");
+	      else
+		"$$BLUE$$";
+	    }
+	    return TRUE;
+	  case SC_F7:
+	    if (!(sc&SCF_SHIFT)) {
+	      if (sc&SCF_KEY_DESC)
+		KeyDescSet("Cmd /TimeIns");
+	      else
+		TimeIns;
+	    }
+	    return TRUE;
+	}
+	break;
+      case 'a':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /AutoComplete On");
+	else
+	  AutoComplete(ON);
+	return TRUE;
+      case 'A':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /AutoComplete Off");
+	else
+	  AutoComplete;
+	return TRUE;
+      case 'h':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /WinTileHorz");
+	else
+	  WinTileHorz;
+	return TRUE;
+      case 'm':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /WinMax");
+	else {
+	  WinBorder;
+	  WinMax;
+	}
+	return TRUE;
+      case 'v':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Cmd /WinTileVert");
+	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;
+
+	//Ins your own ALT-key plug-ins
+      case '1':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /ã");
+	else
+	  'ã';
+	return TRUE;
+      case '2':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /é");
+	else
+	  'é';
+	return TRUE;
+      case '3':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /è");
+	else
+	  'è';
+	return TRUE;
+      case '4':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /ê");
+	else
+	  'ê';
+	return TRUE;
+      case '9':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /Indent 5");
+	else
+	  "$$ID,5$$";
+	return TRUE;
+      case '0':
+	if (sc&SCF_KEY_DESC)
+	  KeyDescSet("Dol /Unindent 5");
+	else
+	  "$$ID,-5$$";
+	return TRUE;
+    }
+  }
+  return FALSE;
+}
+
+Bool MyPutS(U8 *)
+{
+  return FALSE;
+}
+
+KeyDevAdd(&MyPutKey,&MyPutS,0x20000000,TRUE);