add variable for org agenda item foreground color

- add variable cfw:org-face-agenda-item-foreground-color
kiwanami · Sep 8, 2015 · 240b4cb · 240b4cb
1 parent fc4a983
commit 240b4cb
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/calfw-org.el b/calfw-org.el
@@ -84,6 +84,9 @@ For example,
     v m | cfw:change-view-month
  ------------------------------------------------")
 
+(defvar cfw:org-face-agenda-item-foreground-color "Seagreen4"
+  "Variable for org agenda item foreground color.")
+
 (defun cfw:org-collect-schedules-period (begin end)
   "[internal] Return org schedule items between BEGIN and END."
   (let ((org-agenda-prefix-format " ")
@@ -457,7 +460,7 @@ TEXT1 < TEXT2. This function makes no-time items in front of timed-items."
   "Create org-agenda source."
   (make-cfw:source
    :name "org-agenda"
-   :color (or color "Seagreen4")
+   :color (or color cfw:org-face-agenda-item-foreground-color)
    :data 'cfw:org-schedule-period-to-calendar))
 
 (defun cfw:open-org-calendar ()