read -A results < <( git ls-remote "$FW_GIT_URL" "$2" )
  jq -n --arg url "$FW_GIT_URL" \
        --arg branch "$FW_GIT_BRANCH" \
        --arg hash "$results[1]" \
        --arg ref "$results[2]" \
     '{hash: $hash, ref: $ref, url: $url, branch: $branch}'

  read -A results < <( git ls-remote "$FW_GIT_URL" "$2" | tr '\n' '\t')
  for (( idx=1; idx < ${#results}; idx += 2 )); do
    jq -n --arg url "$FW_GIT_URL" \
          --arg branch "$FW_GIT_BRANCH" \
          --arg hash "$results[$idx]" \
          --arg ref "$results[$((idx+1))]" \
       '{hash: $hash, ref: $ref, url: $url, branch: $branch}'
   done

	sbcl --eval "(ql:quickload '(:alexandria :serapeum :cl-ppcre))" \

	sbcl --disable-ldb --lose-on-corruption --disable-debugger --no-userinit --no-sysinit \
		  --load "$(HOME)"/quicklisp/setup.lisp \
	     --eval "(ql:quickload '(:alexandria :serapeum :cl-ppcre))" \

(defun gf-url (coordinate)
  (format nil "git@git.fiddlerwoaroof.com:~a.git" coordinate))
(defun gf-target-dir (coordinate)
  (merge-pathnames (uiop:parse-unix-namestring coordinate
                                               :ensure-directory t)
                   (merge-pathnames (make-pathname :directory
                                                   (list :relative
                                                         "git_repos"
                                                         "git.fiddlerwoaroof.com"))
                                    (user-homedir-pathname))))

  (let ((git-url (format nil "git@git.fiddlerwoaroof.com:~a.git" coordinate))
        (target (:printv
                 (merge-pathnames (:printv
                                   (uiop:parse-unix-namestring coordinate
                                                               :ensure-directory t))
                                  (merge-pathnames (make-pathname :directory
                                                                  (list :relative
                                                                        "git_repos"
                                                                        "git.fiddlerwoaroof.com"))
                                                   (user-homedir-pathname))))))

  (let ((git-url (gf-url coordinate))
        (target (:printv (gf-target-dir coordinate))))

#+(or)

                        (background "#494949")

                        (yrange nil yrange-p)
                        (background "#2A2B2E")

                              "gnuplot -e \"~:[~*~;set xrange [~{~f~^:~}];~]set terminal svg font 'Alegreya,14' enhanced  background '~a'; set border lw 3 lc rgb '~a'; plot '< cat -' lt rgb '~a' notitle ~:[~;with lines~]\""

                              "gnuplot -e \"~:[~*~;set xrange [~{~f~^:~}];~]~:[~*~;set yrange [~{~f~^:~}];~]set terminal svg font 'Alegreya,14' enhanced  background '~a'; set border lw 3 lc rgb '~a'; plot '< cat -' lt rgb '~a' notitle ~:[~;with lines~]\""

                              yrange-p yrange

#.(progn
    (require :sb-aclrepl)
    (when (and (interactive-stream-p *terminal-io*)
               (find-package 'sb-aclrepl))
      (push :aclrepl cl:*features*))
    (asdf:load-asd (truename "~/.sbcl.asd"))
    (ql:quickload :fwoar-sbcl)
    nil)

#.(handler-case
      (progn (require :sb-aclrepl)
             (when (and (interactive-stream-p *terminal-io*)
                        (find-package 'sb-aclrepl))
               (push :aclrepl cl:*features*))
             (asdf:load-asd (truename "~/.sbcl.asd"))
             (ql:quickload :fwoar-sbcl)
             nil)
    (error (c) (warn "error while loading fowar-sbcl: ~s" c)))

        (setf (buffer-name) (subseq buffer-name 1)))

        (rename-buffer (subseq buffer-name 1)))

(defvar fwoar::*is-ordinary*)

(defvar fwoar::*is-ordinary*
  (not (string= invocation-name "EmacsNotes")))

  (setq fwoar::is-ordinary (not (string= invocation-name "EmacsNotes")))

  ;; (setq fwoar::*is-ordinary* (not (string= invocation-name "EmacsNotes")))