From 37b4b81c18aa1fd3d1a06e2a0cfa13d6023eb50a Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Mon, 18 May 2015 13:31:55 -0700 Subject: [PATCH] update org files --- emacs_el/configuration/don-configuration.org | 34 +++++++++++++++++++- 1 file changed, 33 insertions(+), 1 deletion(-) diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org index 0ff4e42..7d35129 100644 --- a/emacs_el/configuration/don-configuration.org +++ b/emacs_el/configuration/don-configuration.org @@ -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 @@ -60,6 +60,38 @@ #+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) -- 2.39.5