Skip to content

Instantly share code, notes, and snippets.

@michaelphines
Last active November 7, 2021 19:25
Show Gist options
  • Star 3 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save michaelphines/8818209 to your computer and use it in GitHub Desktop.
Save michaelphines/8818209 to your computer and use it in GitHub Desktop.
# ClojureHelpers.py for Sublime Text 3
# originally by James MacCaulley
# https://gist.github.com/jamesmacaulay/5457344
import re
import sublime
import sublime_plugin
import SublimeREPL.sublimerepl
import SublimeREPL.text_transfer
class RefreshNamespacesInReplCommand(SublimeREPL.text_transfer.ReplTransferCurrent):
def run(self, edit):
text = "(clojure.tools.namespace.repl/refresh)"
self.view.window().run_command("repl_send", {"external_id": self.repl_external_id(), "text": text})
class SwitchToCurrentNamespaceInReplCommand(SublimeREPL.text_transfer.ReplTransferCurrent):
def run(self, edit):
if SublimeREPL.sublimerepl.manager.repl_view(self.view):
return
ns = re.sub("ns\s*", "", self.view.substr(self.view.find("ns\s*\S+",0)))
text = "(in-ns '" + ns + ")"
self.view.window().run_command("repl_send", {"external_id": self.repl_external_id(), "text": text})
class RunAllClojureTestsFromProjectInReplCommand(SublimeREPL.text_transfer.ReplTransferCurrent):
def run(self, edit):
form = "(do (clojure.tools.namespace.repl/refresh) (apply clojure.test/run-tests (clojure.tools.namespace.find/find-namespaces-in-dir (clojure.java.io/file \"test\"))))"
self.view.window().run_command("refresh_namespaces_in_repl")
self.view.window().run_command("repl_send", {"external_id": self.repl_external_id(), "text": form})
class RunClojureTestsFromCurrentNamespaceInReplCommand(SublimeREPL.text_transfer.ReplTransferCurrent):
def run(self, edit):
if SublimeREPL.sublimerepl.manager.repl_view(self.view):
return
ns = re.sub("ns\s*", "", self.view.substr(self.view.find("ns\s*\S+",0)))
default_test_ns = re.sub("(.*)(?<!-test)\\Z","\\1-test", ns, 1)
alt_style_test_ns = re.sub("\A([^\\.]*\\.)(?!test)","\\1test.", ns, 1)
form = "(try (clojure.test/run-tests '" + default_test_ns + ")\n (catch Exception e\n (clojure.test/run-tests '" + alt_style_test_ns + ")))"
self.view.window().run_command("refresh_namespaces_in_repl")
self.view.window().run_command("repl_send", {"external_id": self.repl_external_id(), "text": form})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment