marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update --lisp

Browse source
This commit is contained in:
Marcus Kammer 2024-04-06 21:56:55 +02:00
parent 17ffdb7137
commit 4f4e5933b8
1 changed files with 21 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
bundle/bundle--lisp.el
View file

@ -1,10 +1,22 @@
(defvar mk/hyperspec-dir-locations
'("~/cl-sites/HyperSpec-7-0/HyperSpec/"
"~/HyperSpec-7-0/HyperSpec/")
"List of possible locations where the local HyperSpec could reside.")
(defun mk/hyperspec-dir ()
"Finds and returns the URI of the local HyperSpec directory.
Uses `mk/hyperspec-dir-locations' to find the directory."
(let ((dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
(if dir
(concat "file://" (and (eq system-type 'windows-nt) "/") dir)
nil)))
(use-package slime
:custom
(slime-autodoc-use-multiline-p 1)
:bind ("C-c C-q" . slime-close-all-parens-in-sexp)
:config
(slime-setup '(slime-autodoc
;; slime-banner
slime-tramp
slime-fancy
slime-asdf
@ -17,6 +29,14 @@
;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
;; * (save-lisp-and-die "sbcl.core-for-slime")
(setq common-lisp-hyperspec-root (mk/hyperspec-dir))
(setq common-lisp-hyperspec-symbol-table
(concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
(setq common-lisp-hyperspec-issuex-table
(concat common-lisp-hyperspec-root "Data/Map_IssX.txt"))
(let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
(if (file-exists-p image-path)
(setq slime-lisp-implementations
@ -24,29 +44,6 @@
(setq slime-lisp-implementations
`((sbcl ("sbcl" "--noinform") :coding-system utf-8-unix)))))
(defvar mk/hyperspec-dir-locations
'("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"
"~/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"
"~/lisp-docs/HyperSpec-7-0/HyperSpec/"
"~/Documents/HyperSpec-7-0/HyperSpec/"
"~/HyperSpec-7-0/HyperSpec/"
"~/cl-sites/HyperSpec/")
"List of possible locations where the local HyperSpec could reside.")
(defun mk/hyperspec-dir ()
"Finds and returns the URI of the local HyperSpec directory.
Uses `mk/hyperspec-dir-locations' to find the directory."
(let ((dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
(if dir (concat "file://" (and (eq system-type 'windows-nt) "/") (expand-file-name dir)) nil)))
(setq common-lisp-hyperspec-root (mk/hyperspec-dir))
(progn
(setq common-lisp-hyperspec-symbol-table
(concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
(setq common-lisp-hyperspec-issuex-table
(concat common-lisp-hyperspec-root "Data/Map_IssX.txt")))
(defvar mk/slime-remote-instances
'((:machine-instance "u1-metalisp"
:remote-host "u1.metalisp.dev"