summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Wiegley <johnw@newartisans.com>2011-09-21 04:09:49 -0500
committerJohn Wiegley <johnw@newartisans.com>2011-09-21 04:09:49 -0500
commit0c099370691469d8078121ba2b0567bd19a628c3 (patch)
tree4e7dcdeccf0c3bf96381213d0b55bdebceeeb65a
parent4fbefd87aa6ce30e6d6bc7c115c9b59042ed02f0 (diff)
downloadorg-mode-0c099370691469d8078121ba2b0567bd19a628c3.tar.gz
New vars: org-habit-today-glyph, org-habit-completed-glyph
-rw-r--r--lisp/org-habit.el14
1 files changed, 12 insertions, 2 deletions
diff --git a/lisp/org-habit.el b/lisp/org-habit.el
index 7886503..f8bd12a 100644
--- a/lisp/org-habit.el
+++ b/lisp/org-habit.el
@@ -67,6 +67,16 @@ relative to the current effective date."
:group 'org-habit
:type 'boolean)
+(defcustom org-habit-today-glyph ?!
+ "Glyph character used to identify today."
+ :group 'org-habit
+ :type 'character)
+
+(defcustom org-habit-completed-glyph ?*
+ "Glyph character used to show completed days on which a task was done."
+ :group 'org-habit
+ :type 'character)
+
(defface org-habit-clear-face
'((((background light)) (:background "#8270f9"))
(((background dark)) (:background "blue")))
@@ -296,7 +306,7 @@ current time."
(days-to-time
(- start (time-to-days starting))))))
- (aset graph index ?*)
+ (aset graph index org-habit-completed-glyph)
(setq markedp t)
(put-text-property
index (1+ index) 'help-echo
@@ -306,7 +316,7 @@ current time."
(setq last-done-date (car done-dates)
done-dates (cdr done-dates))))
(if todayp
- (aset graph index ?!)))
+ (aset graph index org-habit-today-glyph)))
(setq face (if (or in-the-past-p todayp)
(car faces)
(cdr faces)))