sepia-snippet.el

   1 (eval-when-compile
   2   (require 'snippet))
   3
   4 (defun sepia-snippet-abbrev ()
   5   (snippet-with-abbrev-table
   6    'sepia-mode-abbrev-table
   7    ("for" . "for my $${VAR} ($${LIST}) {\n$>$.\n}$>")
   8    ("foreach" . "foreach my $${VAR} ($${LIST}) {\n$>$.\n}$>")
   9    ("if" . "if ($${TEST}) {\n$>$.\n}$>")
  10    ("elsif" . "elsif ($${TEST}) {\n$>$.\n}$>")
  11    ("else" . "else {\n$>$.\n}$>")
  12    ("unless" . "unless ($${TEST}) {\n$>$.\n}$>")
  13    ("while" . "while ($${TEST}) {\n$>$.\n}$>")
  14    ("until" . "until ($${TEST}) {\n$>$.\n}$>")
  15    ("for" . "for my $${VAR} ($${LIST}) {\n$>$.\n}$>")
  16    ("sub" . "sub $${NAME}\n{\n$>$.\n}$>")))
  17
  18 (add-hook 'sepia-mode-hook 'sepia-snippet-abbrev)