X-Git-Url: http://gitweb.hugovil.com/?a=blobdiff_plain;f=stage5%2Fmisc%2Femacs%2Femacsrc;h=ad63356f69c8dbc24aadfdcb315378cabf8f806a;hb=84b83228f5a3e70ead5b92b517e1aa0afaeac295;hp=9db7a0eb64e5c9d71da156366b917bf471076117;hpb=f920c7ef750f2163b9e407cc453b192ede2c185a;p=hvlinux.git

diff --git a/stage5/misc/emacs/emacsrc b/stage5/misc/emacs/emacsrc
index 9db7a0e..ad63356 100644
--- a/stage5/misc/emacs/emacsrc
+++ b/stage5/misc/emacs/emacsrc
@@ -22,6 +22,9 @@
 ;; Replaces tabs in files with spaces
 (setq-default indent-tabs-mode nil)
 
+;; Display trailing whitespace
+(setq-default show-trailing-whitespace t)
+
 ;; Makes the compilation buffer always scrolls to follow
 ;; output as it comes in.
 (setq compilation-scroll-output t)
@@ -29,6 +32,9 @@
 ;; Pour avoir les accents
 (set-keyboard-coding-system 'utf-8)
 
+;; Pour que la touche backspace fonctionne aussi en mode console:
+(normal-erase-is-backspace-mode 0)
+
 ;; Set up the keyboard so the delete key on both the regular keyboard
 ;; and the keypad delete the character under the cursor and to the right
 ;; under X, instead of the default, backspace behavior.
@@ -60,7 +66,7 @@
   (compile "make clean"))
 
 (defun compile-make ()
-  (interactive) 
+  (interactive)
   (compile "make"))
 
 (defun checkpatch()
@@ -112,9 +118,19 @@
   (setq indent-tabs-mode t)
 )
 
-;; Default for .h and .d files -> linux mode.
+(defun dap-c-mode ()
+  "C mode with adjusted defaults for use with DAP source code."
+  (interactive)
+  (c-mode)
+  (c-set-style "K&R")
+  (setq c-basic-offset 4))
+
+;; Default for .h and .c files -> linux mode.
 (add-to-list 'auto-mode-alist '("\.[ch]$" . linux-c-mode))
 
+;; Default for DAP .h and .c files -> linux mode.
+(add-to-list 'auto-mode-alist '(".*/dap.*" . dap-c-mode))
+
 ;; Verilog mode
 (autoload 'verilog-mode "verilog-mode" "Verilog mode" t)
 (add-to-list 'auto-mode-alist '("\\.v\\'" . verilog-mode))
@@ -140,6 +156,15 @@
 (autoload 'muttrc-mode "muttrc-mode" "Major mode to edit muttrc files" t)
 (add-to-list 'auto-mode-alist '("muttrc\\'" . muttrc-mode))
 
+;; Default for Altium Delphi scripts (.pas) files -> linux mode.
+(add-to-list 'auto-mode-alist '("\\.pas$" . delphi-mode))
+
+;; Add the .mak suffix to the auto-mode-alist:
+(setq auto-mode-alist (cons '("\\.mak$" . makefile-mode) auto-mode-alist))
+
+;; Add the Makefile prefix to the auto-mode-alist:
+(add-to-list 'auto-mode-alist '("Makefile" . makefile-mode))
+
 ;; When an Emacs init file gets large or has a lot of function definitions, you
 ;; should consider compiling it: it will load faster when Emacs starts, and its
 ;; functions will execute faster.
@@ -157,6 +182,33 @@
     (add-hook 'after-save-hook 'byte-compile-user-init-file t t)))
 (add-hook 'emacs-lisp-mode-hook 'my-emacs-lisp-mode-hook)
 
+;; To highlight function calls in CC mode.
+(defface font-lock-function-call-face
+  '((t (:foreground "mediumpurple")))
+  "Font Lock mode face used to highlight function calls."
+  :group 'font-lock-highlighting-faces)
+(defvar font-lock-function-call-face 'font-lock-function-call-face)
+(add-hook 'c-mode-hook
+          (lambda ()
+            (font-lock-add-keywords
+             nil
+             '(("\\<\\(\\sw+\\) ?(" 1 font-lock-function-call-face)) t)))
+
+;; Pour colorer TRUE et FALSE
+(defconst bm-additional-constant-keywords
+  (cons
+   (regexp-opt
+	(list
+	 "TRUE" "FALSE"
+	 ) 'words)
+   font-lock-constant-face
+   ))
+(font-lock-add-keywords
+ 'c-mode
+ (list
+  bm-additional-constant-keywords
+  ))
+
 (custom-set-variables
   ;; custom-set-variables was added by Custom.
   ;; If you edit it by hand, you could mess it up, so be careful.