185 lines
9.6 KiB
EmacsLisp
185 lines
9.6 KiB
EmacsLisp
;;; systemd-company.el --- company backend for systemd unit directives -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2015 Mark Oteiza <mvoteiza@udel.edu>
|
|
|
|
;; Author: Mark Oteiza <mvoteiza@udel.edu>
|
|
|
|
;; 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 <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
(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 224.")
|
|
|
|
(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/.*<dt id="\([^-][^"]*\)=">.*/\1/p'
|
|
;; Quote, wrap with fill-column at 72, insert into list and indent
|
|
'("Accept" "AccuracySec" "After" "Alias" "AllowIsolate" "Also"
|
|
"AppArmorProfile" "AssertACPower" "AssertArchitecture"
|
|
"AssertCapability" "AssertDirectoryNotEmpty" "AssertFileIsExecutable"
|
|
"AssertFileNotEmpty" "AssertFirstBoot" "AssertHost"
|
|
"AssertKernelCommandLine" "AssertNeedsUpdate" "AssertPathExists"
|
|
"AssertPathExistsGlob" "AssertPathIsDirectory" "AssertPathIsMountPoint"
|
|
"AssertPathIsReadWrite" "AssertPathIsSymbolicLink" "AssertSecurity"
|
|
"AssertVirtualization" "Backlog" "Before" "BindIPv6Only" "BindToDevice"
|
|
"BindsTo" "BlockIOAccounting" "BlockIODeviceWeight"
|
|
"BlockIOReadBandwidth" "BlockIOWeight" "BlockIOWriteBandwidth"
|
|
"Broadcast" "BusName" "BusPolicy" "CPUAccounting" "CPUAffinity"
|
|
"CPUQuota" "CPUSchedulingPolicy" "CPUSchedulingPriority"
|
|
"CPUSchedulingResetOnFork" "CPUShares" "Capabilities"
|
|
"CapabilityBoundingSet" "ConditionACPower" "ConditionArchitecture"
|
|
"ConditionCapability" "ConditionDirectoryNotEmpty"
|
|
"ConditionFileIsExecutable" "ConditionFileNotEmpty" "ConditionFirstBoot"
|
|
"ConditionHost" "ConditionKernelCommandLine" "ConditionNeedsUpdate"
|
|
"ConditionPathExists" "ConditionPathExistsGlob"
|
|
"ConditionPathIsDirectory" "ConditionPathIsMountPoint"
|
|
"ConditionPathIsReadWrite" "ConditionPathIsSymbolicLink"
|
|
"ConditionSecurity" "ConditionVirtualization" "Conflicts"
|
|
"DefaultDependencies" "DefaultInstance" "DeferAcceptSec" "Delegate"
|
|
"Description" "DeviceAllow" "DevicePolicy" "DirectoryMode"
|
|
"DirectoryNotEmpty" "Documentation" "Environment" "EnvironmentFile"
|
|
"ExecReload" "ExecStart" "ExecStartPost" "ExecStartPre" "ExecStop"
|
|
"ExecStopPost" "ExecStopPre" "FailureAction" "FileDescriptorStoreMax"
|
|
"FreeBind" "Group" "GuessMainPID" "IOSchedulingClass"
|
|
"IOSchedulingPriority" "IPTOS" "IPTTL" "IgnoreOnIsolate"
|
|
"IgnoreOnSnapshot" "IgnoreSIGPIPE" "InaccessibleDirectories"
|
|
"JobTimeoutAction" "JobTimeoutRebootArgument" "JobTimeoutSec"
|
|
"JoinsNamespaceOf" "KeepAlive" "KeepAliveIntervalSec" "KeepAliveProbes"
|
|
"KeepAliveTimeSec" "KillMode" "KillSignal" "LimitAS" "LimitCORE"
|
|
"LimitCPU" "LimitDATA" "LimitFSIZE" "LimitLOCKS" "LimitMEMLOCK"
|
|
"LimitMSGQUEUE" "LimitNICE" "LimitNOFILE" "LimitNPROC" "LimitRSS"
|
|
"LimitRTPRIO" "LimitRTTIME" "LimitSIGPENDING" "LimitSTACK"
|
|
"ListenDatagram" "ListenFIFO" "ListenMessageQueue" "ListenNetlink"
|
|
"ListenSequentialPacket" "ListenSpecial" "ListenStream" "MakeDirectory"
|
|
"Mark" "MaxConnections" "MemoryAccounting" "MemoryLimit"
|
|
"MessageQueueMaxMessages" "MessageQueueMessageSize" "MountFlags" "Nice"
|
|
"NoDelay" "NoNewPrivileges" "NonBlocking" "NotifyAccess"
|
|
"OOMScoreAdjust" "OnActiveSec" "OnBootSec" "OnCalendar" "OnFailure"
|
|
"OnFailureJobMode" "OnStartupSec" "OnUnitActiveSec" "OnUnitInactiveSec"
|
|
"Options" "PAMName" "PIDFile" "PartOf" "PassCredentials" "PassSecurity"
|
|
"PathChanged" "PathExists" "PathExistsGlob" "PathModified"
|
|
"PermissionsStartOnly" "Persistent" "Personality" "PipeSize" "Priority"
|
|
"PrivateDevices" "PrivateNetwork" "PrivateTmp" "PropagatesReloadTo"
|
|
"ProtectHome" "ProtectSystem" "ReadOnlyDirectories"
|
|
"ReadWriteDirectories" "RebootArgument" "ReceiveBuffer"
|
|
"RefuseManualStart" "RefuseManualStop" "ReloadPropagatedFrom"
|
|
"RemainAfterExit" "RemoveOnStop" "RequiredBy" "Requires"
|
|
"RequiresMountsFor" "RequiresOverridable" "Requisite"
|
|
"RequisiteOverridable" "Restart" "RestartForceExitStatus"
|
|
"RestartPreventExitStatus" "RestartSec" "RestrictAddressFamilies"
|
|
"ReusePort" "RootDirectory" "RootDirectoryStartOnly" "RuntimeDirectory"
|
|
"RuntimeDirectoryMode" "SELinuxContext" "SELinuxContextFromNet"
|
|
"SecureBits" "SendBuffer" "SendSIGHUP" "SendSIGKILL" "Service" "Slice"
|
|
"SloppyOptions" "SmackLabel" "SmackLabelIPIn" "SmackLabelIPOut"
|
|
"SmackProcessLabel" "SocketGroup" "SocketMode" "SocketUser" "Sockets"
|
|
"SourcePath" "StandardError" "StandardInput" "StandardOutput"
|
|
"StartLimitAction" "StartLimitBurst" "StartLimitInterval"
|
|
"StartupBlockIOWeight" "StartupCPUShares" "StopWhenUnneeded"
|
|
"SuccessExitStatus" "SupplementaryGroups" "Symlinks" "SyslogFacility"
|
|
"SyslogIdentifier" "SyslogLevel" "SyslogLevelPrefix"
|
|
"SystemCallArchitectures" "SystemCallErrorNumber" "SystemCallFilter"
|
|
"TCPCongestion" "TTYPath" "TTYReset" "TTYVHangup" "TTYVTDisallocate"
|
|
"TimeoutIdleSec" "TimeoutSec" "TimeoutStartSec" "TimeoutStopSec"
|
|
"TimerSlackNSec" "Transparent" "Type" "UMask" "Unit" "User"
|
|
"UtmpIdentifier" "WakeSystem" "WantedBy" "Wants" "WatchdogSec" "What"
|
|
"Where" "WorkingDirectory")
|
|
"Configuration directives for systemd 224.")
|
|
|
|
(defconst systemd-company-network-sections
|
|
'("Match" "Link" "NetDev" "VLAN" "MACVLAN" "MACVTAP" "IPVLAN" "VXLAN"
|
|
"Tunnel" "Peer" "Tun" "Tap" "Bond" "Network" "Address" "Route" "DHCP"
|
|
"Bridge" "BridgeFDB")
|
|
"Network configuration sections for systemd 224.")
|
|
|
|
(defconst systemd-company-network-directives
|
|
;; /Network directives/,/Journal fields/p
|
|
'("ARPAllTargets" "ARPIPTargets" "ARPIntervalSec" "ARPProxy" "ARPValidate"
|
|
"AdSelect" "Address" "AllSlavesActive" "AllowPortToBeRoot"
|
|
"Architecture" "BindCarrier" "BitsPerSecond" "Bond" "Bridge"
|
|
"ClientIdentifier" "CopyDSCP" "Cost" "CriticalConnection" "DHCP"
|
|
"DHCPServer" "DNS" "Description" "Destination" "DiscoverPathMTU" "Domains"
|
|
"DownDelaySec" "Driver" "Duplex" "FDBAgeingSec" "FailOverMACPolicy"
|
|
"FallbackDNS" "FallbackNTP" "FastLeave" "Gateway" "GratuitousARP"
|
|
"GroupPolicyExtension" "HairPin" "Host" "Hostname" "IPForward"
|
|
"IPMasquerade" "IPv4LLRoute" "IPv6FlowLabel" "IPv6PrivacyExtensions"
|
|
"IPv6Token" "Id" "KernelCommandLine" "Kind" "L2MissNotification"
|
|
"L3MissNotification" "LACPTransmitRate" "LLDP" "LLMNR" "Label"
|
|
"LearnPacketIntervalSec" "LinkLocalAddressing" "Local" "MACAddress"
|
|
"MACAddressPolicy" "MACVLAN" "MIIMonitorSec" "MTUBytes" "MacLearning"
|
|
"Metric" "MinLinks" "Mode" "MultiQueue" "NTP" "Name" "NamePolicy"
|
|
"OneQueue" "OriginalName" "PacketInfo" "PacketsPerSlave" "Path" "Peer"
|
|
"PrimaryReselectPolicy" "Remote" "RequestBroadcast" "ResendIGMP"
|
|
"RouteMetric" "RouteShortCircuit" "Scope" "SendHostname" "Source" "TOS"
|
|
"TTL" "TransmitHashPolicy" "Tunnel" "UDP6ZeroCheckSumRx"
|
|
"UDP6ZeroChecksumTx" "UDPCheckSum" "UnicastFlood" "UpDelaySec" "UseBPDU"
|
|
"UseDNS" "UseDomains" "UseHostname" "UseMTU" "UseNTP" "UseRoutes" "VLAN"
|
|
"VLANId" "VNetHeader" "VXLAN" "VendorClassIdentifier" "Virtualization"
|
|
"WakeOnLan")
|
|
"Network configuration directives for systemd 224.")
|
|
|
|
(defun systemd-company--setup (enable)
|
|
(when (fboundp 'systemd-company--setup-company)
|
|
(systemd-company--setup-company enable)))
|
|
|
|
(defun systemd-company-section-p ()
|
|
"Return t if current line begins with \"[\", otherwise nil"
|
|
(save-excursion
|
|
(beginning-of-line)
|
|
(looking-at "\\[")))
|
|
|
|
(defun systemd-company-network-p ()
|
|
"Return non-nil if `buffer-name' has a network-type extension, otherwise nil"
|
|
(string-match "\\.\\(link\\|netdev\\|network\\)\\'" (buffer-name)))
|
|
|
|
(with-eval-after-load "company"
|
|
(defun systemd-company-backend (command &optional arg &rest ignored)
|
|
(interactive (list 'interactive))
|
|
(cl-case command
|
|
(interactive (company-begin-backend 'systemd-company-backend))
|
|
(prefix (and (eq major-mode 'systemd-mode)
|
|
(company-grab-symbol)))
|
|
(candidates
|
|
(cl-remove-if-not
|
|
(lambda (c) (string-prefix-p arg c))
|
|
(if (systemd-company-network-p)
|
|
(if (systemd-company-section-p)
|
|
systemd-company-network-sections
|
|
systemd-company-network-directives)
|
|
(if (systemd-company-section-p)
|
|
systemd-company-unit-sections
|
|
systemd-company-unit-directives))))))
|
|
(defun systemd-company--setup-company (enable)
|
|
(when enable
|
|
(add-to-list (make-local-variable 'company-backends) 'systemd-company-backend))
|
|
(company-mode (if enable 1 -1))))
|
|
|
|
(provide 'systemd-company)
|
|
|
|
;;; systemd-company.el ends here
|