branch: externals/nftables-mode
commit a207b02bd63ff4c883f2bbce419788e18b41d779
Author: Lars Ingebrigtsen <la...@gnus.org>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
Lightly edited, adding some of the normal conventions for .el files
---
nftables-mode.el | 55 +++++++++++++++++++++++++++++++++++++++----------------
1 file changed, 39 insertions(+), 16 deletions(-)
diff --git a/nftables-mode.el b/nftables-mode.el
index ebb31b140b..2a39ac25ea 100644
--- a/nftables-mode.el
+++ b/nftables-mode.el
@@ -1,3 +1,28 @@
+;;; nftables-mode.el --- Major mode for editing nftables -*- lexical-binding:
t -*-
+
+;; Copyright (C) 2021 Free Software Foundation, Inc
+
+;; Author: trentb...@gmail.com (Trent W. Buck)
+;; Maintainer: emacs-de...@gnu.org
+;; Version: 1.0
+;; Package-Requires: ((emacs "25.1"))
+;; Keywords: convenience
+
+;; This package 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, or (at your option)
+;; any later version.
+
+;; This package 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 GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
(require 'rx)
(require 'syntax) ; syntax-ppss, for indentation
@@ -41,9 +66,9 @@
;;; add table inet foo
;;; add chain inet foo bar { type filter hook input priority
filter; policy drop }
;;; add rule inet foo bar predicate [counter] [log]
<accept|drop|reject>
+
(defvar nftables-font-lock-keywords
- `(
- ;; include "foo"
+ `(;; include "foo"
;; list ruleset
;; flush ruleset
(,(rx bol
@@ -63,7 +88,7 @@
(,(rx bol
(group (or "define" "redefine" "undefine"))
" "
- (group (one-or-more (any alnum ?_ ?.)))
+ (group (one-or-more (any alnum ?_)))
eow)
(1 font-lock-type-face)
(2 font-lock-variable-name-face))
@@ -115,10 +140,7 @@
(3 font-lock-variable-name-face)
(4 font-lock-variable-name-face))
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;; REMAINING RULES NOT ANCHORED AT BEGINNING-OF-LINE
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;; Remaining rules not anchored at beginning-of-line.
;; << chain specification >>
;; { type filter hook input priority filter; }
@@ -228,7 +250,7 @@
;; @array
(,(rx (or "@" "$")
alpha
- (zero-or-more (any alnum ?_ ?.)))
+ (zero-or-more (any alnum ?_)))
. font-lock-variable-name-face)
;; Simplified because scanner.l is INSANE for IPv6.
@@ -268,18 +290,14 @@
" "
(group (one-or-more (any alnum ?_)))) ; chain_expr
(1 font-lock-function-name-face)
- (2 font-lock-variable-name-face))
-
-
- ))
-
+ (2 font-lock-variable-name-face))))
;;; Based on equivalent for other editors:
;;; * /usr/share/nano/nftables.nanorc
;;; * https://github.com/nfnty/vim-nftables
;;;###autoload
(define-derived-mode nftables-mode prog-mode "nft"
- "FIXME docstring"
+ "Major mode to edit nftables files."
(setq-local comment-start "#")
(setq-local font-lock-defaults
`(nftables-font-lock-keywords nil nil))
@@ -295,15 +313,20 @@
(save-excursion
(back-to-indentation)
(let ((depth (car (syntax-ppss))))
- (if (= ?\) (char-syntax (char-after)))
- (setq depth (1- depth)))
+ (when (= ?\) (char-syntax (char-after)))
+ (setq depth (1- depth)))
(indent-line-to (* depth tab-width)))
(setq old-point (point)))
(when (< (point) old-point)
(back-to-indentation))))
+;;;###autoload
(add-to-list 'auto-mode-alist '("\\.nft\\(?:ables\\)?\\'" . nftables-mode))
+;;;###autoload
(add-to-list 'auto-mode-alist '("/etc/nftables.conf" . nftables-mode))
+;;;###autoload
(add-to-list 'interpreter-mode-alist '("nft\\(?:ables\\)?" . nftables-mode))
(provide 'nftables-mode)
+
+;;; nftables-mode.el enads here.
