bind ffap to \C-cF

[emacs-init.git] / setup / bindings.el

diff --git a/setup/bindings.el b/setup/bindings.el
index 622bc61..25cab3f 100644 (file)
--- a/setup/bindings.el
+++ b/setup/bindings.el
@@ -9,4 +9,32 @@
 (global-set-key "\C-c'c" 'toggle-case-fold-search)
 (global-set-key "\C-c's" 'flyspell-mode)
 (global-set-key "\C-c'a" 'global-auto-revert-mode)
-(global-set-key "\C-c' " 'whitespace-mode)
\ No newline at end of file
+(global-set-key "\C-cF" 'ffap)
+
+;(require 'develock)
+;(require 'develock-py)
+
+(defun toggle-whitespace-mode (&optional mode)
+  (interactive)
+  ;; toggle whitespace mode between:
+  ;; * everything as globaly configured
+  ;; * as above but disable lines-tail
+  ;; * nothing
+  (if (null mode)
+      (if (local-variable-p 'whitespace-style)
+          (if (null whitespace-style)
+              (setq mode 'default)
+            (setq mode 'none))
+        (setq mode 'longlines)))
+  (cond ((eq mode 'default)
+         (kill-local-variable 'whitespace-style))
+        ((eq mode 'longlines)
+         (setq-local whitespace-style (remove 'lines-tail (default-value 'whitespace-style))))
+        ((eq mode 'none)
+         (setq-local whitespace-style nil)))
+  (whitespace-mode -1)
+  (sit-for 0)
+  (whitespace-mode 1)
+  (message "whitespace: %s" mode))
+
+(global-set-key "\C-c' " 'toggle-whitespace-mode)