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