Add repl linkages: doc, source, macroexpand-1, and macroexpand.

Author: hata

Default (OSX).sublime-keymap

@@ -1,3 +1,7 @@
 [
   { "keys": ["ctrl+super+shift+n"], "command": "clojure_inline_namespace_refactoring" },
+  // { "keys": [""], "command": "clojure_repl_doc" },
+  // { "keys": [""], "command": "clojure_repl_source" },
+  // { "keys": [""], "command": "clojure_repl_macroexpand1" },
+  // { "keys": [""], "command": "clojure_repl_macroexpand" },
 ]

Default.sublime-commands

@@ -2,5 +2,21 @@
   {
     "caption": "Refactor inline namespace in clojure.",
     "command": "clojure_inline_namespace_refactoring",
-  }
+  },
+  {
+    "caption": "doc -> REPL.",
+    "command": "clojure_repl_doc",
+  },
+  {
+    "caption": "source  -> REPL.",
+    "command": "clojure_repl_source",
+  },
+  {
+    "caption": "macroexpand-1 -> REPL.",
+    "command": "clojure_repl_macroexpand1",
+  },
+  {
+    "caption": "macroexpand -> REPL.",
+    "command": "clojure_repl_macroexpand",
+  },
 ]

README.md

@@ -29,7 +29,21 @@ ln -s `pwd`/sublime-clojure $HOME/Library/Application\ Support/Sublime\ Text\ 3/
 
 ### Plugins
 
-#### Extract inline namespace phrase
+#### Send to REPL
+
+0. Send a symbol of the cursol with **`clojure.repl/doc`** to sublime-REPL.
+
+0. Send a symbol of the cursol with **`clojure.repl/source`** to sublime-REPL.
+
+0. Send a block of the cursol with **`clojure.core/macroexpand-1`** to sublime-REPL.
+
+0. Send a block of the cursol with **`clojure.core/macroexpand`** to sublime-REPL.
+
+The above commands are not registered in [keymap](Default (OSX).sublime-keymap).
+You may use on **[command palette](Default.sublime-commands) (`Command + Shift + P`)**.
+
+
+#### Extract inline namespace or package modification
 
 Consider a code like following.
 
@@ -148,6 +162,7 @@ Support [Planck](http://planck-repl.org/).
 ### Plugins
 
 * clojure_inline_namespace_refactoring.py
+* clojure_repl_sender.py
 
 ### Command Mappings
 

clojure_repl_sender.py

@@ -0,0 +1,51 @@
+import sublime, sublime_plugin
+
+sublime.CLASS_WORD_START | sublime.CLASS_WORD_END
+
+def cursol_symbol(v):
+	pos = v.sel()[0].begin()
+	cls = sublime.CLASS_WORD_START | sublime.CLASS_WORD_END
+	r = v.expand_by_class(pos, cls, " ({[;")
+	_r = v.find(r"[-/\w\d.]+[-\w\d]", r.begin())
+	return v.substr(_r)
+
+def cursol_block(v):
+	# pos = v.sel()[0].begin()
+	# cls = sublime.CLASS_PUNCTUATION_START | sublime.CLASS_PUNCTUATION_END
+	strs = []
+	v.run_command("expand_selection", {"to": "brackets"})
+	v.run_command("expand_selection", {"to": "brackets"})
+	for s in v.sel():
+		strs.append(v.substr(s))
+	return "\n\n".join(strs)
+
+def repl_external_id(v):
+	return v.scope_name(0).split(" ")[0].split(".", 1)[1] # may be "clojure"
+
+def repl_send(v, text):
+	external_id = repl_external_id(v)
+	v.run_command("repl_send", {"external_id": external_id, "text": text})
+
+class ClojureReplDocCommand(sublime_plugin.TextCommand):
+	def run(self, edit):
+		v = self.view
+		text = "(println) (clojure.repl/doc {})".format(cursol_symbol(v))
+		repl_send(v, text)
+
+class ClojureReplSourceCommand(sublime_plugin.TextCommand):
+	def run(self, edit):
+		v = self.view
+		text = "(println) (clojure.repl/source {})".format(cursol_symbol(v))
+		repl_send(v, text)
+
+class ClojureReplMacroexpand1Command(sublime_plugin.TextCommand):
+	def run(self, edit):
+		v = self.view
+		text = "(println) (clojure.core/macroexpand-1 '{})".format(cursol_block(v))
+		repl_send(v, text)
+
+class ClojureReplMacroexpandCommand(sublime_plugin.TextCommand):
+	def run(self, edit):
+		v = self.view
+		text = "(println) (clojure.core/macroexpand '{})".format(cursol_block(v))
+		repl_send(v, text)