From: PHO Date: Thu, 28 Apr 2011 15:43:25 +0000 (+0900) Subject: merge X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=0d7cfc1720fea9b97d5610c1ed3ff930bf4f33a3;p=sugar.git merge --- 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