From 0d7cfc1720fea9b97d5610c1ed3ff930bf4f33a3 Mon Sep 17 00:00:00 2001 From: PHO <pho@cielonegro.org> Date: Fri, 29 Apr 2011 00:43:25 +0900 Subject: [PATCH] merge --- dot-files/_emacs_el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el index 08bda2a..673dd7a 100644 --- 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 -- 2.40.0