From b256fa6a78e30c50949db5ecc510e218b4f8ae5e Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 13 Aug 2019 21:33:54 -0500 Subject: [PATCH] Change: (org-ql-agenda--header-line-format) Spacing A bit more compact. --- org-ql-agenda.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/org-ql-agenda.el b/org-ql-agenda.el index bb1a7af..84b5ef4 100644 --- a/org-ql-agenda.el +++ b/org-ql-agenda.el @@ -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)