From 699b6fd0b4279170ed62af13af549c7ec188af12 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Tue, 22 Nov 2022 00:12:36 +0100
Subject: Track custom Emacs packages in guix home

---
 emacs-packages/pam-env-mode.el | 45 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 emacs-packages/pam-env-mode.el

(limited to 'emacs-packages/pam-env-mode.el')

diff --git a/emacs-packages/pam-env-mode.el b/emacs-packages/pam-env-mode.el
new file mode 100644
index 00000000..75b0bf94
--- /dev/null
+++ b/emacs-packages/pam-env-mode.el
@@ -0,0 +1,45 @@
+;;; pam-env.el --- Major mode for pam_env.conf(5) files.
+
+;;; Commentary:
+
+;; This major mode font-locks files including ~/.pam_environment and
+;; /etc/security/pam_env.conf, but notably not /etc/environment. Their format is
+;; specified by the pam_env.conf(5) man page.
+
+;; TODO: Only apply font-lock-variable-name-face to variable declarations if
+;; the previous line didn't end with a backslash. The following case didn't
+;; work (some declarations that should've been font-locked weren't):
+;; '("\\(?:^$\\|[^\\\\]\\)[\r\n]\\([^[:blank:]]+\\)"
+;;   1 font-lock-variable-name-face keep)
+
+;; pam_env does not support escaped double quotes ("). Single-quoted strings are
+;; not used as string delimiters. We can only match against word chars in
+;; `pam-env-mode/font-lock-defaults', so make double quotes word chars.
+
+;;; Code:
+
+(defconst pam-env-mode/font-lock-defaults
+  '((("^#+" . font-lock-comment-delimiter-face)
+     ("^#+[[:blank:]]*\\(.*\\)$" 1 font-lock-comment-face)
+     ("\\\\[@$\\]" . font-lock-string-face)          ; escaped $ @ \
+     ("@{[^}]+}" . font-lock-builtin-face)           ; @{}-variable references
+     ("\\${[^}]+}" . font-lock-variable-name-face)   ; ${}-variable references
+     ("\"[^\"]*\"" 0 font-lock-string-face keep)     ; double-quoted strings; escaped " not supported
+     ("\\<\\(DEFAULT\\|OVERRIDE\\)=" . font-lock-keyword-face) ; DEFAULT= and OVERRIDE=
+     ("^[^[:blank:]]+" . font-lock-variable-name-face)         ; variable declarations
+     ("[[:blank:]]+[^[:blank:]]+" . font-lock-warning-face))   ; stray whitespace
+    t nil ((?\' . "w") (?\" . "w")))
+  "Font lock settings for PAM-Environment mode. See `font-lock-defaults' for documentation.")
+
+(define-derived-mode pam-env-mode prog-mode "PAM-Environment"
+  "PAM-environment mode is used for pam_env.conf(5) files."
+  (set (make-local-variable 'comment-start) "#")
+  (set (make-local-variable 'comment-start-skip) "^#+[[:blank:]]*")
+  (set (make-local-variable 'comment-end) "")
+  (set (make-local-variable 'font-lock-defaults) pam-env-mode/font-lock-defaults))
+
+(let ((regexp "\\(\\`\\|/\\)\\(pam_env\\.conf\\|\\.pam_environment\\)\\'"))
+  (add-to-list 'auto-mode-alist `(,regexp . pam-env-mode)))
+
+(provide 'pam-env-mode)
+;;; pam-env.el ends here
-- 
cgit v1.2.3