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

Merge branch 'main' of git.sr.ht:~marcuskammer/emacs.d

Browse source
This commit is contained in:
Marcus Kammer 2023-12-24 15:01:39 +01:00
commit b7a27d6e39
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bundle/bundle--lisp.el
View file

@ -12,12 +12,13 @@
slime-editing-commands slime-editing-commands
slime-sbcl-exts)) slime-sbcl-exts))
;; To create a slime specific sbcl image:
;; shell$ sbcl ;; shell$ sbcl
;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf)) ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
;; * (save-lisp-and-die "sbcl.core-for-slime") ;; * (save-lisp-and-die "sbcl.core-for-slime")
(let ((image-path (expand-file-name "~/sbcl.core-for-slime"))) ;; (let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
(setq slime-lisp-implementations ;; (setq slime-lisp-implementations
`((sbcl ("sbcl" "--core" ,image-path))))) ;; `((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix))))
(defvar mk/hyperspec-dir-locations (defvar mk/hyperspec-dir-locations
'("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/" '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"
@ -79,7 +80,6 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
rear-nonsticky rear-nonsticky
(slime-repl-prompt read-only font-lock-face intangible)))))) (slime-repl-prompt read-only font-lock-face intangible))))))
(use-package elisp-mode (use-package elisp-mode
:ensure nil :ensure nil
:hook ((emacs-lisp-mode . prettify-symbols-mode) :hook ((emacs-lisp-mode . prettify-symbols-mode)
@ -91,8 +91,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
:hook ((lisp-mode . prettify-symbols-mode) :hook ((lisp-mode . prettify-symbols-mode)
(lisp-mode . (lambda () (lisp-mode . (lambda ()
(setq-local lisp-indent-function 'common-lisp-indent-function) (setq-local lisp-indent-function 'common-lisp-indent-function)
(set-face-attribute 'font-lock-function-name-face nil :underline t) (face-remap-add-relative 'font-lock-function-name-face nil :underline t)
(set-face-attribute 'font-lock-keyword-face nil :slant 'italic)))) (face-remap-add-relative 'font-lock-keyword-face nil :slant 'italic))))
:mode (("\\.lisp$" . lisp-mode) :mode (("\\.lisp$" . lisp-mode)
("\\.lsp$" . lisp-mode) ("\\.lsp$" . lisp-mode)
("\\.cl$" . lisp-mode)) ("\\.cl$" . lisp-mode))