New keybindings and other options. Unfinished, but I have to get to work

.emacs.d/ergoemacs-keybindings-5.1/ergoemacs-unbind.el

@@ -0,0 +1,205 @@
+;-*- coding: utf-8 -*-
+
+;; this file define keys that we want to set/unset because they are already defined by ergoemacs minor mode
+
+(eval-when-compile (require 'edmacro))
+
+(defconst ergoemacs-redundant-keys
+  '( "C-/"
+     "C-0"
+     "C-1"
+     "C-2"
+     "C-3"
+     "C-4"
+     "C-5"
+     "C-6"
+     "C-7"
+     "C-8"
+     "C-9"
+     "C-<backspace>"
+     "C-<next>"
+     "C-<prior>"
+     "C-@"
+     "C-M-%"
+     "C-_"
+     "C-a"
+     "C-b"
+     "C-d"
+     "C-e"
+     "C-f"
+     "C-j"
+     "C-k"
+     "C-l"
+     "C-n"
+     "C-o"
+     "C-p"
+     "C-r"
+     "C-s"
+     "C-t"
+     "C-v"
+     "C-w"
+     "C-x 0"
+     "C-x 1"
+     "C-x 2"
+     "C-x 3"
+     "C-x 5 0"
+     "C-x 5 2"
+     "C-x C-d"
+     "C-x C-f"
+     "C-x C-s"
+     "C-x C-w"
+     "C-x d"
+     "C-x h"
+     "C-x o"
+     "C-y"
+     "C-z"
+     "M--"
+     "M-0"
+     "M-1"
+     "M-2"
+     "M-3"
+     "M-4"
+     "M-5"
+     "M-6"
+     "M-7"
+     "M-8"
+     "M-9"
+     "M-<"
+     "M->"
+     "M-@"
+     "M-\\"
+     "M-a"
+     "M-b"
+     "M-c"
+     "M-d"
+     "M-e"
+     "M-f"
+     "M-h"
+     "M-i"
+     "M-j"
+     "M-k"
+     "M-l"
+     "M-m"
+     "M-n"
+     "M-o"
+     "M-p"
+     "M-q"
+     "M-r"
+     "M-s"
+     "M-t"
+     "M-u"
+     "M-v"
+     "M-w"
+     "M-x"
+     "M-y"
+     "M-z"
+     "M-{"
+     "M-}"
+     )
+  )
+
+;; Some exceptions we don't want to unset.
+;; "C-g" 'keyboard-quit
+;; "C-i" 'indent-for-tab-command
+;; "C-m" 'newline-and-indent
+;; "C-q" 'quote-insert
+;; "C-u" 'universal-argument
+;; "C-h" ; (help-map)
+;; "C-x" ; (ctl-x-map)
+;; "C-c" ; (prefix)
+;; "M-g" ; (prefix)
+
+(defvar ergoemacs-overridden-global-keys '()
+  "Alist to store overridden keyboard shortcuts in
+  `current-global-map' and other maps. Each item looks like '(MAP KEY OLD-COMMAND).")
+
+(defun ergoemacs-unset-global-key (map key-s)
+  "Sets to nil the associated command for the specified key in specified map.
+It is like:
+
+  \(define-key map (kbd key-s) nil))
+
+But it saves the old command associated with the
+specified key, so we can restore it when ergoemacs minor mode is
+disabled at `ergoemacs-restore-global-keys'."
+  (let (key oldcmd)
+    (setq key (edmacro-parse-keys key-s))
+    ;; get the old command associated with this key
+    (setq oldcmd (lookup-key map key))
+    ;; save that shortcut in ergoemacs-overridden-global-keys
+    (if oldcmd
+	(add-to-list 'ergoemacs-overridden-global-keys (cons map (cons key-s (cons oldcmd nil)))))
+    ;; redefine the key in the ergoemacs-keymap
+    (define-key map key nil)
+    )
+  )
+
+(defun ergoemacs-unset-redundant-global-keys ()
+  "Unsets redundant keyboard shortcuts that should not be used in ErgoEmacs."
+  (mapc (lambda (x)
+	  (ergoemacs-unset-global-key (current-global-map) x))
+	ergoemacs-redundant-keys)
+  )
+
+(defun ergoemacs-restore-global-keys ()
+  "Restores all keyboard shortcuts that were overwritten by `ergoemacs-unbind-global-key'."
+  (mapc (lambda (x)
+	  (define-key
+	    (car x)
+	    (edmacro-parse-keys (car (cdr x)))
+	    (car (cdr (cdr x))))
+	  )
+	ergoemacs-overridden-global-keys)
+  (setq ergoemacs-overridden-global-keys '()) ; clear the list
+  )
+
+;; Based on describe-key-briefly
+(defun where-is-old-binding (&optional key)
+  "Print the name of the function KEY invoked before to start ErgoEmacs minor mode."
+  (interactive
+   (let ((enable-disabled-menus-and-buttons t)
+	 (cursor-in-echo-area t)
+	 saved-yank-menu)
+     (unwind-protect
+	 (let (key)
+	   ;; If yank-menu is empty, populate it temporarily, so that
+	   ;; "Select and Paste" menu can generate a complete event.
+	   (when (null (cdr yank-menu))
+	     (setq saved-yank-menu (copy-sequence yank-menu))
+	     (menu-bar-update-yank-menu "(any string)" nil))
+	   (setq key (read-key-sequence "Describe old key (or click or menu item): "))
+	   ;; If KEY is a down-event, read and discard the
+	   ;; corresponding up-event.  Note that there are also
+	   ;; down-events on scroll bars and mode lines: the actual
+	   ;; event then is in the second element of the vector.
+	   (and (vectorp key)
+		(let ((last-idx (1- (length key))))
+		  (and (eventp (aref key last-idx))
+		       (memq 'down (event-modifiers (aref key last-idx)))))
+		(read-event))
+	   (list key))
+       ;; Put yank-menu back as it was, if we changed it.
+       (when saved-yank-menu
+	 (setq yank-menu (copy-sequence saved-yank-menu))
+	 (fset 'yank-menu (cons 'keymap yank-menu))))))
+
+  (let (key-desc item-key item-cmd old-cmd)
+    (setq key-desc (key-description key))
+    (setq item ergoemacs-overridden-global-keys)
+    (while (and item (not old-cmd))
+      (setq item-key (car (cdr (car item))))
+      (setq item-cmd (car (cdr (cdr (car item)))))
+      (if (string= item-key key-desc)
+	  (setq old-cmd item-cmd))
+      (setq item (cdr item))
+      )
+    (if old-cmd
+	(with-temp-buffer
+	  (where-is old-cmd t)
+	  (message "Key %s was bound to %s which is now invoked by %s"
+		   key-desc old-cmd (buffer-string))
+	  )
+      (message "Key %s was not bound to any command" key-desc)
+      )
+    )
+  )