Skip to main content

bugs - How can I get Mathematica to support the clipboard?


For several decades, the clipboard feature supported by all mainstream operating systems has functioned as a method of exchange between applications (not just within them), by serving as a kind of clearinghouse for formats potentially useful to recipient applications. In this model it is the source application's responsibility to provide formats of general utility to recipient applications, particularly basic textual and Unicode representations.


For example, if I copy an image from my Web browser, the clipboard includes not only several different image formats (e.g. BMP, TIFF, etc.) but also textual formats (both plain text and Unicode) that can be used by recipient applications unable to make sense of the image formats. In this case, a URL from where the image can be retrieved.


Mathematica however does not do this.


If, for example I copy


abcdefg

from a Notebook, the clipboard does not contain any textual format of use to a text-based recipient application, but instead has three textual formats, all of which contain



a\\
b\\
c\\
d\\
e\\
f\\
g

which is entirely useless almost everywhere.


Mathematica seems to offer a simple though somewhat awkward workaround in the form of a "Copy as Text..." command (and a corresponding keyboard shortcut). But this doesn't work as required either: for example



αβγδϵ

copied "as text" puts


\[Alpha]\[Beta]\[Gamma]\[Delta]\[Epsilon]

on the clipboard in all textual formats (including "unicode"!)! And simply copying is even worse, causing Mathematica to freeze when a paste is attempted, and yielding


Å’±\
Å’≤\
Å’≥\
Å’¥\

ϵ

only after Mathematica (and in some cases the receiving application as well) has been terminated (by "Force Quitting")!


This is so nonsensical (did Wolfram miss the memo from the 80s about how clipboards work?) that there must be something I'm missing: How do I configure Mathematica to support standard clipboard behavior?



Note that a version (sort of the reverse) of this odd clipboard behavior occurs even outside the Notebook interface. If I use the Mathematica shell in my command line program (Terminal on OS X), while I can copy text like αβγδϵ from the shell to other applications as expected, copying within the Mathematica shell fails entirely: nothing appears at all when I paste!



For anyone interested in exploring these oddities more deeply, on OS X, simply run the clipboard as record in any AppleScript tool after copying from Mathematica.




Comments

Post a Comment

Popular posts from this blog

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...
Post a Comment
Read more

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...
Post a Comment
Read more

plotting - How to draw lines between specified dots on ListPlot?

I would like to create a plot where I have unconnected dots and some connected. So far, I have figured out how to draw the dots. My code is the following: ListPlot[{{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4,13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full] I have thought using ListLinePlot command, but I don't know how to specify to the command to draw only selected lines between the dots. Do have any suggestions/hints on how to do that? Thank you. Answer One possibility would be to use Epilog with Line : ListPlot[ {{1, 1}, {2, 2}, {3, 3}, {4, 4}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {1, 7}, {2, 8}, {3, 9}, {4, 10}, {1, 10}, {2, 11}, {3, 12}, {4, 13}, {2.5, 7}}, Ticks -> {{1, 2, 3, 4}, None}, AxesStyle -> Thin, TicksStyle -> Directive[Black, Bold, 12], Mesh -> Full, Epilog -> { Line[ ...
Post a Comment
Read more