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

Change: (org-ql-agenda--header-line-format) Spacing

Browse source 
A bit more compact.
This commit is contained in:
Adam Porter 2019-08-13 21:33:54 -05:00
parent 317a460c1d
commit b256fa6a78
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
org-ql-agenda.el
View file

@ -287,7 +287,7 @@ the `match' item in the custom command form."
(defun org-ql-agenda--header-line-format (buffers-files query &optional title)
"Return header-line-format for BUFFERS-FILES and QUERY."
(let* ((title (if title
(concat (propertize "View: " 'face 'org-agenda-structure)
(concat (propertize "View:" 'face 'org-agenda-structure)
title " ")
""))
(query-formatted (format "%S" query))
@ -304,9 +304,9 @@ the `match' item in the custom command form."
(s-truncate available-width))
'help-echo buffers-files-formatted)))
(concat title
(propertize "Query: " 'face 'org-agenda-structure)
(propertize "Query:" 'face 'org-agenda-structure)
query-formatted " "
(propertize "In: " 'face 'org-agenda-structure)
(propertize "In:" 'face 'org-agenda-structure)
buffers-files-formatted)))
(defun org-ql-agenda--font-lock-string (mode s)