/usr/share/emacs/site-lisp/sepia/sepia-snippet.el is in sepia 0.991.05-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | (eval-when-compile
(require 'snippet))
(defun sepia-snippet-abbrev ()
(require 'snippet nil t)
(when (featurep 'snippet)
(snippet-with-abbrev-table
'sepia-mode-abbrev-table
("else" . "else {\n$>$.\n}$>")
("elsif" . "elsif ($${TEST}) {\n$>$.\n}$>")
("for" . "for ($${LIST}) {\n$>$.\n}$>")
("foreach" . "foreach my $${VAR} ($${LIST}) {\n$>$.\n}$>")
("formy" . "for my $${VAR} ($${LIST}) {\n$>$.\n}$>")
("given" . "given ($${VAR}) {\n$>$.\n}$>")
("when" . "when ($${TEST}) {\n$>$.\n}$>")
("if" . "if ($${TEST}) {\n$>$.\n}$>")
("sub" . "sub $${NAME}\n{\n$>$.\n}$>")
("unless" . "unless ($${TEST}) {\n$>$.\n}$>")
("until" . "until ($${TEST}) {\n$>$.\n}$>")
("while" . "while ($${TEST}) {\n$>$.\n}$>")
("whilekv" . "while (my ($k, $v) = each $${HASH}) {\n$>$.\n}$>"))))
(add-hook 'sepia-mode-hook 'sepia-snippet-abbrev)
|