91 lines
2.8 KiB
EmacsLisp
91 lines
2.8 KiB
EmacsLisp
;; Remove useless features
|
|
(menu-bar-mode -1)
|
|
;(tool-bar-mode -1)
|
|
;(scroll-bar-mode -1)
|
|
(setq inhibit-startup-message t)
|
|
|
|
;;Save backup files into a specific directory, not in the working directry
|
|
(defun make-backup-file-name (file)
|
|
(concat "~/.emacs.d/backup/" (file-name-nondirectory file) "~"))
|
|
|
|
;; Enable some minor mode changing mode line
|
|
(column-number-mode t) ; Show column number
|
|
(line-number-mode t) ; Show line number
|
|
(display-time-mode t) ; A clock in the mode line
|
|
|
|
;; Show matching parentheses
|
|
(show-paren-mode t)
|
|
|
|
;; Enable usefull modes
|
|
(global-font-lock-mode t) ; syntax highlighting
|
|
(setq font-lock-maximum-decoration t) ; max decoration for all modes
|
|
(auto-compression-mode t) ; Auto decompress compressed files.
|
|
(setq set-mark-command-repeat-pop t)
|
|
(autoload 'nuke-trailing-whitespace "whitespace" nil t)
|
|
(setq delete-old-versions t) ; delete oldversion file
|
|
(setq default-major-mode 'text-mode) ; change default major mode to text
|
|
(global-auto-revert-mode t) ; auto revert modified files
|
|
(dynamic-completion-mode) ; dynamic completion
|
|
|
|
;; setting for auto-close brackets for electric-pair-mode regardless of current major mode syntax table
|
|
(electric-pair-mode t)
|
|
(setq electric-pair-pairs '(
|
|
(?\" . ?\")
|
|
(?\{ . ?\})
|
|
) )
|
|
|
|
;; In linux, make copy/paste work with other apps
|
|
(setq x-select-enable-clipboard t)
|
|
|
|
;; Compilation window
|
|
(setq compilation-window-height 14)
|
|
(setq compilation-scroll-output t)
|
|
|
|
(require 'uniquify)
|
|
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
|
|
|
|
(setq-default ispell-program-name "aspell")
|
|
|
|
;; GDB use all existing window
|
|
(setq-default gdb-many-windows t)
|
|
|
|
;; Recognize test suite output
|
|
(require 'compile)
|
|
(add-to-list 'compilation-error-regexp-alist '("^\\(PASS\\|SKIP\\|XFAIL\\|TFAIL\\): \\(.*\\)$" 2 () () 0 2))
|
|
(add-to-list 'compilation-error-regexp-alist '("^\\(FAIL\\|XPASS\\): \\(.*\\)$" 2 () () 2 2))
|
|
|
|
;(require 'flymake)
|
|
;(add-hook 'find-file-hooks 'flymake-find-file-hook)
|
|
;(require 'flymake-cursor)
|
|
|
|
;;IswitchBuffer configuration
|
|
(require 'ido)
|
|
(ido-mode t)
|
|
|
|
;; Save and restore window layout
|
|
(defvar winconf-ring ())
|
|
|
|
(defun push-winconf ()
|
|
(interactive)
|
|
(window-configuration-to-register ?%)
|
|
(push (get-register ?%) winconf-ring))
|
|
|
|
(defun pop-winconf ()
|
|
(interactive)
|
|
(set-register ?% (pop winconf-ring))
|
|
(jump-to-register ?%))
|
|
|
|
(defun restore-winconf ()
|
|
(interactive)
|
|
(set-register ?% (car winconf-ring))
|
|
(jump-to-register ?%))
|
|
|
|
;; highlight when > 80 cols
|
|
(defun eightycols nil
|
|
(defface line-overflow
|
|
'((t (:background "red" :foreground "black")))
|
|
"Face to use for `hl-line-face'.")
|
|
(highlight-regexp "^.\\{80,\\}$" 'line-overflow)
|
|
)
|
|
;(add-hook 'find-file-hook 'eightycols)
|