From b4ce0367b4bd36c2f0fd6dffe4b1a24a11f165f9 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Fri, 25 Mar 2022 11:04:40 -0700 Subject: work: add function to search on sourcegraph --- emacs/elisp/my-work.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'emacs') 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 -- cgit 1.4.1