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

Tidy: (org-ql-view--display) Take STRINGS instead of STRING

Browse source 
No need to allocate one large string just to insert it into the
buffer.
This commit is contained in:
Adam Porter 2023-12-24 01:10:27 -06:00
parent 0e39372146
commit a4bf5b0a92
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
org-ql-view.el
View file

@ -408,7 +408,7 @@ update search arguments."
(defvar bookmark-make-record-function)
(cl-defun org-ql-view--display (&key (buffer org-ql-view-buffer) header string)
(cl-defun org-ql-view--display (&key (buffer org-ql-view-buffer) header strings)
"Display STRING in `org-ql-view' BUFFER.
BUFFER may be a buffer, or a string naming a buffer, which is
@ -446,7 +446,9 @@ subsequent refreshing of the buffer: `org-ql-view-buffers-files',
;; Clear buffer, insert entries, etc.
(let ((inhibit-read-only t))
(erase-buffer)
(insert string "\n")
(dolist (string strings)
(insert string "\n"))
(insert "\n")
(pop-to-buffer (current-buffer) org-ql-view-display-buffer-action)
(org-agenda-finalize)
(goto-char (point-min))))))