Guest User

Untitled

a guest
Jan 21st, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.41 KB | None | 0 0
  1. (defconst xemacs (string-match "XEmacs" emacs-version)
  2. "non-nil iff XEmacs, nil otherwise")
  3.  
  4. ;;Affichage sans les merdes
  5.  
  6. ;;(if (not xemacs)
  7. ;; (load "std.el"))
  8. (setq load-path (cons "~/.emacs.d/" load-path))
  9. (setq zone-when-idle t)
  10. (global-font-lock-mode 1)
  11. (column-number-mode 1)
  12. (transient-mark-mode 1)
  13. (show-paren-mode 1)
  14. (when (display-graphic-p)
  15. (normal-erase-is-backspace-mode 1)
  16. (blink-cursor-mode -1)
  17. (scroll-bar-mode -1)
  18. (tool-bar-mode -1))
  19. (menu-bar-mode -1)
  20. (setq inhibit-splash-screen 1)
  21. (mouse-wheel-mode t) ; enable mouse wheel
  22. (display-time-mode 1)
  23. (display-battery-mode 1)
  24. (add-hook 'before-save-hook 'delete-trailing-whitespace)
  25. ;;resize buffers (S + M + fleche)
  26.  
  27. (defun win-resize-top-or-bot ()
  28. "Figure out if the current window is on top, bottom or in the
  29. middle"
  30. (let* ((win-edges (window-edges))
  31. (this-window-y-min (nth 1 win-edges))
  32. (this-window-y-max (nth 3 win-edges))
  33. (fr-height (frame-height)))
  34. (cond
  35. ((eq 0 this-window-y-min) "top")
  36. ((eq (- fr-height 1) this-window-y-max) "bot")
  37. (t "mid"))))
  38.  
  39. (defun win-resize-left-or-right ()
  40. "Figure out if the current window is to the left, right or in the
  41. middle"
  42. (let* ((win-edges (window-edges))
  43. (this-window-x-min (nth 0 win-edges))
  44. (this-window-x-max (nth 2 win-edges))
  45. (fr-width (frame-width)))
  46. (cond
  47. ((eq 0 this-window-x-min) "left")
  48. ((<= fr-width this-window-x-max) "right")
  49. (t "mid"))))
  50.  
  51. (defun win-resize-up ()
  52. (interactive)
  53. (cond
  54. ((equal "top" (win-resize-top-or-bot)) (enlarge-window -1))
  55. ((equal "bot" (win-resize-top-or-bot)) (enlarge-window 1))
  56. ((equal "mid" (win-resize-top-or-bot)) (enlarge-window -1))
  57. (t (message "nil"))))
  58.  
  59. (defun win-resize-down ()
  60. (interactive)
  61. (cond
  62. ((equal "top" (win-resize-top-or-bot)) (enlarge-window 1))
  63. ((equal "bot" (win-resize-top-or-bot)) (enlarge-window -1))
  64. ((equal "mid" (win-resize-top-or-bot)) (enlarge-window 1))
  65. (t (message "nil"))))
  66.  
  67. (defun win-resize-left ()
  68. (interactive)
  69. (cond
  70. ((equal "left" (win-resize-left-or-right)) (enlarge-window-horizontally -1))
  71. ((equal "right" (win-resize-left-or-right)) (enlarge-window-horizontally 1))
  72. ((equal "mid" (win-resize-left-or-right)) (enlarge-window-horizontally -1))))
  73.  
  74. (defun win-resize-right ()
  75. (interactive)
  76. (cond
  77. ((equal "left" (win-resize-left-or-right)) (enlarge-window-horizontally 1))
  78. ((equal "right" (win-resize-left-or-right)) (enlarge-window-horizontally -1))
  79. ((equal "mid" (win-resize-left-or-right)) (enlarge-window-horizontally 1))))
  80.  
  81. ;; (global-set-key [S-C-down] 'win-resize-minimize-vert)
  82. ;; (global-set-key [S-C-up] 'win-resize-enlarge-vert)
  83. ;; (global-set-key [S-C-left] 'win-resize-minimize-horiz)
  84. ;; (global-set-key [S-C-right] 'win-resize-enlarge-horiz)
  85. (global-set-key [S-M-up] 'win-resize-up)
  86. (global-set-key [S-M-down] 'win-resize-down)
  87. (global-set-key [S-M-left] 'win-resize-left)
  88. (global-set-key [S-M-right] 'win-resize-right)
  89. (global-set-key [S-C-up] 'win-resize-up)
  90. (global-set-key [S-C-down] 'win-resize-down)
  91. (global-set-key [S-C-left] 'win-resize-left)
  92. (global-set-key [S-C-right] 'win-resize-right)
  93.  
  94.  
  95.  
  96. ;;passage d'un buffer a l'autre
  97.  
  98. (global-set-key [(control b)] 'ido-switch-buffer)
  99. (global-set-key [M-left] 'windmove-left) ; move to left windnow
  100. (global-set-key [M-right] 'windmove-right) ; move to right window
  101. (global-set-key [M-up] 'windmove-up) ; move to upper window
  102. (global-set-key [M-down] 'windmove-down)
  103. (global-set-key [A-left] 'windmove-left) ; move to left windnow
  104. (global-set-key [A-right] 'windmove-right) ; move to right window
  105. (global-set-key [A-up] 'windmove-up) ; move to upper window
  106. (global-set-key [A-down] 'windmove-down)
  107. ;(global-set-key [ <ESC>-right] 'windmove-right) ; because A and M don't work with ssh
  108. (global-set-key [S-up] 'scroll-down-few)
  109. (global-set-key [select] 'scroll-down-few)
  110. (global-set-key [S-down] 'scroll-up-few)
  111. (global-set-key [S-left] 'scroll-right-few)
  112. (global-set-key [S-right] 'scroll-left-few)
  113.  
  114.  
  115. ;;bordel
  116.  
  117. (global-set-key [(control c) (f)] 'font-lock-fontify-buffer)
  118. (global-set-key [(control c) (d)] 'pwd)
  119.  
  120. (global-set-key [(meta s)] (lambda () (interactive) (git-status ".")))
  121. (global-set-key [f7] 'compile)
  122. (global-set-key [f8] 'recompile)
  123. (setq compilation-scroll-output t)
Add Comment
Please, Sign In to add comment