setup/bindings.el

   1 (global-set-key "\M-/" 'hippie-expand)
   2 (global-set-key "\C-c'w" 'which-func-mode)
   3 (global-set-key "\C-c'h" 'highlight-changes-mode)
   4 (global-set-key "\C-c'f" 'auto-fill-mode)
   5 (global-set-key "\C-c'v" 'visual-line-mode)
   6 (global-set-key "\C-c't" 'toggle-truncate-lines)
   7 (global-set-key "\C-c'd" 'toggle-debug-on-error)
   8 (global-set-key "\C-c'g" 'toggle-debug-on-quit)
   9 (global-set-key "\C-c'c" 'toggle-case-fold-search)
  10 (global-set-key "\C-c's" 'flyspell-mode)
  11 (global-set-key "\C-c'a" 'global-auto-revert-mode)
  12 (global-set-key "\C-cF" 'ffap)
  13
  14 ;(require 'develock)
  15 ;(require 'develock-py)
  16
  17 (defun toggle-whitespace-mode (&optional mode)
  18   (interactive)
  19   ;; toggle whitespace mode between:
  20   ;; * everything as globaly configured
  21   ;; * as above but disable lines-tail
  22   ;; * nothing
  23   (if (null mode)
  24       (if (local-variable-p 'whitespace-style)
  25           (if (null whitespace-style)
  26               (setq mode 'default)
  27             (setq mode 'none))
  28         (setq mode 'longlines)))
  29   (cond ((eq mode 'default)
  30          (kill-local-variable 'whitespace-style))
  31         ((eq mode 'longlines)
  32          (setq-local whitespace-style (remove 'lines-tail (default-value 'whitespace-style))))
  33         ((eq mode 'none)
  34          (setq-local whitespace-style nil)))
  35   (whitespace-mode -1)
  36   (sit-for 0)
  37   (whitespace-mode 1)
  38   (message "whitespace: %s" mode))
  39
  40 (global-set-key "\C-c' " 'toggle-whitespace-mode)