]> git.donarmstrong.com Git - lib.git/commitdiff
update org files
authorDon Armstrong <don@donarmstrong.com>
Mon, 18 May 2015 20:31:55 +0000 (13:31 -0700)
committerDon Armstrong <don@donarmstrong.com>
Mon, 18 May 2015 20:31:55 +0000 (13:31 -0700)
emacs_el/configuration/don-configuration.org

index 0ff4e42b14ea2c834faf4ef90f846b7c444d2f67..7d3512954c44109d6c12e082537df1f64a157f4f 100644 (file)
@@ -27,7 +27,7 @@
 #+BEGIN_SRC emacs-lisp  :tangle don-configuration.el
   ;; load tinyprocmail
   (with-library 'tinyprocmail
-    (setq tinyprocmail--procmail-version "v3.22")
+    (setq tinyprocmail--procmail-version "v3.22")
     (add-hook 'tinyprocmail--load-hook 'tinyprocmail-install))
 #+END_SRC
 
 #+BEGIN_SRC emacs-lisp  :tangle don-configuration.el
 (require 'don-helm)
 #+END_SRC
+
+* Keybindings
+** Override other things
+#+BEGIN_SRC emacs-lisp  :tangle don-configuration.el
+  ; apparently things like to step on C-;, so we'll use a hack from
+  ; http://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs/5340797#5340797 to fix this
+
+  (defvar my-keys-minor-mode-map (make-keymap) "my-keys-minor-mode keymap.")
+
+  ; use iedit everywhere
+  (define-key my-keys-minor-mode-map (kbd "C-;") 'iedit-mode)
+  ;; use outline mode keybindings everywhere
+  (define-key my-keys-minor-mode-map (kbd "C-;") 'my/mydra-outline/body)
+
+  (define-minor-mode my-keys-minor-mode
+    "A minor mode so that my key settings override annoying major modes."
+    t " my-keys" 'my-keys-minor-mode-map)
+
+  (my-keys-minor-mode 1)
+  (defun my-minibuffer-setup-hook ()
+    (my-keys-minor-mode 0))
+
+  (add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-hook)
+  (defadvice load (after give-my-keybindings-priority)
+    "Try to ensure that my keybindings always have priority."
+    (if (not (eq (car (car minor-mode-map-alist)) 'my-keys-minor-mode))
+        (let ((mykeys (assq 'my-keys-minor-mode minor-mode-map-alist)))
+          (assq-delete-all 'my-keys-minor-mode minor-mode-map-alist)
+          (add-to-list 'minor-mode-map-alist mykeys))))
+  (ad-activate 'load)
+#+END_SRC
+
 * END
 #+BEGIN_SRC emacs-lisp  :tangle don-configuration.el
   (provide 'don-configuration)