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

Tidy: Docstrings

Browse source
This commit is contained in:
Adam Porter 2020-01-03 06:57:54 -06:00
parent fbff8720b0
commit 19833cbbec
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql-view.el
View file

@ -107,7 +107,7 @@ Based on `org-agenda-mode-map'.")
(const :tag "Right" right))) (const :tag "Right" right)))
(defcustom org-ql-view-no-other-window nil (defcustom org-ql-view-no-other-window nil
"Whether `other-window' commands should cycle through the `org-ql-views' sidebar window. "Whether `other-window' commands should cycle through `org-ql-views' sidebar.
See info node `(elisp)Cyclic Window Ordering'." See info node `(elisp)Cyclic Window Ordering'."
:type 'boolean) :type 'boolean)
@ -385,7 +385,8 @@ subsequent refreshing of the buffer: `org-ql-view-buffers-files',
(goto-char (point-min)))))) (goto-char (point-min))))))
(defun org-ql-view--header-line-format (buffers-files query &optional title) (defun org-ql-view--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.
If TITLE, prepend it to the header."
(let* ((title (if title (let* ((title (if title
(concat (propertize "View:" 'face 'org-agenda-structure) (concat (propertize "View:" 'face 'org-agenda-structure)
title " ") title " ")