From 42ba97c086c473f8abc52108ca6ceb276525e027 Mon Sep 17 00:00:00 2001 From: Anastasios Grammenos Date: Tue, 22 Sep 2020 16:35:27 +0300 Subject: company-mode backend --- fcomp-company.el | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 fcomp-company.el (limited to 'fcomp-company.el') diff --git a/fcomp-company.el b/fcomp-company.el new file mode 100644 index 0000000..9fda462 --- /dev/null +++ b/fcomp-company.el @@ -0,0 +1,46 @@ +;;; fcomp-company.el --- -*- lexical-binding: t; -*- + +;; Copyright (C) 2019 Anastasis Grammenos + +;; Author: Anastasis Grammenos +;; Keywords: lisp +;; Version: 0.0.1 + +;; This program 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. + +;; This program 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 . + +;;; Commentary: + +;; company-mode bakcjed for fcomp. + +;;; Install: + +;; (require 'fcomp-company) +;; (add-to-list 'company-backends 'company-fcomp) + +;;; Code: + +(require 'fcomp) +(require 'company) + +(defun company-fcomp (command &optional arg &rest ignored) + (interactive (list 'interactive)) + (cl-case command + (interactive (company-begin-backend 'company-fcomp)) + (prefix (company-grab-symbol)) + (candidates (fcomp-get-canditates arg)) + (sorted t) + (duplicates nil))) + +(provide 'fcomp-company) +;;; fcomp.el ends here -- cgit v1.2.3