sepia-snippet.el

   1 (eval-when-compile
   2   (require 'snippet))
   3
   4 (defun sepia-snippet-abbrev ()
   5   (require 'snippet nil t)
   6   (when (featurep 'snippet)
   7     (snippet-with-abbrev-table
   8      'sepia-mode-abbrev-table
   9      ("else" . "else {\n$>$.\n}$>")
  10      ("elsif" . "elsif ($${TEST}) {\n$>$.\n}$>")
  11      ("for" . "for ($${LIST}) {\n$>$.\n}$>")
  12      ("foreach" . "foreach my $${VAR} ($${LIST}) {\n$>$.\n}$>")
  13      ("formy" . "for my $${VAR} ($${LIST}) {\n$>$.\n}$>")
  14      ("given" . "given ($${VAR}) {\n$>$.\n}$>")
  15      ("when" . "when ($${TEST}) {\n$>$.\n}$>")
  16      ("if" . "if ($${TEST}) {\n$>$.\n}$>")
  17      ("sub" . "sub $${NAME}\n{\n$>$.\n}$>")
  18      ("unless" . "unless ($${TEST}) {\n$>$.\n}$>")
  19      ("until" . "until ($${TEST}) {\n$>$.\n}$>")
  20      ("while" . "while ($${TEST}) {\n$>$.\n}$>")
  21      ("whilekv" . "while (my ($k, $v) = each $${HASH}) {\n$>$.\n}$>"))))
  22
  23 (add-hook 'sepia-mode-hook 'sepia-snippet-abbrev)