From bf39be20e4f03ee727d13affcf5549b9994c0d73 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Sat, 30 Apr 2016 00:09:57 -0400 Subject: [PATCH] assimilate systemd-company.el into systemd.el hopefully didn't break everything \o/ * eventual goal is to have the large lists generated at byte compile time from the text files now present in the repo. updating the lists in lisp is very annoying * capf completion now exists and draws from the same infrastructure * added capability to add a "=" after company completion of a directive * systemd-use-company-p still works, but does not need to exist --- systemd-company.el | 190 --------------------------------------------- systemd.el | 174 +++++++++++++++++++++++++++++++++++++++-- 2 files changed, 168 insertions(+), 196 deletions(-) delete mode 100644 systemd-company.el diff --git a/systemd-company.el b/systemd-company.el deleted file mode 100644 index 3b482c0..0000000 --- a/systemd-company.el +++ /dev/null @@ -1,190 +0,0 @@ -;;; systemd-company.el --- company backend for systemd unit directives -*- lexical-binding: t -*- - -;; Copyright (C) 2015-2016 Mark Oteiza - -;; Author: Mark Oteiza - -;; 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: - -;;; Code: - -(eval-when-compile (require 'cl-lib)) - -(declare-function company-mode "company") -(declare-function company-begin-backend "company") -(declare-function company-grab-symbol "company") - -(defconst systemd-company-unit-sections - '("Unit" "Install" "Service") - "Configuration sections for systemd 225.") - -(defconst systemd-company-unit-directives - ;; TODO: keep a script of sorts for generating this list. systemd - ;; source has a python script in tools/ for parsing the - ;; documentation xml for the unit directives. - ;; - ;; forcer on freenode threw together a curl monstrosity for achieving - ;; the same: - ;; curl -s http://www.freedesktop.org/software/systemd/man/systemd.directives.html | tr -d '\n' | sed 's/>/>\n/g' | sed -ne '/Unit directives/,/Options on the kernel/p' | sed -ne 's/.*
/>\n/g' | sed -ne '/Unit directives/,/Options on the kernel/p' | sed -ne 's/.*