diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-09-10 08:06:31 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-09-10 08:06:31 +0200 |
| commit | e6435dda31d0893b7257c88cd5c374809fe14b3b (patch) | |
| tree | 68f5b174e6624aa02268a21cf6580214e3f74657 | |
| parent | cea1ecc901c41239ee35e18dc403e71a40025d4c (diff) | |
Update README
| -rw-r--r-- | README.org | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -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 |
