Files
doomemacs/modules/lang/graphql/autoload.el
Henrik Lissner 0a715cc3f2 refactor: (if|when)-let -> (if|when)-let*
With the former macros' future in the air (and likely to be targeted in
future, potentially breaking changes), I'll deal with this now than have
it bite me later.

Ref: https://lists.gnu.org/archive/html/emacs-devel/2024-10/msg00637.html
2025-01-08 19:33:37 -05:00

15 lines
624 B
EmacsLisp

;;; lang/graphql/autoload.el -*- lexical-binding: t; -*-
;;;###autoload
(defun +graphql-doc-open-config ()
"Locate a .graphqlconfig file in the current tree and use that to point to a
schema."
(interactive)
(let ((config (json-read-file (graphql-locate-config "."))))
(let-alist config
(if-let* ((endpoints .extensions.endpoints)
(endpoint (cdr (assq (intern (graphql--completing-read-endpoint endpoints)) endpoints))))
(let-alist endpoint
(graphql-doc--start .url `(:url ,.url :headers ,.headers)))
(error "No endpoint configurations in .graphqlconfig")))))