From 7b03b977ac9b64349a0876d5ed920c174a224813 Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Sun, 12 Jan 2025 01:42:58 -0800 Subject: [PATCH] Fix hyperspec --- init.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 510f857..a94ed00 100644 --- a/init.el +++ b/init.el @@ -1875,6 +1875,9 @@ line in the block and manually deal with indentation." :bind (:map sly-mode-map ("C-c e" . my/diagnostic-at-point)) :autoload sly-connected-p + :custom + (common-lisp-hyperspec-root + (concat "file://" (expand-file-name "~/src/clhs/HyperSpec/"))) :init (defun my/-lisp-mode-autoconnect-sly () (unless (sly-connected-p) @@ -1889,7 +1892,11 @@ line in the block and manually deal with indentation." (kbd ",") 'self-insert-command) (evil-define-key nil sly-mrepl-mode-map (kbd "C-c ,") 'sly-mrepl-shortcut) - (sly-symbol-completion-mode -1)) + (sly-symbol-completion-mode -1) + (defun my/-hyperspec-loopup-in-eww (oldfun &rest r) + (let ((browse-url-browser-function #'eww-browse-url)) + (apply oldfun r))) + (advice-add 'hyperspec-lookup :around #'my/-hyperspec-loopup-in-eww)) ;; pdf-tools (use-package pdf-tools