From e97d2c0af3e1d30cecfbc55ea3f3e8e034b76353 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Mon, 12 Aug 2019 20:45:44 -0500 Subject: [PATCH] Add: org-ql-agenda-face --- README.org | 1 + org-ql-agenda.el | 8 +++++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/README.org b/README.org index fee9ab9..e7cd729 100644 --- a/README.org +++ b/README.org @@ -365,6 +365,7 @@ Expands into a call to ~org-ql-select~ with the same arguments. For convenience + Function ~org-ql-agenda--agenda~ optionally takes a list of entries as an argument. + Selectors ~ts-a~ and ~ts-i~, aliases for ~ts-active~ and ~ts-inactive~. + Selector ~ts~ now accepts a ~:type~ argument. ++ Face =org-ql-agenda-due-date=. *Changed* + Function ~org-ql-query~ renamed to ~org-ql-select~. ~org-ql-query~ now refers to a new function. diff --git a/org-ql-agenda.el b/org-ql-agenda.el index 5423887..93f67f4 100644 --- a/org-ql-agenda.el +++ b/org-ql-agenda.el @@ -48,6 +48,12 @@ (when (version< org-version "9.2") (defalias 'org-get-tags #'org-get-tags-at)) +;;;; Faces + +(defface org-ql-agenda-due-date + '((t (:slant italic :weight bold))) + "Face for due dates in `org-ql-agenda' views.") + ;;;; Variables (defvar org-ql-agenda-buffer-name "*Org-QL-Agenda*" @@ -385,7 +391,7 @@ return an empty string." (org-habit-parse-todo)))) (due-string (pcase (org-element-property :relative-due-date element) ('nil "") - (string (format " %s " (org-add-props string nil 'face 'underline))))) + (string (format " %s " (org-add-props string nil 'face 'org-ql-agenda-due-date))))) (string (s-join " " (-non-nil (list todo-keyword priority-string title due-string tag-string))))) (remove-list-of-text-properties 0 (length string) '(line-prefix) string) ;; Add all the necessary properties and faces to the whole string