mdk
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Up to emacs 24

This commit is contained in:
Julien Palard 2014-12-22 11:36:56 +01:00
parent 2b14a525c4
commit 65713bd04d
1 changed files with 28 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
emacs
View File

@ -17,7 +17,7 @@
(if (file-exists-p file) (if (file-exists-p file)
(load-file file))) (load-file file)))
(add-to-list 'load-path "~/.emacs.d/") (add-to-list 'load-path "~/.emacs.d/lisp/")
;; Disable all version control backends (Start faster if don't use them) : ;; Disable all version control backends (Start faster if don't use them) :
(setq vc-handled-backends ()) (setq vc-handled-backends ())
@ -54,9 +54,7 @@
(global-set-key "\M-p" 'backward-paragraph) (global-set-key "\M-p" 'backward-paragraph)
(global-set-key "\C-xrv" 'list-registers) (global-set-key "\C-xrv" 'list-registers)
; from http://www.emacswiki.org/emacs/BackspaceKey ; from http://www.emacswiki.org/emacs/BackspaceKey
;;(global-set-key (kbd "C-h") 'delete-backward-char)
(global-set-key (kbd "M-h") 'backward-kill-word) (global-set-key (kbd "M-h") 'backward-kill-word)
;;(global-set-key (kbd "C-?") 'help-command)
(add-to-list 'load-path "~/.emacs.d/geben-0.26") (add-to-list 'load-path "~/.emacs.d/geben-0.26")
(add-to-list 'load-path "~/.emacs.d/geben-0.26/tree-widget") (add-to-list 'load-path "~/.emacs.d/geben-0.26/tree-widget")
@ -64,7 +62,6 @@
(require 'footnote) (require 'footnote)
(add-hook 'message-mode-hook 'footnote-mode) (add-hook 'message-mode-hook 'footnote-mode)
(iswitchb-mode t)
(show-paren-mode t) (show-paren-mode t)
(add-hook 'write-file-hooks 'delete-trailing-whitespace) (add-hook 'write-file-hooks 'delete-trailing-whitespace)
@ -144,27 +141,30 @@
(require 'flymake-cursor nil 'noerror) (require 'flymake-cursor nil 'noerror)
(global-set-key "\C-cn" 'flymake-goto-next-error) (global-set-key "\C-cn" 'flymake-goto-next-error)
(when (load "flymake" t) (defun flymake-python-init ()
(defun flymake-python-init () (let* ((temp-file (flymake-init-create-temp-buffer-copy
(let* ((temp-file (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace))
'flymake-create-temp-inplace)) (local-file (file-relative-name temp-file
(local-file (file-relative-name temp-file (file-name-directory buffer-file-name))))
(file-name-directory buffer-file-name)))) (list "flymake-python" (list local-file))))
(list "flymake-python" (list local-file))))
(defun flymake-php-init () (defun flymake-php-init ()
(let* ((temp-file (flymake-init-create-temp-buffer-copy (let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace)) 'flymake-create-temp-inplace))
(local-file (file-relative-name temp-file (local-file (file-relative-name temp-file
(file-name-directory buffer-file-name)))) (file-name-directory buffer-file-name))))
(list "flymake-php" (list local-file)))) (list "flymake-php" (list local-file))))
(add-to-list 'flymake-allowed-file-name-masks (defcustom flymake-allowed-file-name-masks
'("\\.py\\'" flymake-python-init)) '(
) ("\\.py\\'" flymake-python-init flymake-simple-cleanup flymake-get-real-file-name)
("\\.php[345]?\\'" flymake-php-init)
)
"*Files syntax checking is allowed for."
:group 'flymake
:type '(repeat (string symbol symbol symbol)))
(add-hook 'find-file-hook 'flymake-find-file-hook) (add-hook 'find-file-hook 'flymake-find-file-hook)
(setq flymake-start-syntax-check-on-find-file nil)
(defun iwb () (defun iwb ()
"indent whole buffer" "indent whole buffer"
@ -230,12 +230,13 @@
nil)) nil))
(add-to-list 'find-file-hook 'konix/find-file-hook) (add-to-list 'find-file-hook 'konix/find-file-hook)
(defadvice show-paren-function (after my-echo-paren-matching-line activate) ;; Check why it fails on emacs 24
"If a matching paren is off-screen, echo the matching line." ;; (defadvice show-paren-function (after my-echo-paren-matching-line activate)
(when (char-equal (char-syntax (char-before (point))) ?\)) ;; "If a matching paren is off-screen, echo the matching line."
(let ((matching-text (blink-matching-open))) ;; (when (char-equal (char-syntax (char-before (point))) ?\))
(when matching-text ;; (let ((matching-text (blink-matching-open)))
(message matching-text))))) ;; (when matching-text
;; (message matching-text)))))
;; As C-M-% is almost impossible to type in a terminal emulator: ;; As C-M-% is almost impossible to type in a terminal emulator:
(global-set-key "\C-x\M-%" 'query-replace-regexp) (global-set-key "\C-x\M-%" 'query-replace-regexp)