I tried to add a hyperlink to the text using the shortcut Ctrl+Shit+H to open the Zotero application;
but every time MMA notebook adds the "https" prefix by default, and can only be manually remove using the Ctrl+Shift+E shortcut. Is there a way to disable the "https" prefix feature.
Any reply is much appreciated!
It seems like the front-end, called via MathLink`CallFrontEnd[Hyperlink`InsertHyperlinkPacket[...]], only allows a limited set of URI schemes, namely http, https, file, mailto, ftp, paclet, news, gopher, mail, nntp, wais, telnet, vbscript, javascript, mocca, nfs, about. Since zotero is not among them, https is automatically used. I don't think you can overcome this, since it seems to be hard-coded in the front-end kernel. I am offering two possible workarounds.
Create links as you would normally do. Then, use the following code to create a palette, which will find all occurences of zotero links in the selected notebook and replace https://zotero:// with zotero://. Warning: I have tested this only on a small notebook, so make sure to save your notebook before using this!
CreatePalette[DynamicModule[{count = ""},
Column@{Button["Fix zotero links",
count = 0;
Table[With[{content = NotebookRead[cell]},
SelectionMove[cell, All, Cell];
If[!FreeQ[content, ButtonBox[__, ButtonData -> {URL[s_ /; StringStartsQ[s,
"https://zotero://"]], ___}, ___]],
NotebookWrite[cell,
content /. b_ButtonBox :> (count++;
b /. s_String :>
StringReplace[s, "https://zotero://" -> "zotero://"])];
]
], {cell, Cells[SelectedNotebook[]]}];
count = StringTemplate["Fixed `` links!"][count]
], Dynamic[count]}],
WindowTitle -> "Fix links", Saveable -> False];
The following code will create a dialog which can be used to insert a new link without any processing. The code works only for making links in text.
With[{nb = EvaluationNotebook[]},
DynamicModule[{link},
CreateDialog[{TextCell["Link: "], InputField[Dynamic[link], String],
Button["Insert Hyperlink", Paste[nb,
Module[{text =
First[FrontEndExecute[
FrontEnd`ExportPacket[BoxData@NotebookRead[nb],
"InputText"]]]},
ToExpression@
ButtonBox[text, BaseStyle -> "Hyperlink",
ButtonData -> {URL[link], None}, ButtonNote -> link]]]]}]]];
