From: PHO <pho@cielonegro.org>
Date: Thu, 14 Jun 2012 06:59:00 +0000 (+0900)
Subject: Auto commit by The Sugar System.
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=e21bff65f716e6b4d474426569632196c374035d;p=sugar.git

Auto commit by The Sugar System.
---

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 92bd6d0..7d282bd 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -391,6 +391,15 @@
   "Major mode for editing YAML files." t)
 (add-to-list 'auto-mode-alist '("\\.ya?ml$"  . yaml-mode))
 
+;; Troublesome Tasks
+(if (equal (system-name) "seras")
+    (progn
+      (defun edit-troublesome-tasks ()
+        (interactive)
+        (elscreen-create)
+        (find-file (expand-file-name "~/var/troublesome-tasks.txt")))
+      (define-key ctl-x-map "MT" #'edit-troublesome-tasks)))
+
 ;; ChangeLog
 (setq user-full-name "PHO")
 (setq user-mail-address "pho@cielonegro.org")
@@ -422,13 +431,13 @@
 
 ;; Emacs Calc
 (add-hook 'calc-start-hook
-	  (lambda ()
-	    (if (functionp 'paren-deactivate)
-		(paren-deactivate))))
+          (lambda ()
+            (if (functionp 'paren-deactivate)
+                (paren-deactivate))))
 (add-hook 'calc-end-hook
-	  (lambda ()
-	    (if (functionp 'paren-activate)
-		(paren-activate))))
+          (lambda ()
+            (if (functionp 'paren-activate)
+                (paren-activate))))
 
 ;;; emacs-w3m
 (autoload 'w3m "w3m" "Interface for w3m on Emacs." t)