ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
60 lines
2.2 KiB
EmacsLisp
60 lines
2.2 KiB
EmacsLisp
;;; term/eshell/autoload/company.el -*- lexical-binding: t; -*-
|
|
;;;###if (modulep! :completion company)
|
|
|
|
;; REVIEW Refactor me
|
|
|
|
(defvar company-pcomplete-available 'unknown)
|
|
|
|
(defun company-pcomplete--prefix ()
|
|
(with-no-warnings
|
|
(let* ((pcomplete-stub)
|
|
pcomplete-seen
|
|
pcomplete-norm-func
|
|
pcomplete-args
|
|
pcomplete-last pcomplete-index
|
|
(pcomplete-autolist pcomplete-autolist)
|
|
(pcomplete-suffix-list pcomplete-suffix-list))
|
|
(pcomplete-completions)
|
|
(buffer-substring (pcomplete-begin) (point)))))
|
|
|
|
(defun company-pcomplete--candidates ()
|
|
(with-no-warnings
|
|
(let* ((pcomplete-stub)
|
|
(pcomplete-show-list t)
|
|
pcomplete-seen pcomplete-norm-func
|
|
pcomplete-args pcomplete-last pcomplete-index
|
|
(pcomplete-autolist pcomplete-autolist)
|
|
(pcomplete-suffix-list pcomplete-suffix-list)
|
|
(candidates (pcomplete-completions))
|
|
(prefix (buffer-substring (pcomplete-begin) (point)))
|
|
;; Collect all possible completions for the current stub
|
|
(cnds (all-completions pcomplete-stub candidates))
|
|
(bnds (completion-boundaries pcomplete-stub candidates nil ""))
|
|
(skip (- (length pcomplete-stub) (car bnds))))
|
|
;; Replace the stub at the beginning of each candidate by the prefix
|
|
(mapcar (lambda (cand)
|
|
(concat prefix (substring cand skip)))
|
|
cnds))))
|
|
|
|
;;;###autoload
|
|
(defun company-pcomplete-available ()
|
|
(when (eq company-pcomplete-available 'unknown)
|
|
(condition-case _err
|
|
(progn
|
|
(company-pcomplete--candidates)
|
|
(setq company-pcomplete-available t))
|
|
(error
|
|
(message "Company: pcomplete not found")
|
|
(setq company-pcomplete-available nil))))
|
|
company-pcomplete-available)
|
|
|
|
;;;###autoload
|
|
(defun company-pcomplete (command &optional _arg &rest ignored)
|
|
"`company-mode' completion backend using `pcomplete'."
|
|
(interactive (list 'interactive))
|
|
(cl-case command
|
|
(interactive (company-begin-backend 'company-pcomplete))
|
|
(prefix (when (company-pcomplete-available)
|
|
(company-pcomplete--prefix)))
|
|
(candidates (company-pcomplete--candidates))
|
|
(sorted t)))
|