.emacs

;; restclient from git to get restclient-jq
(add-to-list 'load-path (expand-file-name "~/git/restclient.el"))
(when (locate-library "restclient")
  (require 'restclient)
  (require 'restclient-jq)
  (restclient-register-result-func "save-body" #'restclient-save-body "Save body to filename given as arg"))

(defun restclient-save-body (args args-offset)
  (save-match-data
    (let ((filename (expand-file-name args)))
      (lambda ()
        (with-current-buffer restclient-same-buffer-response-name
          (write-region (point-min) (restclient-jq-result-end-point) "~/.stinkyAuthtoken"))))))