Changes between Initial Version and Version 1 of Dot_Emacs_File

Timestamp:

Feb 24, 2009, 4:23:54 PM (17 years ago)

Author:

trac

Comment:

--

Dot_Emacs_File

@@ +1 @@
+The following .emacs excerpt was mostly provided by Robert Lupton.  The intent was to help coders comply with the IPP coding standards.
+
+ ;;
+ ;; Support code for the Pan-STARRS C coding standards
+ ;;
+ ;; The basic tool is a "panstarrs-c" mode derived from c-mode.
+ ;;
+ ;; To activate, add:
+ ;;   (add-to-list 'auto-mode-alist (cons "\\.[ch]$" 'panstarrs-c-mode))
+ ;; to your .emacs file
+ ;;
+ ;; You might want to copy some of these add-hook lines to your .emacs file too:
+ ;;  (add-hook 'panstarrs-c-mode-hook 'panstarrs-c99-comments)
+ ;;  (add-hook 'panstarrs-c-mode-hook 'panstarrs-set-width)
+ ;;  (add-hook 'panstarrs-c-mode-hook
+ ;;          '(lambda ()
+ ;;             (set (make-variable-buffer-local 'comment-indent-function)
+ ;;                  'panstarrs-comment-indent)))
+ ;; These respectively:
+ ;;   use C99-style comments (i.e. // to end of line)
+ ;;   have your emacs window set to 110 characters wide
+ ;;   somewhat improve (or spoil?) the handling of re-indenting comments
+ (define-derived-mode panstarrs-c-mode
+   c-mode "Pan-STARRS C"
+   "Major mode for editing Pan-STARRS C source.
+           \\{panstarrs-c-mode-map}
+ "
+                                                                                 
+   (let ( (our-mode-name mode-name) )
+     (c-mode)                            ; get correct font-lock behaviour
+     (setq mode-name our-mode-name))     ; keep our desired name
+                                                                                 
+   (setq c-default-style '((other . "k&r")))
+   (setq c-basic-offset 4)
+                                                                                 
+   (setq comment-column 40)
+   (setq fill-column 110)
+                                                                                 
+   (add-to-list 'c-offsets-alist (cons 'statement-case-intro 2))
+   (add-to-list 'c-offsets-alist (cons 'statement-case-open 2))
+   (add-to-list 'c-offsets-alist (cons 'case-label 2)))
+ ;;
+ ;; Various useful commands for writing panstarrs code
+ ;;
+ (defun panstarrs-c99-comments ()
+   "Use C99-style // comments"
+   (setq comment-start "// ")
+   (setq comment-end ""))
+ ;;
+ (defun panstarrs-set-width ()
+   "Set frame width to fill-column + 1 ( + 1 to allow for wrap column)"
+   (set-frame-width default-minibuffer-frame (1+ fill-column)))
+ ;;
+ ;;
+ (defun panstarrs-comment-indent (&optional delete)
+   "Make ESC; indent new comments to comment-column even if previous line
+ has a comment indented further to the right"
+  
+   (interactive "p")
+   (let ( (indent (c-comment-indent)) )
+     (if (> indent comment-column)
+         (save-excursion
+           (beginning-of-line)
+           (if (not (looking-at (concat "^[ \t]*" comment-start)))
+               (setq indent comment-column))))
+     indent))
+ ;; END support code for the Pan-STARRS C coding standards
+ 
+ ;; Remove tabs from files, from http://www.jwz.org/doc/tabs-vs-spaces.html
+ (defun panstarrs-mode-untabify ()
+   (save-excursion
+     (goto-char (point-min))
+     (while (re-search-forward "[ \t]+$" nil t)
+       (delete-region (match-beginning 0) (match-end 0)))
+     (goto-char (point-min))
+     (if (search-forward "\t" nil t)
+        (untabify (1- (point)) (point-max))))
+   nil)
+ 
+ ;; Activate Pan-STARRS coding standard stuff.
+ (add-to-list 'auto-mode-alist (cons "\\.[ch]$" 'panstarrs-c-mode))
+ (add-hook 'panstarrs-c-mode-hook 'panstarrs-c99-comments)
+ (add-hook 'panstarrs-c-mode-hook 'panstarrs-set-width)
+ (add-hook 'panstarrs-c-mode-hook
+          '(lambda ()
+             (set (make-variable-buffer-local 'comment-indent-function)
+                  'panstarrs-comment-indent)))
+ (add-hook 'panstarrs-c-mode-hook 
+          '(lambda ()
+             (make-local-variable 'write-contents-hooks)
+             (add-hook 'write-contents-hooks 'panstarrs-mode-untabify)))
+ 
+ ;; Untabify Perl code as well.
+ (add-hook 'perl-mode-hook 
+          '(lambda ()
+             (make-local-variable 'write-contents-hooks)
+             (add-hook 'write-contents-hooks 'panstarrs-mode-untabify)))