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

Move hyperspec config to slime package

Browse source
This commit is contained in:
Marcus Kammer 2023-10-20 11:30:52 +02:00
parent b741ec1a4c
commit 642e1b3c64
1 changed files with 34 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
bundle/bundle--package.el
View file

@ -285,25 +285,7 @@
(defun g-init-lisp-font-lock () (defun g-init-lisp-font-lock ()
(setq font-lock-defaults g-cl-font-lock-defaults)) (setq font-lock-defaults g-cl-font-lock-defaults))
(add-hook 'lisp-mode-hook 'g-init-lisp-font-lock) (add-hook 'lisp-mode-hook 'g-init-lisp-font-lock))
(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/"
"~/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-prefix (if (eq system-type 'windows-nt) "file:///" "file://"))
(dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
(if dir (concat dir-prefix (expand-file-name dir)) nil)))
(setq common-lisp-hyperspec-root (mk/hyperspec-dir)))
(use-package cc-mode (use-package cc-mode
:defer t :defer t
@ -410,20 +392,6 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
(slime-autodoc-use-multiline-p 1) (slime-autodoc-use-multiline-p 1)
:bind ("C-c C-q" . slime-close-all-parens-in-sexp) :bind ("C-c C-q" . slime-close-all-parens-in-sexp)
:config :config
(slime-setup '(slime-autodoc
;; slime-banner
slime-tramp
slime-fancy
slime-asdf
slime-indentation
slime-editing-commands
slime-sbcl-exts))
(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")))
;; (if (eq system-type 'windows-nt) ;; (if (eq system-type 'windows-nt)
;; (setq sbcl-exe "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe" ;; (setq sbcl-exe "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.exe"
;; sbcl-core "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core" ;; sbcl-core "C:\\Program Files\\Steel Bank Common Lisp\\sbcl.core"
@ -434,6 +402,39 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
;; (when (file-exists-p helper) ;; (when (file-exists-p helper)
;; (load-file helper))) ;; (load-file helper)))
(slime-setup '(slime-autodoc
;; slime-banner
slime-tramp
slime-fancy
slime-asdf
slime-indentation
slime-editing-commands
slime-sbcl-exts))
(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/"
"~/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-prefix (if (eq system-type 'windows-nt) "file:///" "file://"))
(dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
(if dir (concat dir-prefix (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 (defvar mk/slime-remote-instances
'((:machine-instance "u1-metaebene" '((:machine-instance "u1-metaebene"
:remote-host "u1.metaebene.dev" :remote-host "u1.metaebene.dev"