=======
(defun fwoar--slime-find-system ()
(let ((systems (directory-files
(locate-dominating-file default-directory
(lambda (n)
(directory-files n nil "^[^.#][^#]*[.]asd$")))
t "^[^.#][^#]*[.]asd$")))
(find-file (if (not (null (cdr systems)))
(helm-comp-read "system:" systems)
(car systems)))))
(pushnew (list ?S "Goto System" #'fwoar--slime-find-system)
slime-selector-methods
:key #'car)
(defun ansi-term-post (&rest r)
(message "Loading ansi term...")
(evil-set-initial-state 'term-mod 'emacs))
(advice-add 'ansi-term :after 'ansi-term-post)
(defun edit-init-el ()
(interactive)
(find-file "~/.emacs.d/init.el"))
>>>>>>> emacs init.el updates