From e6435dda31d0893b7257c88cd5c374809fe14b3b Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sun, 10 Sep 2023 08:06:31 +0200 Subject: Update README --- README.org | 18 +++++++++--------- 1 file 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 -- cgit v1.0