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

Add priority face

Browse source
This commit is contained in:
Adam Porter 2017-08-05 05:36:54 -05:00
parent 1a42de9293
commit 99f7456213
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
org-agenda-ng.el
View file

@ -124,7 +124,11 @@ Its property list should be the second item in the list, as returned by `org-ele
(org-add-props it nil 'face 'org-tag)))
(level (org-element-property :level element))
(category (org-element-property :category element))
(string (s-join " " (list todo-keyword title tag-string))))
(priority-string (-some->> (org-element-property :priority element)
(char-to-string)
(format "[#%s]")
(org-agenda-ng--add-priority-face)))
(string (s-join " " (list todo-keyword priority-string title tag-string))))
(remove-list-of-text-properties 0 (length string) '(line-prefix) string)
;; Add all the necessary properties and faces to the whole string
(--> string
@ -135,6 +139,12 @@ Its property list should be the second item in the list, as returned by `org-ele
(org-agenda-ng--add-scheduled-face)
(org-agenda-ng--add-deadline-face)))
(defun org-agenda-ng--add-priority-face (string)
"Return STRING with priority face added."
(when (string-match "\\(\\[#\\(.\\)\\]\\)" string)
(let ((face (org-get-priority-face (string-to-char (match-string 2)))))
(org-add-props string nil 'face face 'font-lock-fontified t))))
(defun org-agenda-ng--add-scheduled-face (element)
"Add faces to ELEMENT's title for its scheduled status."
(if-let ((scheduled-date (org-element-property :scheduled element)))