jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change: Remove org-ql-agenda--add-markers

Browse source 
We use org-ql--add-agenda-markers now.
This commit is contained in:
Adam Porter 2018-08-22 14:14:11 -05:00
parent a2d8ed2eeb
commit a9a4ac33d8
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
org-ql-agenda.el
View file

@ -145,15 +145,6 @@ dates in the past, and negative for dates in the future."
;;;; Faces/properties ;;;; 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) (defun org-ql-agenda--format-element (element)
;; This essentially needs to do what `org-agenda-format-item' does, ;; 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. ;; which is a lot. We are a long way from that, but it's a start.