diff options
| author | colin <colin@cicadas.surf> | 2023-11-18 14:03:12 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-11-18 14:03:12 -0800 |
| commit | 0f178ecd7b7f18005e1607150b015f28a5186b64 (patch) | |
| tree | 5dca5405901d33bd57b7c29a66a1e5e0a8c04575 | |
| parent | 884670d13fc509e5be32dfb28db0d1131ca624ce (diff) | |
Added quickdocs lookup functions
| -rw-r--r-- | init-el.org | 12 |
1 files changed, 12 insertions, 0 deletions
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))) |