merge

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 08bda2a45dd96e539e1d21f7a415efadb31be527..673dd7a4063f3cab4ed2bd195b18f98a0af93490 100644 (file)
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -371,17 +371,27 @@
 (defun memo ()
   (interactive)
   (add-change-log-entry nil (expand-file-name "~/sync/memo.txt")))
-(define-key ctl-x-map "M" #'memo)
+(define-key ctl-x-map "MM" #'memo)
 
 (defun depression ()
   (interactive)
   (add-change-log-entry nil (expand-file-name "~/sync/depression.txt")))
-(define-key ctl-x-map "P" #'depression)
+(define-key ctl-x-map "MD" #'depression)
 
 (defun plant ()
   (interactive)
   (add-change-log-entry nil (expand-file-name "~/sync/plant.txt")))
-(define-key ctl-x-map "G" #'plant)
+(define-key ctl-x-map "MP" #'plant)
+
+(defun robinson ()
+  (interactive)
+  (elscreen-create)
+  (find-file (expand-file-name "~/sync/good-things.txt"))
+  (split-window-horizontally)
+  (next-window)
+  (find-file (expand-file-name "~/sync/bad-things.txt"))
+  (next-window))
+(define-key ctl-x-map "MR" #'robinson)
 
 ;; Emacs Calc
 (add-hook 'calc-start-hook