update org files

[lib.git] / emacs_el / configuration / don-configuration.org

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index 0ff4e42b14ea2c834faf4ef90f846b7c444d2f67..572d8076a5a4502faf0b9e79b7aa438c95f3d2fb 100644 (file)
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -1,3 +1,11 @@
+* Load debugger
+
+# if for some reason, things get pear-shaped, we want to be able to
+# enter the debugger by sending -USR2 to emacs
+
+#+BEGIN_SRC emacs-lisp :tangle don-configuration.el
+(setq debug-on-event 'siguser2)
+#+END_SRC
 * Add library paths
 
 #+BEGIN_SRC emacs-lisp  :tangle don-configuration.el
@@ -27,7 +35,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 +68,53 @@
 #+BEGIN_SRC emacs-lisp  :tangle don-configuration.el
 (require 'don-helm)
 #+END_SRC
+** Hydra
+#+BEGIN_SRC emacs-lisp :tangle don-configuration.el
+(require 'don-hydra)
+#+END_SRC
+
+** Tramp
+#+BEGIN_SRC emacs-lisp  :tangle don-configuration.el
+  (add-to-list 'tramp-methods '("vcsh"
+                                (tramp-login-program "vcsh")
+                                (tramp-login-args
+                                 (("enter")
+                                  ("%h")))
+                                (tramp-remote-shell "/bin/sh")
+                                (tramp-remote-shell-args
+                                 ("-c"))))
+#+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)