.history

(setq slime-contribs
      '(slime-fancy
        slime-company
        slime-macrostep
        slime-trace-dialog
        slime-mdot-fu
        slime-buffer-streams
        slime-indentation))

(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)

(defun sp-absorb-forward-sexp (&optional arg)
  "Absorb previous expression.
Save the expressions preceding point and delete them.  Then slurp
an expression backward and insert the saved expressions.

With ARG positive N, absorb that many expressions.
Examples:
​  (do-stuff 1)         (save-excursion
​  (save-excursion  ->   |(do-stuff 1)
​   |(do-stuff 2))        (do-stuff 2))
  foo bar (concat |baz quux) -> (concat |foo bar baz quux) ;; 2"
  (interactive "p")
  (sp-forward-whitespace)
  (let* ((old (point))
         (raise (progn
                  (sp-end-of-sexp)
                  (buffer-substring (point) old))))
    (delete-region old (point))
    (sp-forward-slurp-sexp arg)
    (sp-backward-whitespace)
    (sp-end-of-sexp)
    (insert raise)
    (save-excursion
      (sp-backward-up-sexp)
      (indent-sexp)))
  (sp-backward-whitespace))

  (evil-define-key 'normal lisp-mode-map " o" 'slime-selector)

(use-package cl-generic
  :ensure t)
(cl-defgeneric fwoar--pl-selector ()
  (:method ()
           (slime-selector))
  (:method (&context (major-mode clojure-mode))
           (cider-selector)))
(defun fwoar-pl-selector ()
  (interactive)
  (fwoar--pl-selector))
(define-key evil-normal-state-map " o" 'fwoar--pl-selector)

  (evil-define-key 'normal clojure-mode-map " o" 'cider-selector)
  (evil-define-key 'normal cider-repl-mode-map " o" 'cider-selector)

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

  (find-file "~/.emacs.d/init.el"))

  (let ((default-directory *dotfiles-repo*))
    (helm-projectile-find-file)))

(defun get-passwd (id prompt)

(defslimefun get-passwd (id prompt)