summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2023-09-10 08:06:31 +0200
committerDaniel Mendler <mail@daniel-mendler.de>2023-09-10 08:06:31 +0200
commite6435dda31d0893b7257c88cd5c374809fe14b3b (patch)
tree68f5b174e6624aa02268a21cf6580214e3f74657
parentcea1ecc901c41239ee35e18dc403e71a40025d4c (diff)
Update README
-rw-r--r--README.org18
1 files changed, 9 insertions, 9 deletions
diff --git a/README.org b/README.org
index 1acc9e0..b26f9bc 100644
--- a/README.org
+++ b/README.org
@@ -147,30 +147,30 @@ small example completion backend, which can be used with both
~completion-at-point~ (Corfu, default completion) and Company.
#+begin_src emacs-lisp
-(defvar emojis
+(defvar demo-alist
'((":-D" . "😀")
(";-)" . "😉")
(":-/" . "😕")
(":-(" . "🙁")
(":-*" . "😙")))
-(defun emoji-backend (action &optional arg &rest _)
+(defun demo-backend (action &optional arg &rest _)
(pcase action
('prefix (and (memq (char-before) '(?: ?\;))
(cons (string (char-before)) t)))
- ('candidates (all-completions arg emojis))
- ('annotation (concat " " (cdr (assoc arg emojis))))
+ ('candidates (all-completions arg demo-alist))
+ ('annotation (concat " " (cdr (assoc arg demo-alist))))
('post-completion
(let ((str (buffer-substring (- (point) 3) (point))))
(delete-region (- (point) 3) (point))
- (insert (cdr (assoc str emojis)))))))
+ (insert (cdr (assoc str demo-alist)))))))
-;; Register emoji backend with `completion-at-point'
+;; Register demo backend with `completion-at-point'
(setq completion-at-point-functions
- (list (cape-company-to-capf #'emoji-backend)))
+ (list (cape-company-to-capf #'demo-backend)))
-;; Register emoji backend with Company.
-(setq company-backends '(emoji-backend))
+;; Register demo backend with Company.
+(setq company-backends '(demo-backend))
#+end_src
It is possible to merge multiple Company backends and use them as a single Capf