(defun read-sexps-in-file (fn)
  (with-temp-buffer
    (save-excursion
      (insert "(")
      (insert-file fn)
      (goto-char (point-max))
      (insert "\n)"))
    (read (current-buffer))))

                 (if (null body)
                     args
                   (if (symbolp body)
                       (when (eql ?\_ (elt (symbol-name body) 0))
                         (cons body args))
                     (if (listp body)
                         (append (op--collect-args (car body))
                                 (op--collect-args (cdr body))
                                 ))))))

                    (if (null body)
                        args
                      (if (symbolp body)
                          (when (eql ?\_ (elt (symbol-name body) 0))
                            (cons body args))
                        (if (listp body)
                            (append (op--collect-args (car body))
                                    (op--collect-args (cdr body))
                                    ))))))

         (replace-regexp-in-string "[ \t\n]*$" ""
                                   (shell-command-to-string
                                    "zsh -c 'source ~/.zsh.d/dependencies/utils.zsh;source ~/.zsh.d/dependencies/path-setup.zsh;echo $PATH'")
)))

         (replace-regexp-in-string
          "[ \t\n]*$" ""
          (shell-command-to-string
           (concat "zsh -c '"
                   "  source ~/.zsh.d/dependencies/utils.zsh;"
                   "  source ~/.zsh.d/dependencies/path-setup.zsh;"
                   "  echo $PATH"
                   "'")))))

  (global-display-line-numbers-mode)

  (if (version<= "26.0.50" emacs-version )
      (global-display-line-numbers-mode)
    (global-linum-mode))

(add-to-list 'load-path "~/git_repos/3dp/slime/")

(add-to-list 'load-path (fwoar-git-repo "3dp/slime/" "git@github.com:slime/slime.git"))

;; put slime-company in load-path
;; (require 'slime-company)

(use-package slime-company
  :ensure t)

(defmacro define-lisp-implementations (&rest decl)
  `(progn
     ,@(cl-loop for (symbol . args) in decl
                collect `(progn
                           (defun ,symbol ()
                             (interactive)
                             (slime ',symbol))
                           (cl-pushnew '(,symbol ,@args) slime-lisp-implementations
                                       :key 'car)))))
(with-eval-after-load "slime"
  (when (or (eq system-type 'gnu/linux)
            (eq system-type 'darwin))
    (define-lisp-implementations
      (abcl  ("abcl"))
      (ccl ("ccl"))
      (clisp ("clisp"))
      (cmucl ("cmucl" "-quiet"))
      (ecl   ("ecl"))
      ;;(mkcl  ("mkcl"))
      ;;(xcl   ("xcl"))
      (sbcl  ("sbcl" "--dynamic-space-size" "8192")))))

(message (format "s-c-c is: %s" slime-company-completion))

;;(message (format "s-c-c is: %s" slime-company-completion))

(setq slime-contribs '(slime-fancy
                       slime-company
                       slime-macrostep
                       slime-trace-dialog
                       slime-mdot-fu
                       slime-buffer-streams
                       slime-indentation)
      slime-export-save-file t)
(slime-setup)

(defmacro define-lisp-implementations (&rest decl)
  `(progn
     ,@(cl-loop for (symbol . args) in decl
                collect `(progn
                           (defun ,symbol ()
                             (interactive)
                             (slime ',symbol))
                           (cl-pushnew '(,symbol ,@args) slime-lisp-implementations
                                       :key 'car)))))

(with-eval-after-load "slime"
  (when (or (eq system-type 'gnu/linux)
            (eq system-type 'darwin))
    (define-lisp-implementations
      (abcl  ("abcl"))
      (ccl ("ccl"))
      (clisp ("clisp"))
      (cmucl ("cmucl" "-quiet"))
      (ecl   ("ecl"))
      ;;(mkcl  ("mkcl"))
      ;;(xcl   ("xcl"))
      (sbcl  ("sbcl" "--dynamic-space-size" "8192")))))

(setq slime-contribs '(slime-fancy
                       slime-company
                       slime-macrostep
                       slime-trace-dialog
                       slime-mdot-fu
                       slime-buffer-streams
                       slime-indentation)
      slime-export-save-file t)
(slime-setup slime-contribs)

(defun fwoar-delete-mru-window ()
  (interactive)
  (delete-window
   (get-mru-window nil nil t)))

  (define-key evil-motion-state-map (kbd "C-w C-o") 'delete-mru-window)

  (define-key evil-motion-state-map (kbd "C-w C-o") 'fwoar-delete-mru-window)

(let ((my-theme-path (expand-file-name "~/.emacs.d/themes/")))
  (add-to-list 'load-path my-theme-path)
  (add-to-list 'custom-theme-load-path my-theme-path)
  (load-theme 'fwoar-zenburn t))

  (normal-top-level-add-to-load-path '("."))

  (add-to-list 'load-path (expand-file-name default-directory))

(load "site-lisp")

(use-package multifiles
  :config
  (define-key evil-visual-state-map " m" 'mf/mirror-region-in-multifile))

;;(use-package multifiles
;;  :config
;;  (define-key evil-visual-state-map " m" 'mf/mirror-region-in-multifile)
;;  )

  :ensure t

  :ensure t

(use-package company-posframe
  :ensure t)

          company-dabbrev))

          company-dabbrev)))
(use-package company-posframe
  :ensure t
  :after company
  :config

(load-package-configuration 'slime)
(global-company-mode 1)

(use-package magit :ensure t :config


(use-package magit :ensure t
  :config

  (magit-define-popup-action 'magit-dispatch-popup 106 "Browse remote" 'browse-at-remote)

  ;; TODO: figure this out with transients
  ;;(magit-define-popup-action 'magit-dispatch-popup ?j "Browse remote" 'browse-at-remote)

(defvar *fwoar-git-repos*
  (file-name-as-directory
   (expand-file-name (car (file-expand-wildcards "~/git*_repos"))
                     "~")))

(defun fwoar-git-repo (name remote)
  (let ((dir-name (file-name-as-directory (expand-file-name name *fwoar-git-repos*))))
    (unless (file-exists-p dir-name)
      (magit-run-git-with-input "clone" remote dir-name))
    dir-name))
(defvar *dotfiles-repo*
  (fwoar-git-repo "dotfiles" "git@git.fiddlerwoaroof.com:dotfiles.git"))
;; slime depends on fwoar-git-repo
(load-package-configuration 'slime)
(global-company-mode 1)


(load-file custom-file)

(defvar *dotfiles-repo* "~/git_repos/dotfiles/")

(load-file custom-file)
(defun read-sexps-in-file (fn)
  (with-temp-buffer
    (save-excursion
      (insert "(")
      (insert-file fn)
      (goto-char (point-max))
      (insert "\n)"))
    (read (current-buffer))))
(comment
 (use-package circe
   :config
   (setq circe-server-buffer-name "{host}:{port}"
         circe-reduce-lurker-spam t
         circe-network-options (read-sexps-in-file "~/.circe-info"))))