Auto commit by The Sugar System.

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index 92bd6d09a13736bddab343715abad4b222471343..7d282bdc2e73818b5fb47eadc91effb073a7d988 100644 (file)
--- 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)