From 5cd699c5c8c0a439143fa143952fcaf336bb4ad0 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Fri, 10 Apr 2015 13:03:07 +0200
Subject: org: strike through DONE items

---
 lisp/init-org.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lisp/init-org.el')

diff --git a/lisp/init-org.el b/lisp/init-org.el
index 308b59b..efb2e74 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -21,6 +21,16 @@
       ("n" todo "NEXT" nil)
       ("d" "Agenda + Next Actions" ((agenda) (todo "NEXT")))))
 
+(defun my/modify-org-done-face ()
+  (setq org-fontify-done-headline t)
+  (set-face-attribute 'org-done nil :strike-through t)
+  (set-face-attribute 'org-headline-done nil
+                      :strike-through t
+                      :foreground "light gray"))
+
+(eval-after-load "org"
+  (add-hook 'org-add-hook 'my/modify-org-done-face))
+
 (defun gtd ()
    (interactive)
    (find-file (concat org-directory "/master.org")))
-- 
cgit v1.2.3