share/misc/NetBSD.el

   1 ;; $NetBSD: NetBSD.el,v 1.5 2007/09/24 15:38:11 christos Exp $
   2
   3 (defconst netbsd-knf-style
   4   '(
   5    ;; (c-auto-newline . nil)
   6    ;; default indentation level
   7    (c-basic-offset . 8)
   8    ;; in which column to add backslashes when macroizing a region
   9    (c-backslash-column . 78)
  10    (c-backslash-max-column . 78)
  11    ;; automatically compact brace-else(if)-brace on one line and
  12    ;; semi-colon after closing struct brace
  13    (c-cleanup-list . (brace-else-brace
  14                       brace-elseif-brace
  15                       defun-close-semi))
  16    ;; do not indent lines containing only start-of-comment more than default
  17    (c-comment-only-line-offset . 0)
  18    ;; start new lines after braces
  19    ;; default is: before and after (for all other cases)
  20    (c-hanging-braces-alist . ((defun-open . (before after))
  21                               (defun-close . (before after))
  22                               (block-open . (after))
  23                               (block-close . c-snug-do-while)
  24                               (substatement-open . after)
  25                               (statement-case-open . nil)
  26                               (brace-list-open . after)
  27                               (brace-list-close . nil)
  28                               ))
  29    ;; where to put newlines around colons
  30    (c-hanging-colons-alist . (quote ((label after)
  31                                      (case-label after))))
  32    ;; indent comments syntactically
  33    (c-indent-comments-syntactically-p . t)
  34    ;; no spaces needed before a label
  35    ;; (c-label-minimum-indentation . 0)
  36    ;; define offsets for some code parts
  37    (c-offsets-alist . ((arglist-cont-nonempty . 4)
  38                        (block-open        . 0)
  39 ;;                     (block-open        . -)
  40                        (brace-list-open   . +)
  41                        (brace-list-intro  . +)
  42                        (brace-list-entry  . 0)
  43                        (brace-list-close  . 0)
  44                        (knr-argdecl       . 0)
  45                        (knr-argdecl-intro . +)
  46                        (label             . -)
  47                        (member-init-intro . ++)
  48                        (statement-cont    . 4)
  49                        (substatement-open . 0)
  50                        (case-label        . 0)))
  51    ;; XXX: undocumented. Recognize KNR style?
  52    (c-recognize-knr-p . t)
  53    ;; indent line when pressing tab, instead of a plain tab character
  54    (c-tab-always-indent . t)
  55    ;; use TABs for indentation, not spaces
  56    (indent-tabs-mode . t)
  57    ;; set default tab width to 8
  58    (tab-width . 8)
  59   )
  60   "NetBSD KNF Style")
  61
  62 (eval-when-compile (require 'whitespace nil t))
  63
  64 (defcustom netbsd-knf-whitespace-check nil
  65   "Enable NetBSD KNF whitespace cleanup when saving the buffer.
  66 See also:
  67   `whitespace-auto-cleanup',
  68   `whitespace-abort-on-error',
  69   `whitespace-check-leading-whitespace',
  70   `whitespace-check-trailing-whitespace',
  71   `whitespace-check-spacetab-whitespace',
  72   `whitespace-check-indent-whitespace',
  73   `whitespace-check-ateol-whitespace'.
  74 NOTES:
  75 1) `whitespace-check-spacetab-whitespace' will replace any RE-match of
  76    \" +\\t\" with single '\\t' and hence may break tabbing.
  77 2) Both `whitespace-check-spacetab-whitespace' and
  78    `whitespace-check-indent-whitespace' may alter strings."
  79   :type 'boolean
  80   :group 'netbsd-knf)
  81
  82 (defun netbsd-knf-whitespace-cleanup ()
  83   ;; XXX - emacs 21.4 whitespace.el was badly behaved on blank
  84   ;; buffers.  This was fixed in 22.1.  I don't know about other
  85   ;; versions, so these conditions may need to be more restrictive.
  86   (cond ((> emacs-major-version 21)
  87          (whitespace-cleanup-internal))
  88         (t ;; default
  89          (if (save-excursion
  90                (goto-char (point-min))
  91                (re-search-forward "[^ \t\n]" nil t))
  92              (whitespace-cleanup)
  93            (delete-region (point-min) (point-max))))))
  94
  95 (defun netbsd-knf-write-contents-hook ()
  96   (if (and (string-equal c-indentation-style "netbsd knf")
  97            (require 'whitespace nil t))
  98       (if netbsd-knf-whitespace-check
  99           (if whitespace-auto-cleanup
 100               (netbsd-knf-whitespace-cleanup)
 101             (if (and (whitespace-buffer) whitespace-abort-on-error)
 102                 (error (concat "Abort write due to whitespaces in "
 103                                buffer-file-name)))))
 104     (remove-hook 'write-contents-hook 'netbsd-knf-write-contents-hook))
 105   nil)
 106
 107 (defun netbsd-knf-c-mode-hook ()
 108   ;; Add style and set it for current buffer
 109   (c-add-style "NetBSD KNF" netbsd-knf-style t)
 110   ;; useful, but not necessary for the mode
 111   ;; give syntactic information in message buffer
 112   ;;(setq c-echo-syntactic-information-p t)
 113   ;; automatic newlines after special characters
 114   (setq c-toggle-auto-state 1)
 115   ;; delete all connected whitespace when pressing delete
 116   (setq c-toggle-hungry-state 1)
 117   ;; auto-indent new lines
 118   (define-key c-mode-base-map "\C-m" 'newline-and-indent)
 119   ;; check/cleanup whitespace when saving
 120   (add-hook 'write-contents-hooks 'netbsd-knf-write-contents-hook))
 121
 122 (add-hook 'c-mode-hook 'netbsd-knf-c-mode-hook)