work: add function to search on sourcegraph

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