geek rescue kit Code

165 lines (132 with data), 5.9 kB

;;
;; bindings.emacs for ctafconf in /home/ctaf/IBC/batail_s-ibc2
;;
;; Made by GESTES Cedric
;; Login   <ctaf@epita.fr>
;;
;; Started on  Mon Jan 16 01:16:47 2006 GESTES Cedric
;; Last update Sun Apr  9 21:06:16 2006 GESTES Cedric
;;
(message "ctafconf loading: BINDINGS.EMACS")
;;(global-unset-key "\M-[")

(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)

(defun up-one () (interactive) (scroll-up 1))
(defun down-one () (interactive) (scroll-down 1))
(global-set-key [S-mouse-4] 'down-one)
(global-set-key [S-mouse-5] 'up-one)


(defun up-a-lot () (interactive) (scroll-up))
(defun down-a-lot () (interactive) (scroll-down))
(global-set-key [C-mouse-4] 'down-a-lot)
(global-set-key [C-mouse-5] 'up-a-lot)

(defalias 'switch-to-next-buffer 'bury-buffer)
(defun switch-to-previous-buffer ()
  "Switches to previous buffer"
  (interactive)
  (switch-to-buffer (nth (- (length (buffer-list)) 1) (buffer-list)))
)

;; (global-set-key [S-right]       'switch-to-previous-buffer)
;; (global-set-key [S-left]        'switch-to-next-buffer)

;; (global-set-key [CS-right]       'switch-to-previous-buffer)
;; (global-set-key [CS-left]        'switch-to-next-buffer)

(global-set-key [S-right]       'my-previous-buffer)
(global-set-key [S-left]        'my-next-buffer)

(global-set-key [CS-right]       'my-previous-buffer)
(global-set-key [CS-left]        'my-next-buffer)

;;emacs22 way
;;(global-set-key [S-right]       'next-buffer)
;;(global-set-key [S-left]        'prev-buffer)



;; M-x pc-bindings-mode sets up bindings compatible with many PC editors. In particular, Delete and its variants delete forward instead of backward. Use Backspace to delete backward.
;; C-Backspace kills backward a word (as C-Delete normally would).
;; M-Backspace does undo.
;; Home and End move to beginning and end of line
;; C-Home and C-End move to beginning and end of buffer.
;;(pc-bindings-mode)
;;use shift + left/right to select something
;;(pc-selection-mode)

(global-set-key "\C-x\C-b" 'ido-switch-buffer)
(global-set-key "\C-xb" 'electric-buffer-list)
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)
(global-set-key [backward-delete-char] 'backward-delete-char)
(global-set-key [C-delete] 'kill-word)
(global-set-key [C-kp-delete] 'kill-word)
(global-set-key [C-backward-delete-char] 'backward-kill-word)

;;;;CLAVIER
(global-set-key "\C-c\C-z" 'zlock)

;;changement de buffer ac ctrl+tab
(global-set-key [(control tab)] 'other-window)

;;appelle la derniere macro enregistré
(global-set-key "\M-s" 'call-last-kbd-macro)
(global-set-key "\C-z" 'call-last-kbd-macro)
;;(global-set-key "\s-s" 'call-last-kbd-macro)

(global-set-key [f1] (lambda ()
                       (interactive)
                       (switch-to-buffer "*scratch*")
                       (ctafconf-help)
                       ))

(global-set-key [(shift f1)] (lambda ()
                               (interactive)
                               (manual-entry (current-word))))

(global-set-key [f2] 'norme)
(global-set-key [(shift f2)] 'xterm-mouse-mode)
(global-set-key [f14] 'xterm-mouse-mode)

(global-set-key [f3] 'query-replace)
(global-set-key [(shift f3)] 'replace-string)
(global-set-key [f15] 'replace-string)

(global-set-key [f4] 'comment-region)
(global-set-key [(shift f4)] 'uncomment-region)
(global-set-key [f16] 'uncomment-region)

(global-set-key [f5] 'ansi-term)
(global-set-key [(shift f5)] 'speedbar)
(global-set-key [f17] 'speedbar)

(global-set-key [f6] 'bm-toggle)
(global-set-key [(shift f6)] 'bm-next)
(global-set-key [f18] 'bm-next)
(global-set-key [(control f6)] 'bm-previous)
(global-set-key [(alt f6)] 'marker-visit-next)
(global-set-key [(alt control f6)] 'marker-visit-prev)

;;(global-set-key [f6] 'comment-region)
;;(global-set-key [(shift f6)] 'uncomment-region)
;;(global-set-key [f18] 'uncomment-region)
(global-set-key [f7] 'next-error)
(global-set-key [(shift f7)] 'previous-error)
(global-set-key [(f19)] 'previous-error)

;;(global-set-key [f7] 'comment-region)
;;(global-set-key [(shift f7)] 'uncomment-region)
;;(global-set-key [f19] 'uncomment-region)

(global-set-key [f8] 'compile)
(global-set-key [(shift f8)] 'gdb)
(global-set-key [f20] 'gdb)

(global-set-key [(f12)] '(lambda() (interactive) (scroll-other-window -1)))
(global-set-key [(shift f12)] '(lambda() (interactive) (scroll-other-window 1)))
(global-set-key [(f24)] '(lambda() (interactive) (scroll-other-window 1)))
(global-set-key [(control backspace)] 'join-line)
;;goto line= alt+l
(global-set-key "\M-l" 'goto-line)


;;(global-set-key [(C-b)] 'electric-buffer-list)

;;BROKEN
;; (defun match-paren (arg)
;;   "Go to the matching parenthesis if on parenthesis otherwise insert %."
;;   (interactive "p")
;;   (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
;;         ((and (looking-at "\\s\)") (inside (point)))
;;          (forward-char 1) (backward-list 1))
;;         (t (self-insert-command (or arg 1)))))
;; (global-set-key "%" 'match-paren)
;;(global-set-key [(f11)] 'describe-function-at-point)
;;(global-set-key [(f12)] 'describe-variable-at-point)
;; buffer cycling
(autoload 'cycle-buffer "cycle-buffer" "Cycle forward." t)
(autoload 'cycle-buffer-backward "cycle-buffer" "Cycle backward." t)
(autoload 'cycle-buffer-permissive "cycle-buffer" "Cycle forward allowing *buffers*." t)
(autoload 'cycle-buffer-backward-permissive "cycle-buffer"
  "Cycle backward allowing *buffers*." t)
(autoload 'cycle-buffer-toggle-interesting "cycle-buffer"
  "Toggle if this buffer will be considered." t)

(global-set-key [(alt right)] 'cycle-buffer)
(global-set-key [(alt left)] 'cycle-buffer-backward)
(global-set-key [(alt shift right)] 'cycle-buffer-permissive)
(global-set-key [(alt shift left)] 'cycle-buffer-backward-permissive)