fiddlerwoaroof/dotfiles - Change ROOBNGQ44S6WTT3KZ3MHOXLETZSJA4UGL3OBWMSBHNYNC5GNL5FQC

chore(emacs): update slime configuration

Created by Ed Langley on December 7, 2019

ROOBNGQ44S6WTT3KZ3MHOXLETZSJA4UGL3OBWMSBHNYNC5GNL5FQC

Dependencies

In channels

main

Change contents

File deletion: dependencies, dependencies
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[3.1] → [4.129:152]
BFD:BFD[4.152] → [4.128:128]

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 3 [5.171]

B:BD[5.252] → [5.252:514]

(add-to-list 'load-path (fwoar-git-repo "3dp/slime/"
                                        "git@github.com:slime/slime.git"
                                        "https://github.com/slime/slime.git"))
(require 'slime)
(use-package slime-company
  :ensure t)

[5.252]

[5.514]


;; (add-to-list 'load-path (fwoar-git-repo "3dp/slime/"
;;                                         "git@github.com:slime/slime.git"
;;                                         "https://github.com/slime/slime.git"))
;; (require 'slime)

Insertion in emacs.d/lisp/configurations/slime-conf.el at line 9 [5.171]
[5.515]
[5.515]

Deletion in emacs.d/lisp/configurations/slime-conf.el at line 22 [5.171]

B:BD[5.988] → [5.988:1724]


(with-eval-after-load "slime"
  (when (or (eq system-type 'gnu/linux)
            (eq system-type 'darwin))
    (define-lisp-implementations
      (abcl  ("abcl"))
      (ccl ("ccl"))
      (clisp ("clisp"))
      (cmucl ("cmucl" "-quiet"))
      (ecl   ("ecl"))
      ;;(mkcl  ("mkcl"))
      ;;(xcl   ("xcl"))
      (sbcl  ("sbcl" "--dynamic-space-size" "8192")))))
(global-set-key (kbd "C-c x") 'slime-export-symbol-at-point)
(when (and (boundp 'common-lisp-hyperspec-root)
           (string-prefix-p "/" common-lisp-hyperspec-root))
  (setq common-lisp-hyperspec-root
        (concat "file://" common-lisp-hyperspec-root)))
;; Replace "sbcl" with the path to your implementation
(setq inferior-lisp-program "~/sbcl/bin/sbcl")

Deletion in emacs.d/lisp/configurations/slime-conf.el at line 31 [5.171]

B:BD[5.2009] → [5.2009:3332]


(add-hook 'lisp-mode-hook 'setup-lisp-mode) 
(add-hook 'emacs-lisp-mode-hook 'setup-lisp-mode) 
(evil-define-key 'normal lisp-mode-map "gd" 'slime-edit-definition)
(modify-syntax-entry ?- "w" lisp-mode-syntax-table)
(modify-syntax-entry ?* "w" lisp-mode-syntax-table)
(modify-syntax-entry ?+ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?! "w" lisp-mode-syntax-table)
(modify-syntax-entry ?$ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?% "w" lisp-mode-syntax-table)
(modify-syntax-entry ?& "w" lisp-mode-syntax-table)
(modify-syntax-entry ?% "w" lisp-mode-syntax-table)
(modify-syntax-entry ?= "w" lisp-mode-syntax-table)
(modify-syntax-entry ?< "w" lisp-mode-syntax-table)
(modify-syntax-entry ?> "w" lisp-mode-syntax-table)
(modify-syntax-entry 91 "(" lisp-mode-syntax-table)
(modify-syntax-entry 93 ")" lisp-mode-syntax-table)
;;(modify-syntax-entry ?@ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?^ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?_ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?~ "w" lisp-mode-syntax-table)
(modify-syntax-entry ?. "w" lisp-mode-syntax-table)
(modify-syntax-entry ?\[ "(]" lisp-mode-syntax-table)
(modify-syntax-entry ?\] ")[" lisp-mode-syntax-table)
(modify-syntax-entry ?\{ "(}" lisp-mode-syntax-table)
(modify-syntax-entry ?\} "){" lisp-mode-syntax-table)

Deletion in emacs.d/lisp/configurations/slime-conf.el at line 32 [5.171]
B:BD[5.3333] → [5.3333:3386]
```
(setq shr-inhibit-images t
      shr-use-fonts nil)
```

Deletion in emacs.d/lisp/configurations/slime-conf.el at line 35 [5.171]

B:BD[5.3521] → [5.3521:3633]


(pushnew (list ?h "Check hyperspec" #'fwoar--clhs-lookup)
         slime-selector-methods
         :key #'car)

Deletion in emacs.d/lisp/configurations/slime-conf.el at line 44 [5.171]
B:BD[5.3979] → [5.3979:4017]
```
(cl-defgeneric fwoar--find-system ())
```

Deletion in emacs.d/lisp/configurations/slime-conf.el at line 49 [5.171]

B:BD[5.4256] → [5.4256:4364]


(pushnew (list ?S "Goto System" #'fwoar--find-system)
         slime-selector-methods
         :key #'car)

Insertion in emacs.d/lisp/configurations/slime-conf.el at line 68 [5.171]

[5.4764]

(defun slime-lw ()
  (interactive)
  (let ((inferior-lisp-program "lw")
        (slime-lisp-implementations nil))
    (slime)))

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 134 [5.171]

B:BD[5.6492] → [5.6492:6800]

(setq slime-contribs '(slime-fancy
                       slime-company
                       slime-macrostep
                       slime-trace-dialog
                       slime-mdot-fu
                       slime-buffer-streams
                       slime-indentation)
      slime-export-save-file t)

[5.6492]

[5.6800]

(use-package slime
  :ensure t
  :load-path  (lambda ()
                (list
                 (fwoar-git-repo "3dp/slime/"
                                 "git@github.com:slime/slime.git"
                                 "https://github.com/slime/slime.git")))
  :config
  (with-eval-after-load "slime"
    (when (or (eq system-type 'gnu/linux)
              (eq system-type 'darwin))
      (define-lisp-implementations
        (abcl  ("abcl"))
        (lw  ("lw"))
        (ccl ("ccl"))
        (clisp ("clisp"))
        (cmucl ("cmucl" "-quiet"))
        (ecl   ("ecl"))
        ;;(mkcl  ("mkcl"))
        ;;(xcl   ("xcl"))
        (sbcl  ("sbcl" "--dynamic-space-size" "8192")))))

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 156 [5.171]
B:BD[5.6801] → [5.6801:6830]
```
(slime-setup slime-contribs)
```
[5.6801]
[5.6830]
```
  (global-set-key (kbd "C-c x") 'slime-export-symbol-at-point)
```

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 158 [5.171]

B:BD[5.6831] → [5.6831:7399]

(defslime-repl-shortcut fwoar--slime-repl-load-asd ("load-asd")
  (:handler (lambda ()
              (interactive)
              (let ((system-files (fwoar--get-asds)))
                (slime-eval-async (cons 'cl:progn
                                        (mapcar (lambda (it)
                                                  `(cl:progn (asdf:load-asd ,it) ,it))
                                                system-files))
                  (lambda (r)
                    (message "Loading ASDs done: %s" r))))))
  (:one-liner "Load asd for current project"))

[5.6831]

[5.7399]

  (when (and (boundp 'common-lisp-hyperspec-root)
             (string-prefix-p "/" common-lisp-hyperspec-root))
    (setq common-lisp-hyperspec-root
          (concat "file://" common-lisp-hyperspec-root)))

Replacement in emacs.d/lisp/configurations/slime-conf.el at line 163 [5.171]

B:BD[5.7400] → [5.7400:8070]

(comment (defslime-repl-shortcut fwoar--slime-repl-quickload ("quickload")
           (:handler (lambda ()
                       (interactive)
                       (let ((system-files (fwoar--get-asds)))
                         (slime-eval-async (cons 'cl:progn
                                                 (mapcar (lambda (it)
                                                           `(cl:progn (asdf:load-asd ,it) ,it))
                                                         system-files))
                           (lambda (r)
                             (message "Loading ASDs done: %s" r))))))
           (:one-liner "Load asd for current project")))

[5.7400]

  ;; Replace "sbcl" with the path to your implementation
  (setq inferior-lisp-program "~/sbcl/bin/sbcl")
  (add-hook 'lisp-mode-hook 'setup-lisp-mode)
  (add-hook 'emacs-lisp-mode-hook 'setup-lisp-mode)
  (evil-define-key 'normal lisp-mode-map "gd" 'slime-edit-definition)
  (modify-syntax-entry ?- "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?* "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?+ "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?! "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?$ "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?% "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?& "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?% "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?= "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?< "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?> "w" lisp-mode-syntax-table)
  (modify-syntax-entry 91 "(" lisp-mode-syntax-table)
  (modify-syntax-entry 93 ")" lisp-mode-syntax-table)
  ;;(modify-syntax-entry ?@ "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?^ "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?_ "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?~ "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?. "w" lisp-mode-syntax-table)
  (modify-syntax-entry ?\[ "(]" lisp-mode-syntax-table)
  (modify-syntax-entry ?\] ")[" lisp-mode-syntax-table)
  (modify-syntax-entry ?\{ "(}" lisp-mode-syntax-table)
  (modify-syntax-entry ?\} "){" lisp-mode-syntax-table)
  (setq shr-inhibit-images t
        shr-use-fonts nil)
  (pushnew (list ?h "Check hyperspec" #'fwoar--clhs-lookup)
           slime-selector-methods
           :key #'car)
  (pushnew (list ?S "Goto System" #'fwoar--find-system)
           slime-selector-methods
           :key #'car)
  (setq slime-contribs '(slime-fancy
                         slime-company
                         slime-macrostep
                         slime-trace-dialog
                         slime-mdot-fu
                         slime-buffer-streams
                         slime-indentation
                         slime-asdf)
        slime-export-save-file t)
  (slime-setup slime-contribs)
  (defslime-repl-shortcut fwoar--slime-repl-load-asd ("load-asd")
    (:handler (lambda ()
                (interactive)
                (let ((system-files (fwoar--get-asds)))
                  (slime-eval-async (cons 'cl:progn
                                          (mapcar (lambda (it)
                                                    `(cl:progn (asdf:load-asd ,it) ,it))
                                                  system-files))
                    (lambda (r)
                      (message "Loading ASDs done: %s" r))))))
    (:one-liner "Load asd for current project"))
  (comment (defslime-repl-shortcut fwoar--slime-repl-quickload ("quickload")
             (:handler (lambda ()
                         (interactive)
                         (let ((system-files (fwoar--get-asds)))
                           (slime-eval-async (cons 'cl:progn
                                                   (mapcar (lambda (it)
                                                             `(cl:progn (asdf:load-asd ,it) ,it))
                                                           system-files))
                             (lambda (r)
                               (message "Loading ASDs done: %s" r))))))
             (:one-liner "Load asd for current project"))))
(use-package slime-company
  :ensure t
  :after slime
  :config (setq slime-company-completion 'fuzzy))