From 1bd65af5071873f6d550012da5d43c0508e98aeb Mon Sep 17 00:00:00 2001 From: John Turner Date: Tue, 12 Aug 2025 12:10:42 -0400 Subject: init --- cil-mode.el | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 cil-mode.el (limited to 'cil-mode.el') diff --git a/cil-mode.el b/cil-mode.el new file mode 100644 index 0000000..74ad689 --- /dev/null +++ b/cil-mode.el @@ -0,0 +1,37 @@ +;;; cil-mode.el --- major mode for selinux cil -*- lexical-binding: t; -*- + +;; Copyright (C) 2025 John Turner + +;; Author: John Turner +;; Keywords: + +;; 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 . + +;;; Code: + +(require 'rx) + +(put 'block 'lisp-indent-function 4) + +(defvar cil-mode--font-lock-defaults + `((,(rx (group (or "in" "block" "macro")) eow) + 0 font-lock-keyword-face))) + +(define-derived-mode cil-mode lisp-data-mode "cil" + (setq-local font-lock-defaults cil-mode--font-lock-defaults)) + +(add-to-list 'auto-mode-alist '("\\.cil\\'" . cil-mode)) + +(provide 'cil-mode) +;;; cil-mode.el ends here -- cgit v1.2.3