Variable: cperl-style-alist

cperl-style-alist is a variable defined in cperl-mode.el.gz.

Value

(("CPerl"
  (cperl-indent-level . 2)
  (cperl-brace-offset . 0)
  (cperl-continued-brace-offset . 0)
  (cperl-label-offset . -2)
  (cperl-continued-statement-offset . 2)
  (cperl-extra-newline-before-brace)
  (cperl-extra-newline-before-brace-multiline)
  (cperl-merge-trailing-else . t))
 ("PBP"
  (cperl-indent-level . 4)
  (cperl-brace-offset . 0)
  (cperl-continued-brace-offset . 0)
  (cperl-label-offset . -2)
  (cperl-continued-statement-offset . 4)
  (cperl-close-paren-offset . -4)
  (cperl-extra-newline-before-brace)
  (cperl-extra-newline-before-brace-multiline)
  (cperl-merge-trailing-else)
  (cperl-indent-parens-as-block . t)
  (cperl-tab-always-indent . t))
 ("PerlStyle"
  (cperl-indent-level . 4)
  (cperl-brace-offset . 0)
  (cperl-continued-brace-offset . 0)
  (cperl-label-offset . -4)
  (cperl-continued-statement-offset . 4)
  (cperl-extra-newline-before-brace)
  (cperl-extra-newline-before-brace-multiline)
  (cperl-merge-trailing-else . t))
 ("GNU"
  (cperl-indent-level . 2)
  (cperl-brace-offset . 0)
  (cperl-continued-brace-offset . 0)
  (cperl-label-offset . -2)
  (cperl-continued-statement-offset . 2)
  (cperl-extra-newline-before-brace . t)
  (cperl-extra-newline-before-brace-multiline . t)
  (cperl-merge-trailing-else))
 ("K&R"
  (cperl-indent-level . 5)
  (cperl-brace-offset . 0)
  (cperl-continued-brace-offset . -5)
  (cperl-label-offset . -5)
  (cperl-continued-statement-offset . 5)
  (cperl-merge-trailing-else))
 ("BSD"
  (cperl-indent-level . 4)
  (cperl-brace-offset . 0)
  (cperl-continued-brace-offset . -4)
  (cperl-label-offset . -4)
  (cperl-continued-statement-offset . 4))
 ("C++"
  (cperl-indent-level . 4)
  (cperl-brace-offset . 0)
  (cperl-continued-brace-offset . -4)
  (cperl-label-offset . -4)
  (cperl-continued-statement-offset . 4)
  (cperl-extra-newline-before-brace . t)
  (cperl-extra-newline-before-brace-multiline . t)
  (cperl-merge-trailing-else))
 ("Whitesmith"
  (cperl-indent-level . 4)
  (cperl-brace-offset . 0)
  (cperl-continued-brace-offset . 0)
  (cperl-label-offset . -4)
  (cperl-continued-statement-offset . 4))
 ("Current"))

Documentation

List of variables to set to get a particular indentation style.

Should be used via cperl-set-style or via Perl menu.

See examples in cperl-style-examples.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/cperl-mode.el.gz
(defconst cperl-style-alist
  '(("CPerl" ;; =GNU - extra-newline-before-brace + cperl-merge-trailing-else
     (cperl-indent-level               .  2)
     (cperl-brace-offset               .  0)
     (cperl-continued-brace-offset     .  0)
     (cperl-label-offset               . -2)
     (cperl-continued-statement-offset .  2)
     (cperl-extra-newline-before-brace .  nil)
     (cperl-extra-newline-before-brace-multiline .  nil)
     (cperl-merge-trailing-else	       .  t))

    ("PBP"  ;; Perl Best Practices by Damian Conway
     (cperl-indent-level               .  4)
     (cperl-brace-offset               .  0)
     (cperl-continued-brace-offset     .  0)
     (cperl-label-offset               . -2)
     (cperl-continued-statement-offset .  4)
     (cperl-close-paren-offset         . -4)
     (cperl-extra-newline-before-brace .  nil)
     (cperl-extra-newline-before-brace-multiline .  nil)
     (cperl-merge-trailing-else        .  nil)
     (cperl-indent-parens-as-block     .  t)
     (cperl-tab-always-indent          .  t))

    ("PerlStyle"			; CPerl with 4 as indent
     (cperl-indent-level               .  4)
     (cperl-brace-offset               .  0)
     (cperl-continued-brace-offset     .  0)
     (cperl-label-offset               . -4)
     (cperl-continued-statement-offset .  4)
     (cperl-extra-newline-before-brace .  nil)
     (cperl-extra-newline-before-brace-multiline .  nil)
     (cperl-merge-trailing-else	       .  t))

    ("GNU"
     (cperl-indent-level               .  2)
     (cperl-brace-offset               .  0)
     (cperl-continued-brace-offset     .  0)
     (cperl-label-offset               . -2)
     (cperl-continued-statement-offset .  2)
     (cperl-extra-newline-before-brace .  t)
     (cperl-extra-newline-before-brace-multiline .  t)
     (cperl-merge-trailing-else	       .  nil))

    ("K&R"
     (cperl-indent-level               .  5)
     (cperl-brace-offset               .  0)
     (cperl-continued-brace-offset     . -5)
     (cperl-label-offset               . -5)
     (cperl-continued-statement-offset .  5)
     ;;(cperl-extra-newline-before-brace .  nil) ; ???
     ;;(cperl-extra-newline-before-brace-multiline .  nil)
     (cperl-merge-trailing-else	       .  nil))

    ("BSD"
     (cperl-indent-level               .  4)
     (cperl-brace-offset               .  0)
     (cperl-continued-brace-offset     . -4)
     (cperl-label-offset               . -4)
     (cperl-continued-statement-offset .  4)
     ;;(cperl-extra-newline-before-brace .  nil) ; ???
     ;;(cperl-extra-newline-before-brace-multiline .  nil)
     ;;(cperl-merge-trailing-else	       .  nil) ; ???
     )

    ("C++"
     (cperl-indent-level               .  4)
     (cperl-brace-offset               .  0)
     (cperl-continued-brace-offset     . -4)
     (cperl-label-offset               . -4)
     (cperl-continued-statement-offset .  4)
     (cperl-extra-newline-before-brace .  t)
     (cperl-extra-newline-before-brace-multiline .  t)
     (cperl-merge-trailing-else	       .  nil))

    ("Whitesmith"
     (cperl-indent-level               .  4)
     (cperl-brace-offset               .  0)
     (cperl-continued-brace-offset     .  0)
     (cperl-label-offset               . -4)
     (cperl-continued-statement-offset .  4)
     ;;(cperl-extra-newline-before-brace .  nil) ; ???
     ;;(cperl-extra-newline-before-brace-multiline .  nil)
     ;;(cperl-merge-trailing-else	       .  nil) ; ???
     )
    ("Current"))
  "List of variables to set to get a particular indentation style.
Should be used via `cperl-set-style' or via Perl menu.

See examples in `cperl-style-examples'.")