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

Fix: (org-ql-agenda--header-line-format) Available width

Browse source 
Could cause an error with very long queries.
This commit is contained in:
Adam Porter 2019-08-15 17:47:39 -05:00
parent b2d54e4889
commit 6cd9341146
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql-agenda.el
View file

@ -296,10 +296,10 @@ the `match' item in the custom command form."
(query-formatted (propertize (org-ql-agenda--font-lock-string 'emacs-lisp-mode query-formatted) (query-formatted (propertize (org-ql-agenda--font-lock-string 'emacs-lisp-mode query-formatted)
'help-echo query-formatted)) 'help-echo query-formatted))
(query-width (length query-formatted)) (query-width (length query-formatted))
(available-width (- (window-width) (available-width (max 0 (- (window-width)
(length "In: ") (length "In: ")
(length "Query: ") (length "Query: ")
query-width 4)) query-width 4)))
(buffers-files-formatted (format "%S" buffers-files)) (buffers-files-formatted (format "%S" buffers-files))
(buffers-files-formatted (propertize (->> buffers-files-formatted (buffers-files-formatted (propertize (->> buffers-files-formatted
(org-ql-agenda--font-lock-string 'emacs-lisp-mode) (org-ql-agenda--font-lock-string 'emacs-lisp-mode)