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

add option to disable "no heading in buffer" warning

Browse source
This commit is contained in:
Xu Jingcheng 2023-12-30 22:17:15 -06:00
parent a4bf5b0a92
commit 18bfc23131
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
org-ql.el
View file

@ -325,6 +325,11 @@ See Info node `(org-ql)Queries'."
(const outline-path) (const outline-path)
(const outline-path-segment))) (const outline-path-segment)))
(defcustom org-ql-warn-no-heading t
"Whether to display a warning message when a regular buffer with
no headings are searched."
:type 'boolean)
;;;; Functions ;;;; Functions
;;;;; Query execution ;;;;; Query execution
@ -539,7 +544,7 @@ PREAMBLE-CASE-FOLD."
(if (not (org-at-heading-p)) (if (not (org-at-heading-p))
(progn (progn
;; No headings in buffer: return nil. ;; No headings in buffer: return nil.
(unless (string-prefix-p " " (buffer-name)) (unless (or (not org-ql-warn-no-heading) (string-prefix-p " " (buffer-name)))
;; Not a special, hidden buffer: show message, because if a user accidentally ;; Not a special, hidden buffer: show message, because if a user accidentally
;; searches a buffer without headings, he might be confused. ;; searches a buffer without headings, he might be confused.
(message "org-ql: No headings in buffer: %s" (current-buffer))) (message "org-ql: No headings in buffer: %s" (current-buffer)))