added sly stuff, + some things

Emacs.org

@@ -330,7 +330,7 @@ Here we use a package called org-tempo.
   (add-to-list 'org-structure-template-alist '("js" . "src javascript"))
   (add-to-list 'org-structure-template-alist '("html" . "src html"))
   (add-to-list 'org-structure-template-alist '("css" . "src css"))
-  (add-to-list 'org-structure-template-alist '("rt" . "src racket")))
+  (add-to-list 'org-structure-template-alist '("rt" . "src racket"))
   (add-to-list 'org-structure-template-alist '("cl" . "src lisp")))
 #+end_src
 
@@ -429,13 +429,16 @@ Deft is a package that helps browse and filter plain text files. I use it to sea
 *** Common Lisp
 #+begin_src emacs-lisp
 (after! sly
+  (load "/home/ry/quicklisp/clhs-use-local.el" t)
   (setq sly-lisp-implementations
-        '((sbcl ("~/programs/bin/ros" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
-          (clisp ("~/programs/bin/ros" "-L" "clisp" "-Q" "run"))
-          (clozure-cl ("~/Bin/clozure/" "-L" "ccl-bin" "-Q" "run"))
-          (cmucl ("~/programs/bin/ros" "-L" "cmu-bin" "-Q" "run"))
-          (ecl ("~/programs/bin/ros" "-L" "ecl" "-Q" "run") :coding-system utf-8-unix)
-          (abcl ("~/programs/bin/ros" "-L" "abcl-bin" "-Q" "run")))))
+        '((sbcl ("/bin/sbcl" "-L" "sbcl" "-Q" "run") :coding-system utf-8-unix)
+          (ccl ("/usr/local/bin/ccl64" :coding-system utf-8-unix)))))
+
+(defmacro define-sly-lisp (name)
+  `(defun ,name ()  (interactive)  (let ((sly-default-lisp ',name))  (sly))))
+
+(define-sly-lisp sbcl)
+(define-sly-lisp ccl)
 #+end_src
 
 ** Mu4e (E-mail)
@@ -453,7 +456,7 @@ Account Information:
 
   ;; Refresh mail using isync every 5 minutes
   (setq mu4e-update-interval (* 5 60))
-  (setq mu4e-get-mail-command "mbsync -a -c ~/Dotfiles/.config/mbsync/mbsyncrc")
+  (setq mu4e-get-mail-command "mbsync -a -c ~/Dotfiles/.config/mbsyn c/mbsyncrc")
   (setq mu4e-maildir "~/Mail")
 
   (setq mu4e-contexts