From 0f178ecd7b7f18005e1607150b015f28a5186b64 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 18 Nov 2023 14:03:12 -0800 Subject: Added quickdocs lookup functions --- init-el.org | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/init-el.org b/init-el.org index a9efa57..2f82715 100644 --- a/init-el.org +++ b/init-el.org @@ -1451,6 +1451,16 @@ from debian contrib #+name: common-lisp-mode-command #+begin_src elisp :results none +(defun common-lisp-quickdocs-lookup () + (interactive) + (let ((package-name (delete ?: (format "%s" (symbol-at-point))))) + (eww (format "https://quickdocs.org/%s" package-name)))) + +(defun common-lisp-quickdocs-search (term) + (interactive "sTerm: ") + (eww (format "https://quickdocs.org/-/search?%s" + (url-build-query-string (list (list "q" term)))))) + (def-my-command my-lisp-mode-command '((?' "['] open slime repl" my-switch-to-slime) (?c "[c]ompile form" slime-compile-defun) @@ -1462,6 +1472,8 @@ from debian contrib (?d "[d]ocumentation" slime-documentation) (?\t "[TAB] inspect-presentation" slime-inspect-presentation-at-point) (?B "Open CLTL2 [B]ook" open-cltl2) + (?q "[q]ickdocs lookup" common-lisp-quickdocs-lookup) + (?Q "[Q]uickdocs Query" common-lisp-quickdocs-search) (?b "[b]rows system" slime-browse-system) (?h "[h]yperspec lookup" hyperspec-lookup))) -- cgit v1.2.3