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

feat - Added option to set table name

Browse source 
Allows the table to be referenced.
Optional string.
This commit is contained in:
OZoneGuy 2024-01-08 18:24:28 -05:00
parent 1d98c7d07c
commit 0ba63291a3
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
org-ql-search.el
View file

@ -296,13 +296,16 @@ Valid parameters include:
:ts-format Optional format string used to format :ts-format Optional format string used to format
timestamp-based columns. timestamp-based columns.
:table-name Optional string. If non-nil, add `#+tblname: <name>'
before the table. Allowing it to be referenced.
For example, an org-ql dynamic block header could look like For example, an org-ql dynamic block header could look like
this (must be a single line in the Org buffer): this (must be a single line in the Org buffer):
#+BEGIN: org-ql :query (todo \"UNDERWAY\") #+BEGIN: org-ql :query (todo \"UNDERWAY\")
:columns (priority todo heading) :sort (priority date) :columns (priority todo heading) :sort (priority date)
:ts-format \"%Y-%m-%d %H:%M\"" :ts-format \"%Y-%m-%d %H:%M\""
(-let* (((&plist :query :columns :sort :ts-format :take) params) (-let* (((&plist :query :columns :sort :ts-format :take :table-name) params)
(query (cl-etypecase query (query (cl-etypecase query
(string (org-ql--query-string-to-sexp query)) (string (org-ql--query-string-to-sexp query))
(list ;; SAFETY: Query is in sexp form: ask for confirmation, because it could contain arbitrary code. (list ;; SAFETY: Query is in sexp form: ask for confirmation, because it could contain arbitrary code.
@ -353,6 +356,8 @@ this (must be a single line in the Org buffer):
"")) ""))
" | "))) " | ")))
;; Table header ;; Table header
(if table-name
(insert (concat "#+tblname: " (format "%s" table-name) "\n")))
(insert "| " (string-join (--map (pcase it (insert "| " (string-join (--map (pcase it
((pred symbolp) (capitalize (symbol-name it))) ((pred symbolp) (capitalize (symbol-name it)))
(`(,_ ,name) name)) (`(,_ ,name) name))