Editing Emacs

From BRL-CAD

Warning: You are not logged in. Your IP address will be publicly visible if you make any edits. If you log in or create an account, your edits will be attributed to your username, along with other benefits.

The edit can be undone. Please check the comparison below to verify that this is what you want to do, and then save the changes below to finish undoing the edit.
Latest revision Your text
Line 1: Line 1:
−
There are a variety of settings that you can put into your '''.emacs''' configuration file that will make life easier when working with BRL-CAD sources.  Additionally, installing [http://cmake.org/gitweb?p=cmake.git;a=blob_plain;f=Docs/cmake-mode.el;hb=ab9824e1 cmake-mode.el] into your ~/.emacs.d/ directory will help with editing of build system files.
+
There are a variety of settings that you can put into your '''.emacs''' configuration file that can make life easier when working with the BRL-CAD sources.
  
−
<pre>
 
−
; indent case statements ala BSD KNF / K&R style regardless of mode
 
−
(c-set-offset 'case-label '+)
 
−
(c-set-offset 'statement-case-open '+)
 
−
(c-set-offset 'innamespace 0)
 
−
(c-set-offset 'inline-open 0)
 
  
−
;; Support font-locking large files
+
; indent case statements ala BSD KNF / K&R style regardless of mode
−
(set-variable 'font-lock-maximum-size 18024000)  
+
(c-set-offset 'case-label '+)
−
(global-font-lock-mode t)
+
(c-set-offset 'statement-case-open '+)
−
(transient-mark-mode t)
+
−
(turn-on-font-lock)
+
;; Support font-locking large files
 +
(set-variable 'font-lock-maximum-size 18024000)  
 +
(global-font-lock-mode t)
 +
(transient-mark-mode t)
 +
(turn-on-font-lock)
 +
 +
; display column numbers in addition to line numbers
 +
(set-variable 'column-number-mode t)
  
−
; quell initialization warnings due to Local Variable block bug
+
;;;;;;;;;;;;;;;;
−
(setq inhibit-startup-message t)
+
; key bindings ;
 +
;;;;;;;;;;;;;;;;
 +
 +
; so that M-TAB inserts a real tab while editing code
 +
(global-set-key "� " (quote self-insert-command " "))
 +
 +
; bind "C-x g" to be M-x goto-line
 +
(global-set-key "\C-xg" 'goto-line)
  
−
; Stop at the end of the file, not just add lines
+
;;;;;;;;;;;;;
−
(setq next-line-add-newlines nil)
+
; functions ;
−
 
+
;;;;;;;;;;;;;
−
; make sure goto labels can be placed on column 0
+
−
(setq c-label-minimum-indentation 0)
+
(defun dos-unix ()
−
 
+
  "Convert DOS CR-LF to UNIX NL"
−
; display column numbers in addition to line numbers
+
  (interactive)
−
(set-variable 'column-number-mode t)
+
  (save-excursion
−
 
+
    (goto-char (point-min))
−
; to not read-only lock other people's cvs files (and not go into vc-mode)
+
    (while (search-forward "\r" nil t) (replace-match ""))))
−
(set-variable 'vc-handle-cvs nil)
+
−
 
+
(defun unix-dos ()
−
;;;;;;;;;;;;;;;;
+
  "Convert UNIX NL to DOS CR-LF"
−
; key bindings ;
+
  (interactive)
−
;;;;;;;;;;;;;;;;
+
  (save-excursion
−
 
+
    (goto-char (point-min))
−
; so that M-TAB inserts a real tab while editing code
+
    (while (search-forward "\n" nil t) (replace-match "\r\n"))))
−
(global-set-key "� " (quote self-insert-command " "))
+
−
 
+
(defun ws ()
−
; bind "C-x g" to be M-x goto-line
+
  "Make sure there is a space after every comma"
−
(global-set-key "\C-xg" 'goto-line)
+
  (interactive)
−
 
+
  (save-excursion
−
;;;;;;;;;;;;;
+
    (goto-char (point-min))
−
; functions ;
+
    (while (re-search-forward ",\\([^[:space:]\n,]\\)" nil t) (replace-match ", \\1"))
−
;;;;;;;;;;;;;
+
    (goto-char (point-min))
−
 
+
    (while (search-forward "( " nil t) (replace-match "("))
−
(defun dos-unix ()
+
    (goto-char (point-min))
−
  "Convert DOS CR-LF to UNIX NL"
+
    (while (search-forward " )" nil t) (replace-match ")"))
−
  (interactive)
+
    (goto-char (point-min))
−
  (save-excursion
+
    (while (search-forward "if(" nil t) (replace-match "if ("))
−
    (goto-char (point-min))
+
    (goto-char (point-min))
−
    (while (search-forward "\r" nil t) (replace-match ""))))
+
    (while (search-forward "for(" nil t) (replace-match "for ("))
−
 
+
    (goto-char (point-min))
−
(defun unix-dos ()
+
    (while (search-forward "while(" nil t) (replace-match "while ("))
−
  "Convert UNIX NL to DOS CR-LF"
+
    (goto-char (point-min))
−
  (interactive)
+
    (while (search-forward "){" nil t) (replace-match ") {"))
−
  (save-excursion
+
    (goto-char (point-min))
−
    (goto-char (point-min))
+
    (while (re-search-forward ")[[:space:]]+{" nil t) (replace-match ") {"))
−
    (while (search-forward "\n" nil t) (replace-match "\r\n"))))
+
    (c-set-offset 'case-label '+)
−
 
+
    (c-set-offset 'statement-case-open '+)
−
(defun ws ()
+
    (indent-region (point-min) (point-max) nil)
−
  "Make sure there is a space after every comma"
+
    ))
−
  (interactive)
+
−
  (save-excursion
+
  ; custom bindings to support our style idiosyncrasies
−
    (set-variable 'case-fold-search nil)
+
(global-set-key "\M-0" 'ws)
−
    (goto-char (point-min))
 
−
    (while (re-search-forward "\\([,(]\\)\\([^[:space:]\n,]\\)" nil t) (replace-match "\\1 \\2"))
 
−
    (goto-char (point-min))
 
−
    (while (re-search-forward "COMMA ', '" nil t) (replace-match "COMMA ','"))
 
−
    (goto-char (point-min))
 
−
    (while (re-search-forward "([ ]+" nil t) (replace-match "("))
 
−
    (goto-char (point-min))
 
−
    (while (re-search-forward "[ ]+)" nil t) (replace-match ")"))
 
−
    (goto-char (point-min))
 
−
    (while (re-search-forward ")[ ]+\\([a-zA-Z]\\)" nil t) (replace-match ") \\1"))
 
−
    (goto-char (point-min))
 
−
    (while (re-search-forward "}[ ]*else[ ]*{" nil t) (replace-match "} else {"))
 
−
    (goto-char (point-min))
 
−
    (while (search-forward "if[ ]*(" nil t) (replace-match "if ("))
 
−
    (goto-char (point-min))
 
−
    (while (search-forward "for[ ]*(" nil t) (replace-match "for ("))
 
−
    (goto-char (point-min))
 
−
    (while (search-forward "while[ ]*(" nil t) (replace-match "while ("))
 
−
    (goto-char (point-min))
 
−
    (while (search-forward ")[ ]*{" nil t) (replace-match ") {"))
 
−
    (goto-char (point-min))
 
−
    (while (re-search-forward ")[[:space:]]*{" nil t) (replace-match ") {"))
 
−
    (goto-char (point-min))
 
−
    (while (re-search-forward "
 
−
\\(};?\\)[ ]*
 
−
[
 
−
]+" nil t) (replace-match "
 
−
\\1
 
−
 
 
−
 
 
−
"))
 
−
    (goto-char (point-min))
 
−
    (while (re-search-forward "
 
−
[ ]*
 
−
[
 
−
]+
 
−
" nil t) (replace-match "
 
−
 
 
−
 
 
−
"))
 
−
    (c-set-offset 'case-label '+)
 
−
    (c-set-offset 'statement-case-open '+)
 
−
    (c-set-offset 'innamespace 0)
 
−
    (c-set-offset 'inline-open 0)
 
−
    (indent-region (point-min) (point-max) nil)
 
−
    ))
 
−
 
 
−
(defun ws2 ()
 
−
  "Removes embedded white space (particularly tabs)"
 
−
  (interactive)
 
−
  (save-excursion
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "\\([[:alnum:]_*(\[{@<>+#!\"'-]\\)[ ]* [ ]*\\([[:alnum:]_*(\[{@<>+#!\"'-][[:alnum:]_*(\[{@<>+#!\"'-]?\\)[ ]+" "\\1 \\2 "))
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "\\([[:alnum:]_*(\[{@<>+#!\"'-]\\)[ ]* [ ]*\\([[:alnum:]_*(\[{@<>+#!\"'-]\\)" "\\1 \\2"))
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "\\([[:alnum:]_*(\[{@<>+#!\"'-]\\)[ ]+ +[ ]*\\([[:alnum:]_*(\[{@<>+#!\"'-]\\)" "\\1 \\2"))
 
−
    ))
 
−
 
 
−
(defun ws3 ()
 
−
  "collapses multiple empty lines and ensures two after every global block"
 
−
  (interactive)
 
−
  (save-excursion
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "
 
−
\\(};?\\)[ ]*
 
−
[
 
−
]+" "
 
−
\\1
 
−
 
 
−
 
 
−
"))
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "
 
−
[ ]*
 
−
[
 
−
]+
 
−
" "
 
−
 
 
−
 
 
−
"))
 
−
    ))
 
−
 
 
−
(defun embrace ()
 
−
  "fix else statements and braces to be K&R style"
 
−
  (interactive)
 
−
  (save-excursion
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "}[[:space:]]*
 
−
[[:space:]]+else" "} else"))
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "[[:space:]]*
 
−
[[:space:]]+{" " {"))
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "[[:space:]]*\\(/\\*.*\\*/\\)[[:space:]]*{
 
−
\\([[:space:]]+\\)" " {
 
−
\\2\\1
 
−
\\2"))
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "[[:space:]]*\\(/\\*.*\\*/\\)[[:space:]]*
 
−
\\([[:space:]]+\\){" " {
 
−
\\2\\1"))
 
−
    (goto-char (point-min))
 
−
    (while (query-replace-regexp "[[:space:]]*{[[:space:]]*\\(/\\*.*\\*/\\)[[:space:]]*
 
−
\\([[:space:]]+\\)" " {
 
−
\\2\\1
 
−
\\2"))
 
−
    ))
 
−
 
 
−
; custom bindings to support our style idiosyncrasies
 
−
(global-set-key "\M-0" 'ws)
 
−
(global-set-key "\M-9" 'ws2)
 
−
(global-set-key "\M-8" 'embrace)
 
−
(global-set-key "\M-7" 'ws3)
 
−
 
 
−
</pre>
 
−
 
 
−
If you install the aforementioned cmake-mode, you'll need these extra lines in your .emacs file in order to enable the mode:
 
−
 
 
−
<pre>
 
−
(add-to-list 'load-path "~/.emacs.d")
 
−
 
 
−
(require 'cmake-mode)
 
−
(setq auto-mode-alist
 
−
      (append '(("CMakeLists\\.txt\\'" . cmake-mode)
 
−
                ("\\.cmake\\'" . cmake-mode))
 
−
              auto-mode-alist))
 
−
</pre>
 

Please note that all contributions to BRL-CAD may be edited, altered, or removed by other contributors. If you do not want your writing to be edited mercilessly, then do not submit it here.
You are also promising us that you wrote this yourself, or copied it from a public domain or similar free resource (see BRL-CAD:Copyrights for details). Do not submit copyrighted work without permission!

To edit this page, please answer the question that appears below (more info):

Cancel Editing help (opens in new window)
Retrieved from "https://brlcad.org/wiki/Emacs"