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-21 05:22:45 -08:00
parent 7b03b977ac
commit 4dfd389998
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
init.el
View File

@ -1875,9 +1875,6 @@ 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)
@ -1893,6 +1890,8 @@ line in the block and manually deal with indentation."
(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)
(setq common-lisp-hyperspec-root
(concat "file://" (expand-file-name "~/src/clhs/HyperSpec/")))
(defun my/-hyperspec-loopup-in-eww (oldfun &rest r) (defun my/-hyperspec-loopup-in-eww (oldfun &rest r)
(let ((browse-url-browser-function #'eww-browse-url)) (let ((browse-url-browser-function #'eww-browse-url))
(apply oldfun r))) (apply oldfun r)))