Is there a way to copy and paste code snippets from SE to Mathematica if these snippets are interspersed with text?
Like e.g. in Morphing Graphics, color and location in both the question and answer, there are code blocks separated by text and graphics.
Pasting this into Mathematica in n steps is tiresome. Perhaps there is some nice way to make pasting as comfortable as the other way round with the code and graphics palettes?
The following code uses the 2.0 version of the SE API and has also been cleaned up a bit (place it in your kernel's init.m or your custom functions package if you'd like to be able to use it anytime).
The function takes a single string argument, which is the URL obtained from the share link under a question/answer.
Example
importCode[url_String] :=
With[{
filterCode = StringCases[#, ("<pre><code>" ~~ ("\n" ...) ~~ x__ ~~ ("\n" ...) ~~
"</code></pre>") /; StringFreeQ[x, "<pre><code>" | "</code></pre>"] :> x] &,
convertEntities = StringReplace[#,
{">" -> ">", "<" -> "<", "&" -> "&", """ -> "\""}] &,
makeCodeCell = Scan[NotebookWrite[EvaluationNotebook[],
Cell[Defer@#, "Input", CellTags -> "Ignore"]] &, Flatten@{#}] &,
postInfo = Import[ToString@
StringForm["http://api.stackexchange.com/2.1/posts/`1`?site=`2`&filter=!9hnGsretg",
#3, #1] & @@ {First@StringCases[#, Shortest[s__] ~~ "." ~~ ___ :> s], #2, #3} & @@
StringSplit[StringDrop[url, 7], "/"][[;; 3]], "JSON"]},
OptionValue["items" /. postInfo, "body"] // filterCode // convertEntities //
makeCodeCell]
NOTE: I don't do any rigorous error checking or check to see if you're entering a valid Stack Exchange URL or if the question/answer is deleted (deleted posts cannot be accessed via the API), etc. So if you get any errors, it might be worthwhile to check if there's something wrong on the site.
Also, SE API limits you to 300 calls/day/IP, if I remember correctly. That's quite a lot of calls for any reasonable person and ideally, you shouldn't cross that. Nevertheless, a possibility of being throttled is something to keep in mind if you also happen to be playing with the API for other purposes such as site statistics, etc.
importCode[] := importCode[ First@Cases[NotebookGet@ClipboardNotebook[], Cell[x_, ___] :> x, Infinity]] which will copy whatever is in the clipboard (no checks to see if it is a URL or not), but I don't think this is useful as the chances of you having forgotten and copied something else is high... pasting it as an argument shouldn't be hard and I would prefer explicit over clipboard copy :)
$\endgroup$
NotebookWrite instead of CellPrint according to the discussion in mathematica.stackexchange.com/q/269955/1871. Feel free to rollback if you don't like it :) .
$\endgroup$
You could do something like this:
string = "(Paste Here)"
exps = Select[
string ~StringSplit~ "\n\n",
SyntaxQ@# && ! MatchQ[MakeExpression@#, _@__Times | _@Null] &];
CellPrint@Cell[#, "Input"] & ~Scan~ exps
Map[f, #]& @ x in that case? :o)
$\endgroup$
Commented
Mar 24, 2012 at 9:55
Times[___] (such as this is text and not code) or Null (such as a line return).
$\endgroup$
Commented
Mar 26, 2012 at 0:24
I posted a possible answer for this on meta (Download questions or chats for offline reading), but perhaps it belongs here on the main site instead. I have a paclet that downloads a stack exchange question url, and creates a notebook version where code blocks are evaluatable.
It can be downloaded from:
https://github.com/carlwoll/Stack-Exchange-Stylesheet/releases/tag/v0.1-alpha
Download the .paclet file, and then run:
PacletInstall[file]
To use, do:
<<StackExchange`
NotebookPut @ StackExchangeView["http://mathematica.stackexchange.com/q/3535/45431"]
where I use this question as an example (the NotebookPut won't be necessary when the paclet is final). The following is snippet of what the notebook output looks like:
I use Import[url, "XMLObject"] instead of the Stack Exchange api (since I didn't know about the api when I started), so I need to investigate the merits of using the api or not.
It is also possible to use style key tabbing (tab at the start of a cell), shift-enter and right click to modify "StackExchange" styled cells to a markdown version, a hybrid WYSIWIG version, or a deployed version (although this aspect is a bit buggy). This is what the notebook looks like after converting the snippet to the deployed version:
As you can see, the deployed version still needs work (h2 and * formatting)
Feed back is welcomed.
The StackAPI answer seems really nice, however it failed for me when I tested it, so I coded a bare bones implimentation which simply pulls out any code blocks from an arbitrary html page, without needing it to be from stackexchange, or even well formed html:
codeBlocks[url_] := CellPrint[
Cell[#, "Input"] & /@
StringCases[Import[url, "Source"],
"<pre><code>" ~~ p : (Shortest[___]) ~~ "</code></pre>" :> p]]
StackAPI`GetCode["http://meta.mathematica.stackexchange.com/a/307/5"], which returned a set of errors from StringCasesand StringReplace. Seems like the call to the API is failing, returning {"answers" -> {}, "page" -> 1, "pagesize" -> 30, "total" -> 0} from the Import.
$\endgroup$