mbk/nix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sly stuff

Browse source
This commit is contained in:
mehbark 2024-12-19 19:55:54 -05:00
parent 664cdb07f5
commit 6c83113939
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
init.el.nix
View file

@ -144,9 +144,6 @@ If the new path's directories does not exist, create them."
;;; ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Show the help buffer after startup
; (add-hook 'after-init-hook 'help-quick)
;; which-key: shows a popup of available keybindings when typing a long key ;; which-key: shows a popup of available keybindings when typing a long key
;; sequence (e.g. C-x ...) ;; sequence (e.g. C-x ...)
(use-package which-key (use-package which-key
@ -814,7 +811,8 @@ If the new path's directories does not exist, create them."
(use-package sly :ensure t (use-package sly :ensure t
:init :init
(setq inferior-lisp-program "${pkgs.sbcl}/bin/sbcl") (setq inferior-lisp-program "${pkgs.sbcl}/bin/sbcl"
sly-symbol-completion-mode nil)
:config :config
(setq common-lisp-hyperspec-root "${pkgs.sbclPackages.hyperspec}/docs/" (setq common-lisp-hyperspec-root "${pkgs.sbclPackages.hyperspec}/docs/"
;common-lisp-hyperspec-symbol-table (concat common-lisp-hyperspec-root "Data/Map_Sym.txt") ;common-lisp-hyperspec-symbol-table (concat common-lisp-hyperspec-root "Data/Map_Sym.txt")
@ -889,6 +887,11 @@ If the new path's directories does not exist, create them."
(shell-command "sudo nixos-rebuild switch") (shell-command "sudo nixos-rebuild switch")
(restart-emacs)) (restart-emacs))
(defun geiser-or-sly-doc ()
(if sly-mode
(sly-documentation)
(geiser-doc-symbol-at-point)))
(use-package evil-leader (use-package evil-leader
:ensure t :ensure t
:config :config
@ -925,6 +928,8 @@ If the new path's directories does not exist, create them."
"sil" 'geiser-load-file "sil" 'geiser-load-file
; it's funny how you find the thing you really need eventually ; it's funny how you find the thing you really need eventually
"sii" 'geiser-repl-switch "sii" 'geiser-repl-switch
; (not scheme, sorry)
"sis" 'sly
; ss => scheme send ; ss => scheme send
"sss" 'geiser-eval-last-sexp "sss" 'geiser-eval-last-sexp
@ -948,13 +953,10 @@ If the new path's directories does not exist, create them."
"st" 'transpose-sexps "st" 'transpose-sexps
"s?" 'paredit-convolute-sexps "s?" 'paredit-convolute-sexps
"sH" 'backward-sexp "sk" 'backward-sexp
"sL" 'forward-sexp "sj" 'forward-sexp
; sort of out-of-place feeling "sd" 'geiser-or-sly-doc
"sb" 'geiser-squarify
"sd" 'geiser-doc-symbol-at-point
; killing is common enough to be worth its own prefix ; killing is common enough to be worth its own prefix
; non-lisp killing is more than covered by normal vim stuff lol ; non-lisp killing is more than covered by normal vim stuff lol