about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/graphql-20180912.31/graphql.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/graphql-20180912.31/graphql.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/graphql-20180912.31/graphql.el220
1 files changed, 0 insertions, 220 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/graphql-20180912.31/graphql.el b/configs/shared/emacs/.emacs.d/elpa/graphql-20180912.31/graphql.el
deleted file mode 100644
index 75873f5eb743..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/graphql-20180912.31/graphql.el
+++ /dev/null
@@ -1,220 +0,0 @@
-;;; graphql.el --- GraphQL utilities                 -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2017  Sean Allred
-
-;; Author: Sean Allred <code@seanallred.com>
-;; Keywords: hypermedia, tools, lisp
-;; Homepage: https://github.com/vermiculus/graphql.el
-;; Package-Version: 20180912.31
-;; Package-X-Original-Version: 0.1.1
-;; Package-Requires: ((emacs "25"))
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; GraphQL.el provides a generally-applicable domain-specific language
-;; for creating and executing GraphQL queries against your favorite
-;; web services.
-
-;;; Code:
-
-(require 'pcase)
-
-(defun graphql--encode-object (obj)
-  "Encode OBJ as a GraphQL string."
-  (cond
-   ((stringp obj)
-    obj)
-   ((symbolp obj)
-    (symbol-name obj))
-   ((numberp obj)
-    (number-to-string obj))
-   ((and (consp obj)
-         (not (consp (cdr obj))))
-    (symbol-name (car obj)))))
-
-(defun graphql--encode-argument-spec (spec)
-  "Encode an argument spec SPEC.
-SPEC is of the form..."
-  (graphql--encode-argument (car spec) (cdr spec)))
-
-(defun graphql--encode-argument (key value)
-  "Encode an argument KEY with value VALUE."
-  (format "%s:%s" key (graphql--encode-argument-value value)))
-
-(defun graphql--encode-argument-value (value)
-  "Encode an argument value VALUE.
-VALUE is expected to be one of the following:
-
-* a symbol
-* a 'variable', i.e. \\='($ variableName)
-* an object (as a list)
-* a string
-* a vector of values (e.g., symbols)
-* a number
-* something encode-able by `graphql-encode'."
-  (cond
-   ((symbolp value)
-    (symbol-name value))
-   ((eq '$ (car-safe value))
-    (format "$%s" (cadr value)))
-   ((listp value)
-    (format "{%s}" (mapconcat #'graphql--encode-argument-spec value ",")))
-   ((stringp value)
-    (format "\"%s\"" value))
-   ((vectorp value)
-    (format "[%s]" (mapconcat #'graphql-encode value ",")))
-   ((numberp value)
-    (number-to-string value))
-   (t
-    (graphql-encode value))))
-
-(defun graphql--encode-parameter-spec (spec)
-  "Encode a parameter SPEC.
-SPEC is expected to be of the following form:
-
-   (NAME TYPE [REQUIRED] . [DEFAULT])
-
-NAME is the name of the parameter.
-
-TYPE is the parameter's type.
-
-A non-nil value for REQUIRED will indicate the parameter is
-required.  A value of `!' is recommended.
-
-A non-nil value for DEFAULT will provide a default value for the
-parameter."
-  ;; Unfortunately can't use `pcase' here because the first DEFAULT
-  ;; value (in the case of a complex value) might be misunderstood as
-  ;; the value for REQUIRED.  We need to know if the third cons is the
-  ;; very last one; not just that the list has at least three
-  ;; elements.
-  (if (eq (last spec) (nthcdr 2 spec))
-      (graphql--encode-parameter (nth 0 spec)
-                                 (nth 1 spec)
-                                 (car (last spec))
-                                 (cdr (last spec)))
-    (graphql--encode-parameter (nth 0 spec)
-                               (nth 1 spec)
-                               nil
-                               (nthcdr 2 spec))))
-
-(defun graphql--encode-parameter (name type &optional required default)
-  "Encode a GraphQL parameter with a NAME and TYPE.
-If REQUIRED is non-nil, mark the parameter as required.
-If DEFAULT is non-nil, is the default value of the parameter."
-  (format "$%s:%s%s%s"
-          (symbol-name name)
-          (symbol-name type)
-          (if required "!" "")
-          (if default
-              (concat "=" (graphql--encode-argument-value default))
-            "")))
-
-(defun graphql--get-keys (g)
-  "Get the keyword arguments from a graph G.
-Returns a list where the first element is a plist of arguments
-and the second is a 'clean' copy of G."
-  (or (and (not (consp g))
-           (list nil g))
-      (let (graph keys)
-        (while g
-          (if (keywordp (car g))
-              (let* ((param (pop g))
-                     (value (pop g)))
-                (push (cons param value) keys))
-            (push (pop g) graph)))
-        (list keys (nreverse graph)))))
-
-(defun graphql-encode (g)
-  "Encode graph G as a GraphQL string."
-  (pcase (graphql--get-keys g)
-    (`(,keys ,graph)
-     (let ((object (or (car-safe graph) graph))
-           (name (alist-get :op-name keys))
-           (params (alist-get :op-params keys))
-           (arguments (alist-get :arguments keys))
-           (fields (cdr-safe graph)))
-       (concat
-        (graphql--encode-object object)
-        (when name
-          (format " %S" name))
-        (when arguments
-          ;; Format arguments "key:value,key:value,..."
-          (format "(%s)"
-                  (mapconcat #'graphql--encode-argument-spec arguments ",")))
-        (when params
-          (format "(%s)"
-                  (mapconcat #'graphql--encode-parameter-spec params ",")))
-        (when fields
-          (format "{%s}"
-                  (mapconcat #'graphql-encode fields " "))))))))
-
-(defun graphql-simplify-response-edges (data)
-  "Simplify DATA to collapse edges into their nodes."
-  (pcase data
-    ;; When we encounter a collection of edges, simplify those edges
-    ;; into their nodes
-    (`(,object (edges . ,edges))
-     (cons object (mapcar #'graphql-simplify-response-edges
-                          (mapcar (lambda (edge) (alist-get 'node edge))
-                                  edges))))
-    ;; When we encounter a plain cons cell (not a list), let it pass
-    (`(,(and key (guard (not (consp key)))) . ,(and value (guard (not (consp value)))))
-     (cons key value))
-    ;; symbols should pass unaltered
-    (`,(and symbol (guard (symbolp symbol)))
-     symbol)
-    ;; everything else should be mapped
-    (_ (mapcar #'graphql-simplify-response-edges data))))
-
-(defun graphql--genform-operation (args kind)
-  "Generate the Lisp form for an operation.
-ARGS is is a list ([NAME [PARAMETERS]] GRAPH) where NAME is the
-name of the operation, PARAMETERS are its parameters, and GRAPH
-is the form of the actual operation.
-
-KIND can be `query' or `mutation'."
-  (pcase args
-    (`(,name ,parameters ,graph)
-     `(graphql-encode '(,kind :op-name ,name
-                              :op-params ,parameters
-                              ,@graph)))
-
-    (`(,name ,graph)
-     `(graphql-encode '(,kind :op-name ,name
-                              ,@graph)))
-
-    (`(,graph)
-     `(graphql-encode '(,kind ,@graph)))
-
-    (_ (error "Bad form"))))
-
-(defmacro graphql-query (&rest args)
-  "Construct a Query object.
-ARGS is a listof the form described by `graphql--genform-operation'.
-
-\(fn [NAME] [(PARAMETER-SPEC...)] GRAPH)"
-  (graphql--genform-operation args 'query))
-
-(defmacro graphql-mutation (&rest args)
-  "Construct a Mutation object.
-ARGS is a listof the form described by `graphql--genform-operation'.
-
-\(fn [NAME] [(PARAMETER-SPEC...)] GRAPH)"
-  (graphql--genform-operation args 'mutation))
-
-(provide 'graphql)
-;;; graphql.el ends here