Fixed line width calculation for helm source
.Was resulting in negative values on long entries and the resulting error was being suppressed by `ignore-errors' in the source
This commit is contained in:
parent
af18eac2b8
commit
89e25e7515
1 changed files with 1 additions and 1 deletions
|
|
@ -206,7 +206,7 @@ WINDOW-WIDTH should be the width of the Helm window."
|
||||||
;; I'd prefer not to do. Maybe I should add a feature to `org-ql' to
|
;; I'd prefer not to do. Maybe I should add a feature to `org-ql' to
|
||||||
;; call a setup function in a buffer before running queries.
|
;; call a setup function in a buffer before running queries.
|
||||||
(let* ((prefix (concat (buffer-name) ":"))
|
(let* ((prefix (concat (buffer-name) ":"))
|
||||||
(width (- window-width (length prefix)))
|
(width (max 0 (- window-width (length prefix))))
|
||||||
(heading (org-get-heading t))
|
(heading (org-get-heading t))
|
||||||
(path (-> (org-get-outline-path)
|
(path (-> (org-get-outline-path)
|
||||||
(org-format-outline-path width nil "")
|
(org-format-outline-path width nil "")
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue