Skip to content

Add support for headers #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
stephenwithav wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Add support for headers #1

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d4f0e1b
Add support for headers
stephenwithav-yassi Jul 19, 2025
1910b29
Allow inherited GRPC-HEADERS
stephenwithav-yassi Jul 22, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
17 changes: 16 additions & 1 deletion ob-grpc.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -146,19 +146,34 @@ in PROTO-FILE and IMPORT-PATHS. Else return methods under SERVICE."
(nth 1 msg-template)))))


(defun ob-grpc--set-header-flag (header)
(concat "-H \"" header "\""))

(defun ob-grpc--headers-or-empty-string ()
(let ((headers (org-entry-get nil "GRPC-HEADERS" t)))
(if (eq nil headers)
""
headers)))


;;;###autoload
(defun org-babel-execute:grpc (body params)
"Execute a grpc call with BODY as request, using grpcurl, with method and endpoint taken from PARAMS."
(let* ((proto-file (org-entry-get nil "PROTO-FILE" t))
(import-paths (split-string (org-entry-get nil "PROTO-IMPORT-PATH" t) " "))
(grpc-endpoint (org-entry-get nil "GRPC-ENDPOINT" t))
(plain-text (org-entry-get nil "PLAIN-TEXT" t))
(grpc-headers-list (split-string-and-unquote (ob-grpc--headers-or-empty-string)))
(grpc-headers (if (eq grpc-headers-list nil)
'()
grpc-headers-list))
(method (alist-get :method params)))
(shell-command-to-string
(message "grpcurl %s -proto %s %s -d %s \"%s\" \"%s\""
(message "grpcurl %s -proto %s %s %s -d %s \"%s\" \"%s\""
(ob-grpc--concat-imports import-paths)
proto-file
(if (equal plain-text "no") "" "-plaintext")
(mapconcat #'ob-grpc--set-header-flag grpc-headers " ")
(prin1-to-string body)
grpc-endpoint
method
Expand Down