Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defconst xemacs (string-match "XEmacs" emacs-version)
- "non-nil iff XEmacs, nil otherwise")
- ;;Affichage sans les merdes
- ;;(if (not xemacs)
- ;; (load "std.el"))
- (setq load-path (cons "~/.emacs.d/" load-path))
- (setq zone-when-idle t)
- (global-font-lock-mode 1)
- (column-number-mode 1)
- (transient-mark-mode 1)
- (show-paren-mode 1)
- (when (display-graphic-p)
- (normal-erase-is-backspace-mode 1)
- (blink-cursor-mode -1)
- (scroll-bar-mode -1)
- (tool-bar-mode -1))
- (menu-bar-mode -1)
- (setq inhibit-splash-screen 1)
- (mouse-wheel-mode t) ; enable mouse wheel
- (display-time-mode 1)
- (display-battery-mode 1)
- (add-hook 'before-save-hook 'delete-trailing-whitespace)
- ;;resize buffers (S + M + fleche)
- (defun win-resize-top-or-bot ()
- "Figure out if the current window is on top, bottom or in the
- middle"
- (let* ((win-edges (window-edges))
- (this-window-y-min (nth 1 win-edges))
- (this-window-y-max (nth 3 win-edges))
- (fr-height (frame-height)))
- (cond
- ((eq 0 this-window-y-min) "top")
- ((eq (- fr-height 1) this-window-y-max) "bot")
- (t "mid"))))
- (defun win-resize-left-or-right ()
- "Figure out if the current window is to the left, right or in the
- middle"
- (let* ((win-edges (window-edges))
- (this-window-x-min (nth 0 win-edges))
- (this-window-x-max (nth 2 win-edges))
- (fr-width (frame-width)))
- (cond
- ((eq 0 this-window-x-min) "left")
- ((<= fr-width this-window-x-max) "right")
- (t "mid"))))
- (defun win-resize-up ()
- (interactive)
- (cond
- ((equal "top" (win-resize-top-or-bot)) (enlarge-window -1))
- ((equal "bot" (win-resize-top-or-bot)) (enlarge-window 1))
- ((equal "mid" (win-resize-top-or-bot)) (enlarge-window -1))
- (t (message "nil"))))
- (defun win-resize-down ()
- (interactive)
- (cond
- ((equal "top" (win-resize-top-or-bot)) (enlarge-window 1))
- ((equal "bot" (win-resize-top-or-bot)) (enlarge-window -1))
- ((equal "mid" (win-resize-top-or-bot)) (enlarge-window 1))
- (t (message "nil"))))
- (defun win-resize-left ()
- (interactive)
- (cond
- ((equal "left" (win-resize-left-or-right)) (enlarge-window-horizontally -1))
- ((equal "right" (win-resize-left-or-right)) (enlarge-window-horizontally 1))
- ((equal "mid" (win-resize-left-or-right)) (enlarge-window-horizontally -1))))
- (defun win-resize-right ()
- (interactive)
- (cond
- ((equal "left" (win-resize-left-or-right)) (enlarge-window-horizontally 1))
- ((equal "right" (win-resize-left-or-right)) (enlarge-window-horizontally -1))
- ((equal "mid" (win-resize-left-or-right)) (enlarge-window-horizontally 1))))
- ;; (global-set-key [S-C-down] 'win-resize-minimize-vert)
- ;; (global-set-key [S-C-up] 'win-resize-enlarge-vert)
- ;; (global-set-key [S-C-left] 'win-resize-minimize-horiz)
- ;; (global-set-key [S-C-right] 'win-resize-enlarge-horiz)
- (global-set-key [S-M-up] 'win-resize-up)
- (global-set-key [S-M-down] 'win-resize-down)
- (global-set-key [S-M-left] 'win-resize-left)
- (global-set-key [S-M-right] 'win-resize-right)
- (global-set-key [S-C-up] 'win-resize-up)
- (global-set-key [S-C-down] 'win-resize-down)
- (global-set-key [S-C-left] 'win-resize-left)
- (global-set-key [S-C-right] 'win-resize-right)
- ;;passage d'un buffer a l'autre
- (global-set-key [(control b)] 'ido-switch-buffer)
- (global-set-key [M-left] 'windmove-left) ; move to left windnow
- (global-set-key [M-right] 'windmove-right) ; move to right window
- (global-set-key [M-up] 'windmove-up) ; move to upper window
- (global-set-key [M-down] 'windmove-down)
- (global-set-key [A-left] 'windmove-left) ; move to left windnow
- (global-set-key [A-right] 'windmove-right) ; move to right window
- (global-set-key [A-up] 'windmove-up) ; move to upper window
- (global-set-key [A-down] 'windmove-down)
- ;(global-set-key [ <ESC>-right] 'windmove-right) ; because A and M don't work with ssh
- (global-set-key [S-up] 'scroll-down-few)
- (global-set-key [select] 'scroll-down-few)
- (global-set-key [S-down] 'scroll-up-few)
- (global-set-key [S-left] 'scroll-right-few)
- (global-set-key [S-right] 'scroll-left-few)
- ;;bordel
- (global-set-key [(control c) (f)] 'font-lock-fontify-buffer)
- (global-set-key [(control c) (d)] 'pwd)
- (global-set-key [(meta s)] (lambda () (interactive) (git-status ".")))
- (global-set-key [f7] 'compile)
- (global-set-key [f8] 'recompile)
- (setq compilation-scroll-output t)
Add Comment
Please, Sign In to add comment