diff options
| -rw-r--r-- | emacs/elisp/my-work.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/emacs/elisp/my-work.el b/emacs/elisp/my-work.el index bdd917c..f0c59d8 100644 --- a/emacs/elisp/my-work.el +++ b/emacs/elisp/my-work.el @@ -6,5 +6,16 @@ "Return t if this is a work machine." (string-match "HQ\\.*" (system-name))) +(defun my/work-code-search () + "Search code on sourcegraph for a given language." + (interactive) + (let ((language (completing-read + "Language: " + '("Ruby" "Python" "Go"))) + (code (read-string "Code: "))) + (browse-url + (concat "https://sourcegraph.rbx.com/search?q=context:global+lang:" language + "+" code)))) + (provide 'my-work) ;;; my-work.el ends here |