Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix hyperspec

Browse Source
This commit is contained in:
Alexander Rosenberg 2025-01-12 01:42:58 -08:00
parent 21d861dbd0
commit 7b03b977ac
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
init.el
View File

@ -1875,6 +1875,9 @@ line in the block and manually deal with indentation."
:bind (:map sly-mode-map :bind (:map sly-mode-map
("C-c e" . my/diagnostic-at-point)) ("C-c e" . my/diagnostic-at-point))
:autoload sly-connected-p :autoload sly-connected-p
:custom
(common-lisp-hyperspec-root
(concat "file://" (expand-file-name "~/src/clhs/HyperSpec/")))
:init :init
(defun my/-lisp-mode-autoconnect-sly () (defun my/-lisp-mode-autoconnect-sly ()
(unless (sly-connected-p) (unless (sly-connected-p)
@ -1889,7 +1892,11 @@ line in the block and manually deal with indentation."
(kbd ",") 'self-insert-command) (kbd ",") 'self-insert-command)
(evil-define-key nil sly-mrepl-mode-map (evil-define-key nil sly-mrepl-mode-map
(kbd "C-c ,") 'sly-mrepl-shortcut) (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 ;; pdf-tools
(use-package pdf-tools (use-package pdf-tools