branch: externals/kind-icon
commit c8a43e5445950a0b3427a3a50bf77808dddc4bd2
Author: JD Smith <93749+jdtsm...@users.noreply.github.com>
Commit: JD Smith <93749+jdtsm...@users.noreply.github.com>
Initial
---
corfu-kind-prefix.el | 129 +++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 129 insertions(+)
diff --git a/corfu-kind-prefix.el b/corfu-kind-prefix.el
new file mode 100644
index 0000000..9e6f560
--- /dev/null
+++ b/corfu-kind-prefix.el
@@ -0,0 +1,129 @@
+;;; corfu-kind-prefix.el --- Kind prefixes in corfu -*- lexical-binding: t -*-
+
+;; Copyright (C) 2021 J.D. Smith
+
+;; Author: J.D. Smith
+;; Homepage: https://github.com/jdtsmith/corfu-kind-prefix
+;; Package-Requires: ((emacs "27.1"))
+;; Package-Version: 0.0.1
+;; Keywords: completion
+
+;;; Commentary:
+
+;; This package adds a prefix based on :company-kind for corfu,
+;; e.g. for differentiating variables, functions, etc. in completion.
+;; It works by adding a custom affixation-function, if none yet
+;; exists.
+
+;; company-kind-prefix is free software: you can redistribute it
+;; and/or modify it under the terms of the GNU General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+
+;; Python-MLS is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;; General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Code:
+
+(require 'corfu)
+
+(defgroup corfu-kind nil
+ "Corfu prefixes from :company-kind."
+ :group 'convenience
+ :prefix "corfu-kind")
+
+(defcustom corfu-kind-mapping ;; adapted from company
+ '((array "a" font-lock-type-face)
+ (boolean "b" font-lock-builtin-face)
+ (class "c" font-lock-type-face)
+ (color "#" success)
+ (constant "c" font-lock-constant-face)
+ (enum-member "e" font-lock-builtin-face)
+ (enum "e" font-lock-builtin-face)
+ (field "f" font-lock-variable-name-face)
+ (file "f" font-lock-string-face)
+ (folder "d" font-lock-doc-face)
+ (interface "i" font-lock-type-face)
+ (keyword "k" font-lock-keyword-face)
+ (method "m" font-lock-function-name-face)
+ (function "f" font-lock-function-name-face)
+ (module "{" font-lock-type-face)
+ (numeric "n" font-lock-builtin-face)
+ (operator "o" font-lock-comment-delimiter-face)
+ (parameter "p" font-lock-builtin-face)
+ (property "p" font-lock-variable-name-face)
+ (ruler "r" shadow)
+ (snippet "S" font-lock-string-face)
+ (string "s" font-lock-string-face)
+ (struct "%" font-lock-variable-name-face)
+ (text "tx" shadow)
+ (value "v" font-lock-builtin-face)
+ (variable "va" font-lock-variable-name-face)
+ (t "." shadow))
+ "Mapping of the text kinds.
+The format should be an alist of (KIND text FG) which is used to
+propertize the short TEXT to be shown for a candidate of kind
+KIND. FG can either be a color string or a face from which we can
+get a color string (using the :foreground face-property). The
+background is automatically computed to lie between the corfu
+background color and FG (see `corfu-kind-blend-frac')."
+ :type 'list)
+
+(defcustom corfu-kind-blend-frac 0.12
+ "Fractional blend between foreground and background colors.
+This is used for the background for the short-text kind
+prefixes."
+ :type 'float)
+
+(defsubst corfu-kind--rgb-blend (rgb1 rgb2 frac)
+ "Return a fractional blend between two colors RGB1 and RGB2.
+Each is a 3 element list. The fractional blend point is the
+float FRAC."
+ (apply #'color-rgb-to-hex
+ (cl-mapcar (lambda (a b)
+ (+ (* a frac) (* b (- 1.0 frac))))
+ rgb1 rgb2)))
+
+(defun corfu-kind--affixation-function (candidates)
+ "Supply an abbreviated form of the candidate kind as an affixation prefix.
+Only operates if an affixation-function is not already
+present. Candidate kind is taken from `:company-kind'. Applies a
+foreground color based on matching font-lock faces for the
+candidate type, and a background mixed between this color and the
+`corfu-background' face's background color."
+ (let ((kind-func (plist-get corfu--extra :company-kind))
+ (ann (or (corfu--metadata-get corfu--metadata 'annotation-function)
+ (plist-get corfu--extra :annotation-function)))
+ (bg-rgb (color-name-to-rgb
+ (face-attribute 'corfu-background :background))))
+
+ (mapcar (lambda (cand)
+ (if-let ((kind (funcall kind-func cand))
+ (suffix (if ann (funcall ann cand) ""))
+ (mapping (assq kind corfu-kind-mapping))
+ (prefix (cadr mapping))
+ (col (face-attribute (caddr mapping) :foreground))
+ (bg-col (corfu-kind--rgb-blend (color-name-to-rgb col)
bg-rgb
+ corfu-kind-blend-frac)))
+ (list cand
+ (propertize prefix 'face
+ `(:weight bold :foreground ,col :background
,bg-col))
+ suffix)
+ (list cand "u" suffix)))
+ candidates)))
+
+(defun corfu-kind--setup ()
+ (if (and completion-in-region-mode
+ (plist-get corfu--extra :company-kind)
+ (not (or (corfu--metadata-get corfu--metadata 'affixation-function)
+ (plist-get corfu--extra :affixation-function))))
+ (plist-put corfu--extra :affixation-function
+ #'corfu-kind--affixation-function)))
+
+;;;###autoload
+(advice-add #'corfu--setup :after #'corfu-kind--setup)
