changeset 648: | 926d95e5fdc7 |
parent: | ab02408636b7 |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Thu, 12 Sep 2024 16:48:47 -0400 |
permissions: | -rw-r--r-- |
description: | cli/multi and slime-cape fixes |
44 | 1 | ;;; slime-cape.el --- slime completion backend for cape mode -*-lexical-binding:t-*- |
2 | ||
3 | ;; This mode technically just connect slime-company to Cape mode |
|
4 | ;; |
|
5 | ;; See Also: |
|
6 | ;; |
|
7 | ;; [slime-company](https://github.com/anwyn/slime-company) |
|
8 | ;; [cape](https://github.com/minad/cape) |
|
9 | ||
10 | ;; Author: ccQpein |
|
11 | ;; URL: https://github.com/ccqpein/slime-cape |
|
12 | ;; Version: 0.1.0 |
|
13 | ;; Keywords: cape, corfu, slime, lisp |
|
14 | ;; Package-Requires: ((slime-company "1.6")) |
|
15 | ||
16 | (require 'slime) |
|
648
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
17 | (require 'slime-repl) |
44 | 18 | (require 'slime-company) |
19 | (require 'cape) |
|
20 | ||
21 | (defvar cape-slime-backend (cape-company-to-capf #'company-slime)) |
|
22 | ||
23 | (define-slime-contrib slime-cape |
|
24 | (:authors "ccQpein") |
|
25 | (:swank-dependencies swank-arglists) |
|
648
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
26 | (:on-load |
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
27 | (dolist (h '(slime-mode-hook slime-repl-mode-hook sldb-mode-hook)) |
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
28 | (add-hook h 'slime-cape-enable))) |
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
29 | (:on-unload |
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
30 | (dolist (h '(slime-mode-hook slime-repl-mode-hook sldb-mode-hook)) |
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
31 | (remove-hook h 'slime-cape-enable)))) |
44 | 32 | |
648
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
33 | (defun slime-cape-enable () |
622 | 34 | (interactive) |
648
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
35 | (push cape-slime-backend completion-at-point-functions) |
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
629
diff
changeset
|
36 | (push cape-slime-backend slime-completion-at-point-functions)) |
44 | 37 | |
38 | (provide 'slime-cape) |
|
39 | ;;; slime-cape.el ends here |