From a9a4ac33d8b85432fe82159ce3ee51333d740c8c Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Wed, 22 Aug 2018 14:14:11 -0500 Subject: [PATCH] Change: Remove org-ql-agenda--add-markers We use org-ql--add-agenda-markers now. --- org-ql-agenda.el | 9 --------- 1 file changed, 9 deletions(-) diff --git a/org-ql-agenda.el b/org-ql-agenda.el index 4e043cd..1a9b258 100644 --- a/org-ql-agenda.el +++ b/org-ql-agenda.el @@ -145,15 +145,6 @@ dates in the past, and negative for dates in the future." ;;;; Faces/properties -(defun org-ql-agenda--add-markers (element) - "Return ELEMENT with marker properties added." - (let* ((marker (org-agenda-new-marker (org-element-property :begin element))) - (properties (--> (cadr element) - (plist-put it :org-marker marker) - (plist-put it :org-hd-marker marker)))) - (setf (cadr element) properties) - element)) - (defun org-ql-agenda--format-element (element) ;; This essentially needs to do what `org-agenda-format-item' does, ;; which is a lot. We are a long way from that, but it's a start.