changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate emacs/lib/slime-cape.el

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
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
1
 ;;; slime-cape.el --- slime completion backend for cape mode -*-lexical-binding:t-*-
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
2
 
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
3
 ;; This mode technically just connect slime-company to Cape mode
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
4
 ;;
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
5
 ;; See Also:
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
6
 ;;
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
7
 ;; [slime-company](https://github.com/anwyn/slime-company)
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
8
 ;; [cape](https://github.com/minad/cape)
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
9
 
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
10
 ;; Author: ccQpein
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
11
 ;; URL: https://github.com/ccqpein/slime-cape
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
12
 ;; Version: 0.1.0
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
13
 ;; Keywords: cape, corfu, slime, lisp
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
14
 ;; Package-Requires: ((slime-company "1.6"))
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
15
 
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
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
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
18
 (require 'slime-company)
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
19
 (require 'cape)
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
20
 
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
21
 (defvar cape-slime-backend (cape-company-to-capf #'company-slime))
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
22
 
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
23
 (define-slime-contrib slime-cape
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
24
   (:authors "ccQpein")
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
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
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
32
 
648
926d95e5fdc7 cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents: 629
diff changeset
33
 (defun slime-cape-enable ()
622
c0062541039f plz work
Richard Westhaver <ellis@rwest.io>
parents: 44
diff changeset
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
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
37
 
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
38
 (provide 'slime-cape)
cc85ab013035 added slime-cape, config stuff
ellis <ellis@rwest.io>
parents:
diff changeset
39
 ;;; slime-cape.el ends here